Firebird Fehlerhaftes Returning

[Morphie]

ist AsInteger überhaupt richtig?
Wie ist das Feld in FB deklariert?
Wie sieht dein Trigger aus?
Hast du noch weitere Trigger in der Tabelle?

[Pro_RJ]

das Feld ist ein Integer.
der Trigger :

Delphi-Quellcode:

CREATE trigger zaehlerTBL for TBL
active before insert position 0
AS
BEGIN
  NEW.ZAEHLER = GEN_ID(GENTBL,1);
END

Es sind noch andere Trigger in Tabelle vorhanden, diese Belegen aber das Feld nicht.
Das Feld ist ja auch richtig Belegt es kommt nur beim Einfügen im Statement nicht zurück.

[tsteinmaurer]

Ich habe IBX nicht im Einsatz, aber probier mal:

Delphi-Quellcode:

IBSQL.close
IBSQL.sql.clear;
IBSQL.sql.text := 'Insert into TBL (Nr) values (1) Returning Zaehler';
IBSQL.ExecSQL;
IBSQL.ParamByName('Zaehler').asInteger;

Es könnte auch gut sein, dass IBX einfach die RETURNING Klausel von Firebird nicht unterstützt.

[Pro_RJ]

Doch doch, diese Funktion wird unterstützt und Fuktioniert ja auch in 99,999% aller Fälle. nur eben ab und zu bringt diese Funktion eben kein Ergebnis.

[Neutral General]

Hast du gesehen, dass tsteinmaurer "ParamByName" und nicht "FieldByName" benutzt hat?

Bei mir haben die Rückgabe-Parameter manchmal allerdings komische Namen, weswegen ich sie immer über den Index anspreche -> Params[ParamCount-1].AsInteger

[Pro_RJ]

Das Problem ist nicht, das die Funktion IBSQL.FieldByName('Zaehler').asInteger nicht geht. das Problem liegt darin, das der Server den Wert nicht an den Client übermittelt, Der Server ermittelt den Wert richtig und schreibt ihn auch in den Richtigen Datensatz in das Richtige Feld. Das ist ja auch alles IO. nur das Das Feld im Anschluss nicht an den Client übermittelt wird. Das problem ist im übrigen auch nicht nur beim PrimayKey sondern auch bei anderen Felder, die Serverseitig richtig belegt sind aber eben nicht an den Client übermittelt werden

[Lemmy]

Zitat von Pro_RJ:

Das Problem ist nicht, das die Funktion IBSQL.FieldByName('Zaehler').asInteger nicht geht. das Problem liegt darin, das der Server den Wert nicht an den Client übermittelt,

Und da bist Du dir absolut sicher (SQL-Monitor usw.)? Ich habe die 2.1.1 im Einsatz und auch eine Stelle mit Returning - damit hatte ich bei meinen Kunden noch kein Problem (das sind einige tausend Installationen die diese Funktion nutzen).

GRüße

[Pro_RJ]

Da bin ich mir absolut relativ sicher da der Datensatz Serverseitig den richtigen Zähler hat.

ich kann das ganze sehr einfach und sicher prüfen:
Es handelt sich hier um eine schnittstelle. diese Daten werden im 1. Schritt in eine Zwischentabelle gespeichert. "TBL_A". Anschliesend wird diese Eingefügte Datenmenge in einer Schleife durchgearbeitet und diese erzeugt zusätzliche Daten "TBL_B"

der Ablauf ist (schematisch Dargestellt) folgender:

Delphi-Quellcode:

Transaction Starten;
While not TBL_A.Eof do
Begin
  INC(I);
  IBSQL.CLose;
  IBSQL.SQL.Text := 'Insert into TBL_B(Nr) values (' + IntToStr(TBL_a.FieldByName('Zaehler').asINteger) + ') returing Zaehler';
  IBSQL.Execsql;

  Zaehler := IBSQL1.FIeldByName('Zaehler').asNteger;
  IBSQL.CLose;
  IBSQL.SQL.Text := 'Update TBL_A set FremdID = ' + IntToStr(Zaehler) + ' where Zaehler = ' + IntToStr(TBL_a.FieldByName('Zaehler').asINteger);
  IBSQL.Execsql
  TBL_A.Next;
end;
Transaction Commit;

Das heist das es pro TBL_A Datensatz auch einen TBL_B Datensatz geben muss (1=1 Verbindung).
In TBL_A speichere ich mir den neuen Zaehler aus TBL_B und in TBL_B steht der Zaehler aus TBL_A.

Jetzt ist ab und zu mal das Problem, das in TBL_A UND TBL_B ein Datensatz vorhanden ist. In TBL_B steht ein Zaehler aus TBL_A aber in TBL_A ist das Feld Fremd_ID 0 und das Kann einfach nicht sein.

[tsteinmaurer]

Ich selbst hatte damit auch noch nie Probleme, verwende allerdings IBObjects bzw. IBDAC.

@Lemmy: Einige Tausende Installationen? Bist du Mitglieder der Foundation? SCNR.

[mkinzler]

Das Feld wird auch nicht an den Client zurückgegeben, sondern der Wert des Feldes ( in dem entsprechenden Parameter)