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

[vbiman]

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

[shamsoft]

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

[LOVEMT]

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

[majj]

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

[shirazhaker]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[shirazhaker]

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

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

[majj]

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