From ODAC to UniDAC (2)
Posted: Wed 28 May 2014 16:28
Dear Devart;
The following code is executed in ODAC, but when using UniDAC it did not, it seems that UniDAC did not understand result parameter as a default ????, how can using the same code with UniDAC
in ODAC
in UniDAC
The following code is executed in ODAC, but when using UniDAC it did not, it seems that UniDAC did not understand result parameter as a default ????, how can using the same code with UniDAC
Code: Select all
vCount := conn.ExecSQL('begin select count(*) into :result from A; end;', [0]);in ODAC
Code: Select all
function TOraSQL.FindResultParam: TDAParam;
begin
Result := Params.FindParam('Result');
end;Code: Select all
function TUniSQL.FindResultParam: TDAParam;
var
i: integer;
begin
Result := nil;
for i := 0 to Params.Count - 1 do
if Params[i].ParamType = ptResult then
Result := Params[i];
if Result <> nil then
if Result.DataType = ftUnknown then
Result.DataType := ftInteger;
end;