How to list all tables in MSAccess

[Research-13]

I can't do it
thank

[William Ryan]

http://msdn.microsoft.com/library/de...classtopic.asp
"Research-13" <te*****@solutions-corp.co.th> wrote in message
news:MP***********************@news.microsoft.com. ..

I can't do it
thank

[Armin Zingler]

"Research-13" <te*****@solutions-corp.co.th> schrieb

I can't do it
thank

http://msdn.microsoft.com/library/en...asp?frame=true
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Paul Clement]

On Thu, 1 Jan 2004 02:47:02 +0700, Research-13 <te*****@solutions-corp.co.th> wrote:

¤ I can't do it
¤ thank

Try the following:

Sub ListAccessTables()

Dim AccessConnection As System.Data.OleDb.OleDbConnection
Dim AccessDataTable As DataTable

Try

AccessConnection = New
System.Data.OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;" & _
"Data Source=E:\My Documents\db1.mdb")

AccessConnection.Open()

AccessDataTable =
AccessConnection.GetOleDbSchemaTable(System.Data.O leDb.OleDbSchemaGuid.Tables, New Object()
{Nothing, Nothing, Nothing, "TABLE"})

DataGrid1.DataSource = AccessDataTable

Dim RowCount As Int32
Console.WriteLine(AccessDataTable.Rows.Count)
For RowCount = 0 To AccessDataTable.Rows.Count - 1
Console.WriteLine(AccessDataTable.Rows(RowCount)!T ABLE_NAME.ToString)
Next RowCount

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
AccessConnection.Close()

End Try

End Sub
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)