How to use RETURNING in TUniquery
Posted: Tue 10 Mar 2015 06:44
Hello,
I am using TUniQuery (UniDac Professional, no source code) for Firebird.
In Firebird database, there are a serial type field (for autoincrement)
and Trigger (this trigger generates serial number to upper autoincrement field, when an insert is performed.)
I tried to use the "insert into ... returning" syntax in a parametrized TUniQuery in order to get the generated key value, but I cannot get proper result. Returned value(ID) has null.
Please help me! (Delphi7, Unidac6.0.2, Firebird 2.1)
I am using TUniQuery (UniDac Professional, no source code) for Firebird.
In Firebird database, there are a serial type field (for autoincrement)
and Trigger (this trigger generates serial number to upper autoincrement field, when an insert is performed.)
I tried to use the "insert into ... returning" syntax in a parametrized TUniQuery in order to get the generated key value, but I cannot get proper result. Returned value(ID) has null.
Please help me! (Delphi7, Unidac6.0.2, Firebird 2.1)
Code: Select all
var ID:integer;
Try
If DM.UniConn.InTransaction=False Then DM.UniConn.StartTransaction;
with Uniquery do
begin
close;
sql.clear;
sql.add('Insert Into CONSULTANT (Name,JIKWI,PART) values(:Name,:JIKWI,:PART) Returning ID');
ParambyName('Name').DataType:=ftString;
ParambyName('Name').ParamType:=ptInput;
ParambyName('JIKWI').DataType:=ftString;
ParambyName('JIKWI').ParamType:=ptInput;
ParambyName('PART').DataType:=ftString;;
ParambyName('PART').ParamType:=ptInput;
with TParam(Params.Add) do begin
Name:='ID';
DataType:=ftInteger;
ParamType:=ptOutput;
end;
ParambyName('Name').AsString:=trim(Ed_Name.Text);
ParambyName('JIKWI').AsString:=trim(Ed_JikWi.text);
ParambyName('PART').AsString:=trim(Ed_Part.text);
Execsql;
ID := ParamByName('ID').Value;
end;
DM.UniConn.CommitRetaining;
Except
DM.UniConn.RollbackRetaining
End;