Tabellendefinition mit SQLDMO abfragen

[Christoph Krieg]

Hallo,

ich möchte die Tabellendefinitionen einer SQL-Server-Datenbank abfragen. Kann natürlich auch sein dass ich mit dieser Vorgehensweise total daneben liege.

Ich habe das mir das so vorgestellt:

uses SQLDMO_TLB;

procedure ReadDataDefinition1;
var
  SQLServ        : SQLServer;
  SQLDataBase: Database;
  SQLTable       : Table;
  TableNames   : SQLObjectList;
  dbIdx             : Integer;

begin
  dbIdx:=0;
  SQLServ:=coSQLServer.Create;
  SQLServ.LoginSecure:=True;
  SQLServ.Connect(SQLDBServer, '', '');
  for i:=1 to SQLServ.Databases.Count do
  begin
    if SQLServ.Databases.ItemByID(i).Name = SQLDB then
      dbIdx:=i;
  end;
  SQLDataBase:=coDataBase.Create;
  SQLDataBase:=SQLServ.Databases.ItemByID(dbIdx);
  TableNames:=SQLDataBase.ListObjects(8, 0);
  for i:=1 to TableNames.Count do
  begin
        SQLTable:=coTable.Create;

    --->>> Wie komme ich jetzt über SQLObjectList an meine Tabelle?

    SQLTable:=SQLDatabase.Tables.Item(TableNames.Item(i)  ??????  , '');
  end;
end;

Ich benutze deshalb SQLObjectList weil: SQLDataBase.Tables.Count auch die ganzen Systemtabellen einschliesst.

Wäre schon wenn mir von Euch auf die "Sprünge" helfen könnte. Oder hat jemand ein Beispiel für den Umgang mit SQLDMO???

Vielen Dank und viele Grüße

Christoph