sabair
یک شنبه 28 مهر 1387, 02:28 صبح
دوستان سلام
من مي خواهم وقتي هر كلمه اول يا وسط آن در textboxt مي نويسم در ديتا گريد نمايش دهد
مثلا اگر بنوسيد در ديتابيس من اگر محمد رضا باشد من مي خواهم وقتي در textbox وقتي تايپ مي كنم رضا هر كس با در آن رضا باشد بيارد
محمد رضا ، رضا ، علي رضا و... بيارد متوجه شديد
من اين كد را نوشتم
جستجو مي كند كاري كه من مي خواهم انجام دهد نمي كند
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
Select Case ComboBox1.SelectedItem
Case "نام و نام خانوادگي"
Search("docter", " name ", TextBox9.Text, DataGridView1)
End Select
End Sub
Public Sub Search(ByVal table As String, ByVal filed As String, ByVal text As Object, ByVal datagrid As Object)
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from " & table
cmd.Connection = con
Dim ds As New DataSet
da.Fill(ds, table)
ds.Tables(table).DefaultView.RowFilter = " " & filed & " like '" & TextBox9.Text.Trim & %"'"
datagrid.DataSource = ds.Tables(table).DefaultView
End Sub
لطفا راهنمايي نمايد
با تشكر
من مي خواهم وقتي هر كلمه اول يا وسط آن در textboxt مي نويسم در ديتا گريد نمايش دهد
مثلا اگر بنوسيد در ديتابيس من اگر محمد رضا باشد من مي خواهم وقتي در textbox وقتي تايپ مي كنم رضا هر كس با در آن رضا باشد بيارد
محمد رضا ، رضا ، علي رضا و... بيارد متوجه شديد
من اين كد را نوشتم
جستجو مي كند كاري كه من مي خواهم انجام دهد نمي كند
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
Select Case ComboBox1.SelectedItem
Case "نام و نام خانوادگي"
Search("docter", " name ", TextBox9.Text, DataGridView1)
End Select
End Sub
Public Sub Search(ByVal table As String, ByVal filed As String, ByVal text As Object, ByVal datagrid As Object)
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from " & table
cmd.Connection = con
Dim ds As New DataSet
da.Fill(ds, table)
ds.Tables(table).DefaultView.RowFilter = " " & filed & " like '" & TextBox9.Text.Trim & %"'"
datagrid.DataSource = ds.Tables(table).DefaultView
End Sub
لطفا راهنمايي نمايد
با تشكر