مطلوب كود للبحث - نسخة قابلة للطباعة

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'CarDataSet.AllCars' table. You can move, or remove it, as needed.

        Me.AllCarsTableAdapter.Fill(Me.CarDataSet.AllCars)

        'تغيير لغة المفاتيح للعربية

        InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages.Cast(Of InputLanguage).Where(Function(x) x.Culture.Name.ToLower.StartsWith("ar")).FirstOrDefault()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox2.Focus()

        TextBox2.SelectAll()

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        TextBox3.Focus()

        TextBox4.SelectAll()

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        TextBox4.Focus()

        TextBox4.SelectAll()

    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

        If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        Dim cars As String = Me.TextBox1.Text & " " & Me.TextBox2.Text & " " & Me.TextBox3.Text & " " & Me.TextBox4.Text

        cars = cars.Trim.Replace("ه", "هـ")

        AllCarsBindingSource.Filter = "[cars]='" & cars & "'"

        TextBox1.Focus()

        TextBox1.SelectAll()

    End Sub

    'زر إضافة لإظهر كافة البيانات

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        AllCarsBindingSource.Filter = ""

    End Sub

End Class

كود :

If Button3.Text = "إبــــحــــث" Then

            Button3.Text = "لا تبحث"



            Dim newcars As String = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text

            Dim dp As New OleDb.OleDbDataAdapter("select * from AllCars where Cars = '" & newcars & "'", My.Settings.CarConnectionString)

            Dim ds As New DataSet

            dp.Fill(ds)

            DataGridView1.DataSource = ds.Tables(0)



        Else

            Button3.Text = "إبــــحــــث"

            'إرجاع البيانات كاملة

            DataGridView1.DataSource = AllCarsBindingSource

        End If