Get Names of Tables in Database

[Gavin]

How do I, in VB get the names of all the tables in an Access data bas

Also, how do I programatically get all the field names in a specific table

Much appreciated.

[Ken Tucker [MVP]]

Hi,

Add a reference to microsoft ado ext 2.8 for dll and security
and microsoft activex data objects 2.8 library in the com tab.

Imports System.Security
Imports System.Security .Permissions
Imports System.Runtime. InteropServices
Imports ADOX

<Assembly: SecurityPermiss ion(SecurityAct ion.RequestMini mum)>
<ComVisible(Fal se)> _
Module Module1

Sub Main()
Dim tbl As New Table
Dim cnn As New ADODB.Connectio n
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command

' Open the Connection
cnn.Open( _
"Provider='Micr osoft.Jet.OLEDB .4.0';" & _
"Data Source='Northwi nd.mdb';")

' Open the catalog
cat.ActiveConne ction = cnn

For Each tbl In cat.Tables
Dim col As ADOX.Column
For Each col In tbl.Columns
Console.WriteLi ne(String.Forma t("Table {0} Column Name {1}",
tbl.Name, col.Name))
Next
Next

cnn.Close()
End Sub

End Module
Ken
--------------------
"Gavin" <ga****@schiffy .com> wrote in message
news:51******** *************** ***********@mic rosoft.com...

How do I, in VB get the names of all the tables in an Access data base

Also, how do I programatically get all the field names in a specific
table.

Much appreciated.

[gavin]

Thanks

[Richard T. Edwards]

Dim Cnstr As String
Dim dc As DataRow
Dim i As Integer
Dim j As Integer

Cnstr = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source = C:\Program
Files\Microsoft Visual Studio\VB98\NWI ND.MDB"

Dim Con As OleDb.OleDbConn ection = New OleDb.OleDbConn ection(Cnstr)
Con.Open()

Dim DBTables As DataTable =
Con.GetOleDbSch emaTable(System .Data.OleDb.Ole DbSchemaGuid.Ta bles, New
Object() {Nothing, Nothing, Nothing, "TABLE"})

For i = 0 To DBTables.Column s.Count - 1

If DBTables.Column s(i).ToString = "TABLE_NAME " Then

For j = 0 To DBTables.Rows.C ount - 1

dc = DBTables.Rows(j )

Console.Out.Wri teLine(dc.Item( i))

Next

End If

Next i

Dim Da as OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter("Select * From
Products", Con)

Dim Tbl As new DataTable

da.Fill(Tbl)

For i = 0 To Tbl.Columns.Cou nt - 1

Console.Out.Wri teLine(tbl.Colu mns(i).ToString ())

Next

"Gavin" <ga****@schiffy .com> wrote in message
news:51******** *************** ***********@mic rosoft.com...

How do I, in VB get the names of all the tables in an Access data base

Also, how do I programatically get all the field names in a specific table.
Much appreciated.

[gavin]

Thanks for your Help

The statement: Imports ADOX - get error message ADOX cannot b found

Thanks

[Rob Oldfield]

Have you added the reference? Right click on References in Solution
Explorer, Add Reference. Scroll down the Com list to find Microsoft ADO.
"gavin" <an*******@disc ussions.microso ft.com> wrote in message
news:22******** *************** ***********@mic rosoft.com...

Thanks for your Help.

The statement: Imports ADOX - get error message ADOX cannot b found.

Thanks