[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
لدي قائمة جداول معروضة في listbox أريد عرض الجدول في datagridview
بمجرد الضغط على الجدول المحدد في القائمة

كود :

Sub ImportTableInListBox()
       Dim SchemaTable As DataTable
       Try
           ListBoxTables.Items.Clear()
           con.Open()
           'Get table and view names
           SchemaTable = con.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
           Dim int As Integer
           For int = 0 To SchemaTable.Rows.Count - 1
               If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
                   'Add items to list box
                   ListBoxTables.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())
               End If
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString(), "خطأ في جلب المعلومات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       End Try
       con.Close()
   End Sub