Hallo zusammen,
ich muss dieses Thema hier mal kurz aufgreifen. Warum kommt bei unten gezeigter Methoden die Fehlermeldung im Anhang?
Delphi-Quellcode:
procedure TForm8.FormCreate(Sender: TObject);
var
FTableList : TStringList;
i : Integer;
begin
FTableExist := False;
FTableList := TStringList.Create;
try
dbMon1.FileName := 'MyAppLog.log';
dbMon1.Active := True;
dbMon1.AutoSave := True;
dbCon1.Connect;
dbCon1.GetTableNames('',FTableList);
finally
FTableList.Free;
end;
end;
Die Logdatei zeigt folgendes:
Zitat:
08.01.2011 11:32:41: CONNECT TO "PSSecur" AS USER "SYSDBA"
08.01.2011 11:32:41: TRANSACTION STARTED.
08.01.2011 11:32:41: SELECT DISTINCT a.RDB$RELATION_NAME, a.RDB$SYSTEM_FLAG, a.RDB$VIEW_SOURCE, a.RDB$DESCRIPTION FROM RDB$RELATIONS a
und in der Zeile...
dbCon1.GetTableNames('',FTableList);
passiert der Fehler.
Gruß Jens