[aljzazy]

(04-01-23, 12:28 AM)mmaalmesry كتب : جزاكم الله خيرا
و هل هذا الكود يصلح لقاعدة بيانات oledb أو access ؟ بعد إجراء بعض التعديلات طبعا ؟

كود :

 Dim SchemaTable As DataTable

       'Connect to the database
       Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

       Try
           ListBox1.Items.Clear()

           conn.Open()

           'Get table and view names
           SchemaTable = conn.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
                   ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())
               End If
           Next

       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       End Try

       conn.Close()