Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#29

Re: Create Table mit Firebird und ZEOS, wie richtig machen

  Alt 28. Jan 2010, 19:46
Hallo,

SELECT 1 FROM rdb$relations where rdb$relation_name = :TableName

if Qry_DataVersion.RecordCount = 0

Das passt nicht !!!

Prinzipiell nie !! auf RecordCount prüfen ...

Existiert die Tabelle, wird 1 zurückgegeben -> RecordCount=1
Existiert die Tabelle nicht, wird NULL zurückgegeben -> RecordCount=1


Du musst auf nach dem Open auf Qry_DataVersion.Fields[0].AsString='1' prüfen !


Ausserdem fehlt ein Transaktions-Management,
sonst kann es passieren, die Tabelle existiert,
aber der Generator nicht.

DB.StartTransaction
try
finally
end;


Heiko
Heiko
  Mit Zitat antworten Zitat