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

[Jens Hartmann]

Delphi-Quellcode:

procedure TForm8.btn1Click(Sender: TObject);
var
  TStringVar : TStrings;
  i : Integer;
begin
  dbMon1.FileName := 'MyAppLog.log';
  dbMon1.Active   := True;
  dbMon1.AutoSave := True;
try
  Memo1.Clear;
  TStringVar := TStringList.Create;
  dbCon.GetTableNames('',TStringVar);
  for i := 0 to TStringVar.Count - 1 do
    begin
      if pos ('$',TStringVar[i]) = 0 then
        Memo1.Lines.Add(TStringVar[i]);
    end;
finally
  TStringVar.Free;
end;

so geht es jetzt. Ich hatte im Anwendungsverzeichnis eine falsche fbclient.dll Datei. Man was ein doofer Fehler.

Danke trotzdem Gruß Jens