PDA

نسخه کامل مشاهده نسخه کامل : نحوه جستجو در شي ado


vbiman
02-04-2007, 21:06
:19: با سلام
نحوه جستجو در شي ado به جه صورتي است لطفا به ساده و با توضيح زياد بگين كه به قول معروف شير فهم بشيم
با تشكر.....
shamsoft
02-04-2007, 21:58
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
LOVEMT
07-04-2007, 02:18
بازم مثل همیشه شام سافت برنده میشه !!:20: :10: :10: :46: :46:
majj
13-04-2007, 08:20
با دستور ذیل این کار امکان دارد
ado .recordset.find
shirazhaker
14-04-2007, 01:28
اينم يكم پيشرفته تر
براي دكمه جستجو بزارش

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
shirazhaker
14-04-2007, 01:30
با دستور ذیل این کار امکان دارد
ado .recordset.find
ميشه يك مثال كوچيك بزنيد
majj
14-04-2007, 05:58
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