10-29-2015، 09:30 AM
10-31-2015، 09:27 AM
درود
خوبی؟
کد :
خوبی؟
کد :
کد:
On Error GoTo err:
Dim sql As String
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program Filesjosoftdatabasejosoft.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "Select * from [FeeBalance] where [AdmnNo] = '" & Text1.Text & "'", con, 3, 3
rs.MoveLast
'rs.MoveNext
If rs.EOF And rs.BOF Then
MsgBox ("No Fee Balance Found in the Above Student!")
Else
rs.MoveLast
Text15.Text = rs!Amountpaid
Text17.Text = rs!balance
End If
err:10-31-2015، 10:24 AM
ممنونم
تست میکنم ایشاله که مشکلم حل بشه
تست میکنم ایشاله که مشکلم حل بشه
10-31-2015، 12:37 PM
من یه نگاه کردم اما سر در نیاوردم بازم دقت میکنم ببینم چطور میشه ، اخه عجله ای دیدم
ولی یبار دیگه توضیح میدم ما 2 تا فیلد تلفن داریم در دیتابیس
حالا میخواهیم وقتی یه مشاره رو سرچ میکنیم همزمان 2 تا فیلد رو جستجو کنه و نتیجه رو نشون بده تو لیست باکس
ولی یبار دیگه توضیح میدم ما 2 تا فیلد تلفن داریم در دیتابیس
حالا میخواهیم وقتی یه مشاره رو سرچ میکنیم همزمان 2 تا فیلد رو جستجو کنه و نتیجه رو نشون بده تو لیست باکس
11-03-2015، 09:12 AM
Up Up Up Up Up
11-18-2015، 11:26 PM