timhans
Programmer
- Jun 24, 2009
- 75
Hello, I was hoping some one could give me guidance, I use the code below to gather table and column names and it works but when I compile my database or when I first open it I get this msg.
msadox.dll version 6.0. is missing or broken
Tried googling answer and using different libraries but can not find solution. am using XP and 2003 access. Any insight is appreciated, thank you
Sub ListTableandColumNamesADOX()
Dim Conn As New ADODB.Connection
'Open connection you want To get database objects
Conn.Provider = "MSDASQL"
Conn.Open "DSN=...;Database=...;", "UID", "PWD"
'Create catalog object
Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveConnection = Conn
'List tables And columns
Dim Table As ADOX.Table, Column As ADOX.Column
For Each Table In Catalog.Tables
For Each Column In Table.Columns
Debug.Print Table.Name & ", " & Column.Name
Next
Next
End Sub
msadox.dll version 6.0. is missing or broken
Tried googling answer and using different libraries but can not find solution. am using XP and 2003 access. Any insight is appreciated, thank you
Sub ListTableandColumNamesADOX()
Dim Conn As New ADODB.Connection
'Open connection you want To get database objects
Conn.Provider = "MSDASQL"
Conn.Open "DSN=...;Database=...;", "UID", "PWD"
'Create catalog object
Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveConnection = Conn
'List tables And columns
Dim Table As ADOX.Table, Column As ADOX.Column
For Each Table In Catalog.Tables
For Each Column In Table.Columns
Debug.Print Table.Name & ", " & Column.Name
Next
Next
End Sub