نوشته شده توسط
hhr1360
سلام
میخام با یک کادر متن یک دیتا گرید رو فیلتر کنم
خودم این کد نوشتم اما کار نمیکنه
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
()con.Close
(Dim ad As New OleDb.OleDbDataAdapter("select * from fardi WHERE nam_khan" Like t1.Text, con
Dim dt As New Data.DataTable
()con.Open
(ad.Fill(dt
dgv.DataSource = dt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If con.State <> ConnectionState.Open Then con.Open()
Dim ad As New OleDb.OleDbDataAdapter( "select * from fardi WHERE nam_khan Like @s", con)
ad.SelectCommand. Parameters.Add( New OleDb.OleDbParameter ("s", "%" & t1.Text & "%"))
Dim dt As New Data.DataTable
ad.Fill(dt)
dgv.DataSource = dt
End Sub