ADO: collection of tables available?

[bjgolden80]

With RDO you can expose the tables contained within the currently connected database through:

objConn.rdoTables

Is there a similar collection available under ADO ??

Thanks!

 

[bjd4jc]

There is in the ADOX reference.

Dim cat as ADOX.Catalog
Dim tbl As ADOX.Table

set cat = New ADOX.Catalog
cat.ActiveConnection = objConn

For Each tbl In cat.Tables
    Debug.Print tbl.Name
Next

Or you can do a

set rs = objConn.OpenSchema(adSchemaTables)

The field TABLE_NAME will contain the names of each table in the database.

 

[bjgolden80]

Thank you!