GetDatabaseTables – Retrieving the table names of a database

GetDatabaseTables – Retrieving the table names of a database

' 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:	estdb.mdb")'   Dim table As String'   For Each table In tables'       Debug.WriteLine(table)'   NextFunction 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 tablesEnd Function

See also - an AI reverse image search platform

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist