Returning Wert in IBDAC Komponente

[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.