23-07-22, 07:47 PM
23-07-22, 08:53 PM
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