[مساعدة]

السلام عليكم

يمكن وضع هذا الكود في حدث Click لزر أو حدث TextChanged للبحث أثناء الكتابة في التكست بكس

كود :

Dim adp As New OleDb.OleDbDataAdapter
adp.SelectCommand.Connection = cnn

Select Case ComboBox1.SelectedIndex

    Case 0 ' الاختيار الأول في الكمبوكس
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [ID]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)


    Case 1 ' الاختيار الثاني في الكمبوكس
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [FirstName]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)


' الاختيار الثالث في الكمبوكس
    Case 2
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [LastName]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)

End Select

Dim dt As New DataTable
adp.Fill(dt)

DataGridView1.DataSource = dt