Listing All ADOCE Tables

The MSysTables system table contains a list of all the database tables. The following code example shows how to list all ADOCE tables.

Dim rs, rc, strList
Set rs = CreateObject("adoce.recordset")
rs.Open "MSysTables", "", 1, 3
rc = rs.RecordCount
For r = 0 To rc - 1
strList = strList & rs.fields("TableName").Value & vbCrLf
rs.MoveNext
Next
rs.Close
MsgBox strList,,"ADOCE Tables"
Set rs = Nothing