Read table schema : Microsoft Jet « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Microsoft Jet

Read table schema

 
Sub ReadSchema()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data source=" & CurrentProject.Path & "\mydb.mdb"
        .Open
    End With
    Set rst = conn.OpenSchema(adSchemaTables)
    Do Until rst.EOF
        Debug.Print "Catalog: " & rst!Table_Catalog
        Debug.Print "Schema: " & rst!Table_Schema
        Debug.Print "Table Name: " & rst!Table_Name
        Debug.Print "Type: " & rst!Table_Type
        Debug.Print "Date Created: " & rst!Date_Created
        Debug.Print "Date Modified" & rst!Date_Modified
        Debug.Print
        rst.moveNext
    Loop
    rst.Close
    conn.Close
    
    Set rst = Nothing
    Set conn = Nothing

End Sub

 

Related examples in the same category