barnamenevisjavan
سه شنبه 12 دی 1391, 18:55 عصر
سلام من یک سری اطلاعات توی دیتابیس اکسس ذخیره کردم حالا وقتی متنی رو جستجو میکنم به جای اینکه عنوان موضوع رو بنویسه بجاش نام ستون در دیتابیس رو مینویسه(جستجوش هیچ مشکلی نداره)
http://bnjhost.ir/up/di-F293.jpg
از کد زیر هم استفاده کردم:
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim con As New OleDbConnection(cs)
Dim strSearch As String = String.Format("SELECT * FROM table1 where p_Fname like '{0}%' or p_MName like '{0}%' or p_TT like '{0}%' or p_MDaryafti like '{0}%'", TextBox2.Text)
Dim com As New OleDbCommand(strSearch, con)
Dim adapter As New OleDbDataAdapter(com)
Dim ds As New DataSet()
adapter.Fill(ds, "table1_table")
Dim dtContact As DataTable = ds.Tables(0)
If con.State <> ConnectionState.Open Then
con.Open()
End If
DataGridViewX1.DataSource = dtContact
If con.State <> ConnectionState.Closed Then
con.Close()
End If
End Sub
http://bnjhost.ir/up/di-F293.jpg
از کد زیر هم استفاده کردم:
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim con As New OleDbConnection(cs)
Dim strSearch As String = String.Format("SELECT * FROM table1 where p_Fname like '{0}%' or p_MName like '{0}%' or p_TT like '{0}%' or p_MDaryafti like '{0}%'", TextBox2.Text)
Dim com As New OleDbCommand(strSearch, con)
Dim adapter As New OleDbDataAdapter(com)
Dim ds As New DataSet()
adapter.Fill(ds, "table1_table")
Dim dtContact As DataTable = ds.Tables(0)
If con.State <> ConnectionState.Open Then
con.Open()
End If
DataGridViewX1.DataSource = dtContact
If con.State <> ConnectionState.Closed Then
con.Close()
End If
End Sub