Einzelnen Beitrag anzeigen

khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.903 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Firebird fehlerhaft auf 64 bit Maschine?

  Alt 5. Apr 2012, 10:21
folgender Trigger ( before însert)

Code:
AS
begin
  /* Trigger text */

  IF (NEW.USELOG_ID IS NULL) THEN
     NEW.USELOG_ID = GEN_ID(GEN_USELOG_ID,1);

end
die Logtabelle dient zum Loggíng verschiedener Aktivitäten und wird wie folgt geschrieben.


Code:
    FQuery1.SQL.clear;
     FQuery1.SQL.add('select ');
     FQuery1.SQL.add('*');
     FQuery1.SQL.add('from USELOG where ');
     FQuery1.SQL.add('USELOG_ID = :USELOG_ID');
     FQuery1.ParamByName('USELOG_ID').AsInteger := FUSELOG_ID;
     FQuery1.open; // liefert eine leere datenmenge
     FQuery1.append; // neuen Datensatz anhängen
     {wird vom DB-Trigger erledigt }
  // FQuery1['USELOG_ID']:= USELOG_ID;

     FQuery1['ARBEITSPLATZID']:= FARBEITSPLATZID;
     FQuery1['PROGRAMMNAME']:= FPROGRAMMNAME ;
     FQuery1['BENUTZER']:= FBENUTZER ;
     FQuery1['LOGWERT1']:= FLOGWERT1;
     FQuery1['LOGWERT2']:= FLOGWERT2;
     FQuery1['LOGWERT3']:= FLOGWERT3;
     FQuery1['INORDNUNG']:= FINORDNUNG;
     FQuery1['AENDERTIME']:= FAENDERTIME;
     FQuery1['AENDERER']:= FAENDERER ;
     FQuery1.post;
der Fehler ist bisher nur auf diesem einen System aufgetreten.
Auf allen 32-bit-Maschinen kann ich den Fehler nicht reproduzieren.
Karl-Heinz
  Mit Zitat antworten Zitat