نحوه جستجو در شي ado

:19: با سلام
نحوه جستجو در شي ado به جه صورتي است لطفا به ساده و با توضيح زياد بگين كه به قول معروف شير فهم بشيم
با تشكر.....

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بازم مثل همیشه شام سافت برنده میشه !!:20: :10: :10: :46: :46:

با دستور ذیل این کار امکان دارد
ado .recordset.find

اينم يكم پيشرفته تر
براي دكمه جستجو بزارش

کد:

---

Dim k
If Len(Text1.Text) > 0 Then
n = Text1.Text

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bankfilm.MDB;Persist Security Info=False"
Adodc1.RecordSource = "select * from kerayeeh where nmosh='" & n & "' "

---

نقل قول:

---

با دستور ذیل این کار امکان دارد
ado .recordset.find

---

ميشه يك مثال كوچيك بزنيد

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
If Text1.Text = "" Then
Call MsgBox("áØÝÇ ÔãÇÑå ÈÇÑßÏ ÑÇ æÇÑÏ ˜äíÏ", vbInformation, "ÊÐßÑ")
GoTo exi
End If
List1.Clear

Dim a As Variant
Dim l As Variant
a = Text1.Text
a = "barcod='" + a + "'"

Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find a
If Adodc1.Recordset.EOF Then
Call MsgBox(" ÈÇÑ˜Ï ãæÑÏ äÙÑ íÏÇ äÔÏ", vbOKOnly + vbInformation, "ÊИÑ")
GoTo exi
Else
Text1.Text = ""
List1.AddItem Adodc1.Recordset.Fields("BARCOD")


End If
Text1.Text = ""
exi:
Adodc1.Recordset.MoveFirst
Text1.Text = ""
Text1.SetFocus
End Sub