Is it true, nobody knows this?

[sunaj]

I posted this question yesterday, but got no answers. Is it not possible?

I'm using ADO 2.5 in VB to create and search in a database.

I would like to ask the database the names of the tables and the name of the database. In MySQL this would be SHOW DATABASES and SHOW TABLES, but what is it in JET SQL or is there an ADO way to do it?

Thanks,
Sunaj

 

[rgh]

I don't know if this is what you are looking for or
not but I hope it helps.


Set catNew = New ADOX.Catalog

catNew.ActiveConnection = "Fred" ' ODBC Connection

For intLoop = 0 To catNew.Tables.Count - 1
msgbox catNew.Tables(intLoop).name
Next intLoop

Set catNew = Nothing


Richard

 

[TheInsider]

Hello,
This works in Access. I am too lazy too paste it into my VB6 compiler to test it.

Sub Test()
Dim t As TableDef

For Each t In CurrentDb.TableDefs
MsgBox t.Name
Next

MsgBox CurrentDb.Name
End Sub

Simply replace the Access built in CurrentDb keyword with the name of your database object. You should be able to modify this to accomplish your task. Rob Marriott
rob@career-connections.net

 

[sunaj]

Thanks to rgh and CCTC1

I got it wotking with rgh's suggestion.
The .tables method also return several other objects (MSysACEs, MSysObjects, MSysQueries, MSysRelationships)

Sunaj