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.

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

[MrSpock]

OK, ParamCheck kann ich über Code ansprechen. Es ist (wenn ich nicht blind bin) aber nicht über den Object - Inspector zugreifbar.

Jetzt ist es auch noch so, dass ich die Query ja im in eine IBCQuery Komponente nicht unter dem "HauptSQL" eingetragen habe, sondern auf dem Reiter InsertSQL.

[mkinzler]

Dieser Code wirkt bei Query.Insert und dient dazu das alte Verhalten der BDE nachzubilden.

[MrSpock]

Ja, und wenn der nutzere einen neuen Datensatz hinzufügt (z.B. über den DBNavigator) wird dieses SQL Statement ausgeführt. Hab ich gerade noch einmal geprüft. D.h. die Query wird korrekt ausgeführt, aber die Parameterliste gilt wohl nur für das Haupt SQL Statement, also dem SELECT Statement.

[mkinzler]

Ja. Die DML Statements kann man sich auch automatisch erzeugen lassen.
Der neu erzeugte Datensatz wird nach dem Insert zum aktuellen DS. Du kannst also nach dem Insert direkt das Feld auslesen.

[MrSpock]

Jetzt hab ich folgendes Phänomen:

In der AfterPost Methode, schaue ich mir den Wert von Erfass_Nr an. Wenn ich das "returning erfass_nr" weglasse (weil ich es ja gar nicht auswerte), ist der Wert von Erfass_Nr leer. Lasse ich das "returning" statement drin, kann ich den Wert auslesen.

Jetzt habe ich eine zweite Datenmenge und mache es genauso. Lasse mir im Insertstatement den Wert, der durch einen Trigger in der DB gesetzt wird durch returning zurückgeben, aber in der AfterPost Methode ist der Wert leer. In der DB steht er richtig.

Ich verstehe daran 2 Dinge nicht:

1. Warum hat das "returning erfass_nr" in der ersten InsertQuery einen Einfluss
2. Warum geht es in der anderen Datenmenge gar nicht?