Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 7, 2003

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:\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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap