[حسن الجلب]

السلام عليكم عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس

[سعود]

PHP كود :

con.Open()
        Dim a As DataTable = con.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
        con.Close()
        Dim int As Integer
        For int = 0 To a.Rows.Count - 1
            If a.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
                'Add items to list box
                ListBox1.Items.Add(a.Rows(int)!TABLE_NAME.ToString())
            End If
        Next