Tables: IDatabaseTables;
The Tables property returns an object containing a collection of all tables, stored on database server.
Sub UserProc;
Var
MB: IMetabase;
DBInst: IDatabaseInstance;
Tables: IDatabaseTables;
TabName: IStringList;
Begin
MB := MetabaseClass.Active;
TabName := New StringList.Create;
DBInst := MB.ItemById("BD").Open(Null) As IDatabaseInstance;
Tables := DBInst.Tables;
While Not Tables.Eof Do
TabName.Add(Tables.TableName);
Tables.Next;
End While;
End Sub UserProc;
After executing the example, physical names of all tables stored on BD server, on which the database of repository with identifier database is set up, are contained in the TabName array.
See also: