Visual Basic .NET
1 2 3 4 5 6 7 8 9 |
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\1.mdb") cn.Open() Dim da As New OleDb.OleDbDataAdapter da.SelectCommand = New OleDb.OleDbCommand("Select Name from Msysobjects where type = 1", cn) Dim tbl As DataTable tbl = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"}) For i = 0 To tbl.Rows.Count - 1 MsgBox((tbl.Rows(i)!Table_Name.ToString)) Next |