Looping over all the tables in a database

[skiflyer]

This has to be easy, but I have a little VB program which operates on all the tables in a database, as it stands, I have to run it once for each table and tell it the table name... now I know there has to be a way for it to loop over all the tables in the database right?

Anyone want to tell me the incredibly easy way that I can't seem to locate?

I'm using both ADOX and ADOB in the program, so I'd like to stick to one of those rather than adding any DAO if possible.

Thanks,

Rob

 

[rewdee]

How about this:

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

cat.ActiveConnection=currentProject.Connection

For Each tbl in cat.Tables
  if tbl.Type="View" then Debug.Print "Table Name: " & tbl.Name
Next tbl

Hope this helps,
Rewdee