Read user tables from access - VB.NET Snipplr Social Repository

Revision: 29761

at August 4, 2010 16:29 by dirkschoeters

Updated Code

Private Sub ReadUserTablesFromAccess(ByVal MDBPath As String)

        Dim userTables As DataTable = Nothing
        Dim iLus As Integer
        Dim restrictions() As String = New String(3) {}
        Dim Con As OleDbConnection = New OleDbConnection()

        If UCase(Strings.Right(MDBPath, 3)) = "MDB" Then
            Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath & """"
        Else
            Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MDBPath & ";Persist Security Info=False;"
        End If

        restrictions(3) = "Table"

        Con.Open()
        userTables = Con.GetSchema("Tables", restrictions)
        Con.Close()

        'Clear table list first
        clb_TablesToCreate.Items.Clear()

        For iLus = 0 To userTables.Rows.Count - 1
            clb_TablesToCreate.Items.Add(userTables.Rows(iLus)(2).ToString())
        Next

    End Sub

Revision: 29760

at August 4, 2010 16:12 by dirkschoeters

Updated Code

Private Sub ReadUserTablesFromAccess(ByVal MDBPath As String)

        Dim userTables As DataTable = Nothing
        Dim iLus As Integer
        Dim restrictions() As String = New String(3) {}
        Dim Con As OleDbConnection = New OleDbConnection()

        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath & """"
        restrictions(3) = "Table"

        Con.Open()
        userTables = Con.GetSchema("Tables", restrictions)
        Con.Close()


        For iLus = 0 To userTables.Rows.Count - 1
            clb_TablesToCreate.Items.Add(userTables.Rows(iLus)(2).ToString())
        Next

    End Sub

Revision: 29759

at August 4, 2010 16:11 by dirkschoeters

Initial Code

Private Sub ReadUserTablesFromAccess(ByVal MDBPath As String)

        Dim userTables As DataTable = Nothing
        Dim iLus As Integer
        Dim restrictions() As String = New String(3) {}
        Dim Con As OleDbConnection = New OleDbConnection()

        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath & """"
        restrictions(3) = "Table"

        Con.Open()
        userTables = Con.GetSchema("Tables", restrictions)
        Con.Close()

        'Maak tabel lijst eerst leeg
        clb_TablesToCreate.Items.Clear()


        For iLus = 0 To userTables.Rows.Count - 1
            clb_TablesToCreate.Items.Add(userTables.Rows(iLus)(2).ToString())
        Next

    End Sub

Initial URL

Initial Description

This snippet reads all user tables from a Access Database

Initial Title

Read user tables from access

Initial Tags

user

Initial Language

VB.NET

Choose a language for easy browsing: