جستجو در بانک اطلاعاتی بر اساس فیلد انتخاب شده در کامبو باکس

[sabair]

به نام خدا
من می خواهم درویژوال بیسک در کمبو باکس در بانک اطلاعاتی اکسس بر اساس فیلد انتخابی جستجو کنم .
http://www.mehri.persiangig.com/image/Combo.jpg

[farzadvb]

اول به صورت sql:
select * from tableNAME Where Yourfield=YourQUALIFICATION
راه دوم اصلا جستجوی ترتیبی :
While ado.re,,,.efo=false
if yourfield=yourQUALIFICATION then
do thing
else
ado.re,,,.movenext
end if
wend
البته روش دوم کاملا بی منطق است و مورد استفاده قرار نمی گیرد فقط جنبه آموزشی داشت
امیدوارم فهمیده باشی.

[sabair]

با دیتابیس Access می خواهم
تا اینجا می دانیم که با ید از دستور select case استفاده کنیم
لطفا راهنمایی کنید
واقعا برنامه نویسی نیست در این انجمن که یک سوال را جواب دهد.

[میلاد علوی]

دستور زیر اول کامبو را پر میکند
Private Sub Form_Load()
With Adodc1
.ConnectionString = dAtA
.RecordSource = "select max(radif) from pardakht" ' where cod = " & Text1.Text
.Refresh
If IsNull(Adodc1.Recordset.Fields(0)) = False Then
Label2.Caption = Val(Adodc1.Recordset.Fields(0)) + 1
Else
Label2.Caption = 1
End If
.ConnectionString = dAtA
.RecordSource = "select * from moeen"
.Refresh
Do While .Recordset.EOF = False
Combo2.AddItem .Recordset.Fields(1)
.Recordset.MoveNext
Loop
End With
End Sub
این دستور بعد از انتخاب متن در کامبو Adodc پیدا می کنه
Private Sub Combo2_Click()
With Adodc1
.ConnectionString = dAtA
.RecordSource = "select * from moeen where name =" & "'" & Combo2.Text & "'"
.Refresh
Label1(13).Caption = .Recordset.Fields(3)
End With
End Sub

[benighted.boy]

این یه کاره سادست .البته ناقصه و پر از اشکال.اما اون چیزی که بخوای رو توش داره .فکر کنم مشکلتو حل کنه.
اگه بازم مشکلی بود خبرم کن:چشمک: