[VB.NET] الكومبوبوكس و الداتاجريدفيو

كود :

Private Sub Form_bank_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        load_bank()

        newbank()

        DataGridView1.DataSource = dt_bank

    

        'ملء الكومبوبوكس

        Cmbsearch.DataSource = dt_bank

        Cmbsearch.DisplayMember = "bank_name"

        Cmbsearch.ValueMember = "bank_id"





        Me.DataGridView1.Columns(0).HeaderText = "رقم البنك"

        Me.DataGridView1.Columns(1).HeaderText = "الاسم"

        Me.DataGridView1.Columns(2).HeaderText = "العنوان"

        Me.DataGridView1.Columns(3).HeaderText = "الهاتف"

        Me.DataGridView1.Columns(4).HeaderText = "الفاكس"

        Me.DataGridView1.Columns(5).HeaderText = "البريد الالكتروني"

        Me.DataGridView1.Columns(6).HeaderText = "الموقع الالكتروني"

        Me.DataGridView1.Columns(7).HeaderText = "ملاحظات"

        Me.DataGridView1.Columns(8).HeaderText = "مدخل البيانات"

        Me.DataGridView1.Columns(9).HeaderText = "تاريخ التسجيل"

        Me.DataGridView1.Columns(10).Visible = False



        'newbank_id()

    End Sub

كود :

Dim StrSQL as string = "Select * From Table_Name  Where Column_Name Like '%" & Cmbsearch.Text & "%'" 

 Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\NamsXT.mdb;User Id=admin;Password=;")

 Dim da As New OleDbDataAdapter(StrSQL, cn)

 Dim dt As New DataSet

 da.Fill(dt,"Table_Name")

 Dgv_Table.DataSource = dt.Tables("Table_Name")