جستجوی اطلاعات در دیتا بیس اکسس

[thomasandy]

با سلام می خواست برنامه بنویسم که کد جستجو دیتا بیس باش مثل کد زیر
Dim Tf As Boolean
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("tel") = Text4 Then
Text6 = Adodc1.Recordset.Fields("name")
Text5 = Adodc1.Recordset.Fields("family")
Tf = True
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If Tf = False Then MsgBox "peyda Nashod"

[mamad174]

این کد خیلی اضافه داره


Adodc1.RecordSource = "select * from table where field='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
text6.text=adodc1.recorset.field!name
text5.text=adodc1.recordset.field!family
else
msgbox peyda nashod


کد شما رو بنده اولین باره میبینم با کد بنده که کاملا اصلاح شده کد شماست راحت می تونید به مقصد مورد نظر برسید