Tabellennamen aus einer TDatabase in eine Stringlist?

[Jens Hartmann]

Ja, genau so...

hier jetzt über eine Click Event...

Delphi-Quellcode:

procedure TForm8.btn1Click(Sender: TObject);
begin
  dbMon1.FileName := 'MyAppLog.log';
  dbMon1.Active   := True;
  dbMon1.AutoSave := True;
  dbCon1.Connect;
  dbCon1.GetTableNames('',cbTables.Items);
{hier wird später eine Abfrage entstehen um eine nicht vorhandene Tabelle anzulegen!}

{  dbCon1.StartTransaction;
  try
    dbPro1.Execute;
  except
    dbCon1.Rollback;
  end;
  dbCon1.Commit; }
end;

Und genau die selbe Fehlermeldung.

Gruß Jens