Problem listing database tables
Hi,
My code list all database tables. I have many clients with the code working OK. I´m using the ADOX.Catalog () and a code sample is below:
Dim conn As ADODB.Connection
Dim tbls As ADOX.Catalog
Dim tbl As ADOX.Table
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Properties("Jet OLEDB:Database Password") = "password"
conn.Open "Data Source = " & database_path
Set tbls = New ADOX.Catalog
Set tbls.ActiveConnection = conn
For Each tbl In tbls.Tables
If tbl.Name = "" then
Debug.print "Nothing"
Else
Debug.print tbl.Name
End if
Next
Some days ago, some clients (precisely 2) presented a problem: none table is list.
I have been looking for a solution to this problem for about two weeks, and I haven´t found nothing yet.
Does anybody knows anything about this problem?
Thanks in advance for any help,
Raphael
|