Browsing the tables in an access database

[rHasan]

Hi

I want to pass a database path, and display every table name found in an access database, following the column names of every table. How can I do this ?

Regards
Kapalic

 

[Arg81]

I did a search and found this, maybe it'll help you get the correct answer;

    [I][COLOR=black]'Variable to hold path to database[/COLOR][/I]
[COLOR=black]    Dim DatabasePath As String = "Database Path Here;" [I]'DO NOT FORGET THE SEMICOLON(;) AT THE END[/I][/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]    [I]'SQL String to connect to database[/I][/COLOR]
[COLOR=black]    Dim ConnString As String = _[/COLOR]
[COLOR=black]        "Provider= [/COLOR][COLOR=black].Jet.OLEDB.4.0;" & _[/COLOR]
[COLOR=black]        "Data Source=" & DatabasePath & _[/COLOR]
[COLOR=black]        "Persist [/COLOR][COLOR=black]Info=False"[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As.[/COLOR][COLOR=black]EventArgs) Handles MyBase.Load[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        Dim SchemaTable As DataTable[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        [I]'Connect to the database[/I][/COLOR]
[COLOR=black]        Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        Try[/COLOR]
[COLOR=black]            ListBox1.Items.Clear()[/COLOR]
[COLOR=black]            conn.Open()[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]            [I]'Get table and view names[/I][/COLOR]
[COLOR=black]            SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]            Dim int As Integer[/COLOR]
[COLOR=black]            For int = 0 To SchemaTable.Rows.Count - 1[/COLOR]
[COLOR=black]                If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then[/COLOR]
[COLOR=black]                    [I]'Add items to list box[/I][/COLOR]
[COLOR=black]                    ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())[/COLOR]
[COLOR=black]                End If[/COLOR]
[COLOR=black]            Next[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        Catch ex As Exception[/COLOR]
[COLOR=black]            MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        End Try[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]        conn.Close()[/COLOR]
[COLOR=black][/COLOR] 
[COLOR=black]    End Sub[/COLOR]