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;