Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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