2 bigman
Ну если писать по науке, то в Query есть выходные параметры.
Как присвоить им возвращаемые значения из Stored Proc ?
Выходных параметров в запросе нет. Они есть у хранимых процедур. Если надо вызвать хп с выходными параметрами, то в TQuery пишут (для MS SQL)
EXEC dbo.SomeProc :InputParam, :OutputParam OUTPUT
или используют TStoredProc.
Тока, если ты работаешь с TQuery. То и параметры, как и SQL надо добавлять.
Вот тебе пример динамического создания и использования TStoredProc.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
function RunGranted(DB: TDatabase): boolean;
var
Proc: TStoredProc;
Msg: string;
CheckResult: integer;
begin
Result := False;
Proc := TStoredProc.Create(Application);
try
Proc.DatabaseName := DB.DatabaseName;
Proc.StoredProcName := 'usp_CheckAppPermissions';
Proc.Params.CreateParam(ftString, '@App', ptInput);
Proc.Params.CreateParam(ftInteger, 'Result', ptResult);
Proc.ParamByName('@App').AsString := AnsiUpperCase(ExtractFileName(Application.ExeName));
try
Proc.ExecProc;
CheckResult := Proc.ParamByName('Result').AsInteger;
if CheckResult = 0 then
...
else
Result := True;
except
on E: Exception do begin
...
Exit;
end;
end;
finally
Proc.Free;
end;
end;
Если используешь наследников TCustomADODataSet, то там у коллекции параметров есть метод Refresh.
![Лекс[КВ]](skins/default/desktop/images/guest.jpg?rnd=7828)
