سلام
من با کد زیر تو دیتابیس جست و جو می کنم ولی وقتی که می خوام نوع جست و جو رو با کمبوباکس عوض کنم گیر می کنم
کسی می تونه کمک کنه؟
اینم کد
Public Sub FilterName()
Try
'تعريف کانکشن استرينگ
con.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\vb\SearchTest\db.accdb"
Cmd.Connection = con
Cmd.CommandText = "Select * from Table1 Where name = '" + txtsearch.Text + "' "
da.SelectCommand = Cmd
con.Open() 'باز کردن بانک
da.Fill(dt)
txtid.Text = dt.Rows(0).Item(0)
txtname.Text = dt.Rows(0).Item(1)
txtfamily.Text = dt.Rows(0).Item(2)
con.Close() 'بستن بانک
Catch ex As Exception
MsgBox("Error : " & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
پاسخ با نقل قول
