Binaryworld - GetDatabaseTables - Retrieving the table names of a database ... [ VB.net -> ADO.net ]

' Returns the names of all the tables in the database identified by the input
' connection string
' Requires Imports System.Data.OleDb
'
' Example:
' Dim tables() As String = GetDatabaseTables
' ("PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=d:\testdb.mdb")
' Dim table As String
' For Each table In tables
'    Debug.WriteLine(table)
' Next

Function GetDatabaseTables(ByVal connString As String) As String()
  Dim cn As New OleDbConnection(connString)
  cn.Open()
  ' get a DataTable with all the info
  Dim dt As DataTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
    New Object() {Nothing, Nothing, Nothing, "TABLE"})
  cn.Close()
  ' save the table names into a string array
  Dim tables(dt.Rows.Count - 1) As String
  Dim i As Integer
  For i = 0 To dt.Rows.Count - 1
    tables(i) = dt.Rows(i)(2)
  Next
  Return tables
End Function