Returning Wert in IBDAC Komponente

[MrSpock]

Hallo,

wenn ich in einer InsertQuery einen Wert zurückgebe:

Code:

INSERT into MyTAble
  (feld1, feld2)
VALUES
  (wert1, wert2)
RETURNING wert3

und das über die IBDAC Komponenten TIBCQuery (InsertSQL) an die Datenbank übertrage. Wie komme ich dann über diese Komponente an wert3 (also den returning value)?

Habe es über die Parameterliste versucht:

Code:

INSERT into MyTAble
  (feld1, feld2)
VALUES
  (wert1, wert2)
RETURNING wert3 INTO :w3

aber RETURNING INTO mag Firebird nicht. Es wäre deshalb interessant zu wissen, was ist an dem RETURNING INTO Statement falsch und welcher andere Weg gibt mit wert3 zurück?

[mkinzler]

Sollte eigentlich gehen.

Ohne das into heisst der Parameter RET_<FELD> als hier RET_Wert3 oder du greifst per Index zu

[MrSpock]

Auch wenn ich dasSQL Statement direkt in IBExpert eingebe, mag er die Rückgabe in einen Parameter nicht.

Die Abfrage von ParamByName('RET_ERFASS_NR') (der Wert3 heißt ERFASS_NR), meldet, dass es einen solchen Parameter nicht gibt. Die Anzahl der Parameter erhöht sich übrigens nach dem RETURNING nicht.

[mkinzler]

Ein Returnparamter ist ja eigentlich kein Parameter, sondern es wird von der Zugriffsbibliothek nur so behandelt.

Ist ParamCheck und Options.ReturnParams gesetzt?

[knight]

Verwendest du Query.Open ? Bei anderen Komponenten funktionieren Konstruktionen wie

xyz := Query1.FieldByName('wert3').AsInteger;

Vielleicht funktioniert das auch bei IBDAC.

knight

[mkinzler]

Ich habe es mal testweise nachgestellt ( UniDAC: verwendet ja den selber Code wie IBDAC). Bei mir funktioniert es ohne das into (Gibt es wohl nur in PL/SQL)

[haentschman]

Hallo MrSpock...
Einfach mal ein Beispiel an dem du das alles siehst...

Delphi-Quellcode:

procedure TdAV_Database_FB.Save(Employee: TdAV_PlantEmployee);
var
  Query: TIBCQuery;
begin
  Query:= CreateInterfacedQuery;
  case Employee.State of
    dsNew:
    begin
      Query.SQL.Text:= 'insert into T_PLANT_EMPLOYEES (F_PLANT_ID,F_EMPLOYEE_NUMBER, F_FIRST_NAME, F_NAME,F_CERTIFICATION) values ';
      Query.SQL.Add('(:PID,:EMN,:FNA,:LNA,:CER) returning ID');
      Query.ParamByName('PID').AsInteger:= Employee.PlantID;
      Query.ParamByName('FNA').AsString:= Employee.FirstName;
      Query.ParamByName('LNA').AsString:= Employee.Name;
      Query.ParamByName('EMN').AsString:= Employee.PersonalNumber;
      Query.ParamByName('CER').AsString:= Employee.Certification;
      Query.ExecSQL;
      Employee.ID:= Query.ParamByName('RET_ID').AsInteger;
    end;
    dsModified:
    begin
      Query.SQL.Text:= 'update T_PLANT_EMPLOYEES set F_EMPLOYEE_NUMBER = :EMN,F_FIRST_NAME = :FNA,F_NAME = :LNA, F_CERTIFICATION= :CER where ID = :ID';
      Query.ParamByName('ID').AsInteger:= Employee.ID;
      Query.ParamByName('FNA').AsString:= Employee.FirstName;
      Query.ParamByName('LNA').AsString:= Employee.Name;
      Query.ParamByName('EMN').AsString:= Employee.PersonalNumber;
      Query.ParamByName('CER').AsString:= Employee.Certification;
      Query.ExecSQL;
    end;
    dsDeleted:
    begin
      Query.SQL.Text:= 'delete from T_PLANT_EMPLOYEES where ID = :ID';
      Query.ParamByName('ID').AsInteger:= Employee.ID;
      Query.ExecSQL;
    end;
  end;
end;

...sorry für die doppelte Lösung. Zu spät.

[MrSpock]

Zitat von mkinzler:

Ein Returnparamter ist ja eigentlich kein Parameter, sondern es wird von der Zugriffsbibliothek nur so behandelt.

Ist ParamCheck und Options.ReturnParams gesetzt?

ParamCheck finde ich bei IBDAC nicht. ReturnParams ist auf True gesetzt, aber es wird kein Parameter erzeugt. Ich prüfe explizit die nzahl der Parameter und die ist und bleibt bei 2 (Input) Parametern.

Zitat von mkinzler:

Ich habe es mal testweise nachgestellt ( UniDAC: verwendet ja den selber Code wie IBDAC). Bei mir funktioniert es ohne das into (Gibt es wohl nur in PL/SQL)

Das SQL Statement ohne INTO funktioniert, aber wie greifst du auf das Ergebnis zu?

Zitat von haentschman:

Hallo MrSpock...
Einfach mal ein Beispiel an dem du das alles siehst...

Delphi-Quellcode:

procedure TdAV_Database_FB.Save(Employee: TdAV_PlantEmployee);
var
  Query: TIBCQuery;
begin
  Query:= CreateInterfacedQuery;
  case Employee.State of
    dsNew:
    begin
      Query.SQL.Text:= 'insert into T_PLANT_EMPLOYEES (F_PLANT_ID,F_EMPLOYEE_NUMBER, F_FIRST_NAME, F_NAME,F_CERTIFICATION) values ';
      Query.SQL.Add('(:PID,:EMN,:FNA,:LNA,:CER) returning ID');
      Query.ParamByName('PID').AsInteger:= Employee.PlantID;
      Query.ParamByName('FNA').AsString:= Employee.FirstName;
      Query.ParamByName('LNA').AsString:= Employee.Name;
      Query.ParamByName('EMN').AsString:= Employee.PersonalNumber;
      Query.ParamByName('CER').AsString:= Employee.Certification;
      Query.ExecSQL;
      Employee.ID:= Query.ParamByName('RET_ID').AsInteger;
    end;
    dsModified:
    begin
      Query.SQL.Text:= 'update T_PLANT_EMPLOYEES set F_EMPLOYEE_NUMBER = :EMN,F_FIRST_NAME = :FNA,F_NAME = :LNA, F_CERTIFICATION= :CER where ID = :ID';
      Query.ParamByName('ID').AsInteger:= Employee.ID;
      Query.ParamByName('FNA').AsString:= Employee.FirstName;
      Query.ParamByName('LNA').AsString:= Employee.Name;
      Query.ParamByName('EMN').AsString:= Employee.PersonalNumber;
      Query.ParamByName('CER').AsString:= Employee.Certification;
      Query.ExecSQL;
    end;
    dsDeleted:
    begin
      Query.SQL.Text:= 'delete from T_PLANT_EMPLOYEES where ID = :ID';
      Query.ParamByName('ID').AsInteger:= Employee.ID;
      Query.ExecSQL;
    end;
  end;
end;

...sorry für die doppelte Lösung. Zu spät.

Wie gesagt, bei mir gibt es nach dem Insert Statement den Parameter ERFASS_NR nicht und auch RET_ERFASS_NR nicht. Ich hab ihn deshalb vorher über ParamCreate erzeugt, dann ist aber der Wert nach dem Insert Aufruf 0.

[mkinzler]

Zitat:

ParamCheck finde ich bei IBDAC nicht.

https://www.devart.com/ibdac/docs/in...paramcheck.htm

Zitat:

Das SQL Statement ohne INTO funktioniert, aber wie greifst du auf das Ergebnis zu?

Über den Parameter RET_ID (siehe auch Screenshot 2 + 3)

[haentschman]

Zitat:

ParamCheck finde ich bei IBDAC nicht.

..siehe Bild.

Es sollte aber alles mit den Grundeinstellungen nach dem Erzeugen funktionieren...