كيف يمكننى ان ابحث فى القاعده من خلال textbox

السلام عليكم

Dim command As New SqlClient.SqlCommand
command.CommandText = "select * from TblName where      ColName like('" + Txtbox + "%')"

Dim ds As New DataSet
Dim da As New SqlDataAdapter
da.SelectCommand = command
 command.Connection = conn
            ds.Clear()
            da.Fill(ds)
            datagrid1.datasource = ds

أرجوا ان يفلح هذا الكود

أود أن أنوه بأن هذه الطريقة (رغم أنها صحيحة) تعرضك لخطر هجوم الـSQL Injection لذا يفضل أن تستبدل السطر الثاني بهذا:

command.CommandText = "select * from TblName where      ColName like ?"
command.parameters.add(new sqlparameter("text", "%" +textbox.text+"%"))

بسم الله

شكرا على الرد

نجحت معى فى البحث ولكن عند البحث مره اخرى فى القاعدة ياتى بنتائج المره الاولى مع انى اعمل dataset.clear()

واذا اردت ان ابحث مره اخرى لابد من ان اغلق البرنامج وافتحه مرة اخرى

اريد ان ابحث مرات عديدة ماذا افعل

اين الشباب ؟

اليك كود البحث كامل والنتيجة تظهر فى داتا جريد

        Dim ConditionCriteria As Boolean = True
        DataSet11.Clear()
        If TextBox1.Text <> "" Then
            OleDbDataAdapter1.SelectCommand.CommandText = "select *from [mytable]where [colum]like'" & TextBox1.Text & "%'"
        Else
            MessageBox.Show("هذا الرقم غير موجود", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ConditionCriteria = False
            TextBox1.Focus()
        End If
        If ConditionCriteria = True Then
            OleDbDataAdapter1.Fill(DataSet11, "MYtable")
        End If
        Try
            DataGrid1.DataSource = DataSet11
            Me.DataGrid1.DataSource = DataSet11.Tables(1)
            Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
        Catch ex As Exception
            MessageBox.Show("تأكد من ادخال رقم", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try