Gets the tables collection. | |
Syntax: | Set CimTables = object.Tables |
Description: | The CimDatabase.Tables returns a collection
of tables in the CimDatabase object. Examples Dim oProject as CimProject Dim oDb as CimDatabase Dim oTables as CimTables Set oProject = CreateObject("CimProject") Project.OpenLocalProject
"c:\cimpdemo\cimpdemo.gef" Set oDb = oProject.Database Set oTables = oDb.Tables OR For Each oTable in oDb.Tables MsgBox oTable.Name Next |