Я работаю с Devart MyDac и MySQL Server 5.0.41. Ниже приведен раздел из документации по выполнению хранимых процедур с помощью TMyConnection.ExecProc
:
Примечание. Хранимые функции, в отличие от хранимых процедур, возвращают значения результата, полученные внутренне через параметр RESULT. Вам больше не нужно будет предоставлять анонимное значение в массиве Params, чтобы описать результат функции. Результат хранимой функции получается из свойства индексирования Params [0] или с вызовом метода ParamByName ('RESULT').
Они также приводят пример о том, как выполнить сохраненную функцию:
aStringVariable1 := TMyConnection.ExecProc('StoredFunctionName',['Param1','Param2']);
aStringVariable2 := TMyConnection.ParamByName('Result').AsString;
Следуя этим примерам, мое выполнение хранимых функций возвращает Param1
в переменной aStringVariable2
. Выполнение функций в браузере запросов возвращает правильные результаты. Любые указатели на правильном пути выполнения хранимых функций в MyDAC с помощью TMyConnection
или TMyStoredProc
будут оценены.
Спасибо заранее.
Вот код, который мы используем для вызова хранимых процедур - надеюсь, что он поможет
function TDbControl.DatabaseStoredProc(FConnectionsAddr: integer; SpName: string;var Params: TDAParams): boolean;
var
MyStoredProc: TMyStoredProc;
PramsTxt: String;
Idx, Idx2: Integer;
begin
result := False;
MyStoredProc := nil;
try
try
MyStoredProc := TMyStoredProc.Create(nil);
MyStoredProc.Connection := TMyConnection(FConnectionsAddr);
MyStoredProc.StoredProcName := SpName;
MyStoredProc.ParamCheck := False;
if assigned(Params) then
begin
for Idx := 0 to Params.Count - 1 do
begin
MyStoredProc.ParamByName(Params[Idx].Name).DataType := Params[Idx].DataType;
MyStoredProc.ParamByName(Params[Idx].Name).Value := Params[Idx].Value;
end;
end;
MyStoredProc.Execute;
if assigned(Params) then
begin
for Idx := 0 to Params.Count - 1 do
begin
if (Params[Idx].ParamType = ptOutput ) then
Params[Idx].Value := MyStoredProc.ParamByName(Params[Idx].Name).Value;
end;
end;
result := True;
except
on E: Exception do
begin
PramsTxt := '';
if assigned(Params) then
begin
for Idx2 := 0 to Params.Count - 1 do
begin
PramsTxt := PramsTxt + Params.Items[Idx2].Name + '=' + Params[Idx2].AsString + ',';
end;
end;
LogText(FConnectionsAddr, 'DatabaseStoredProc Err:' + E.Message + ' SpName:' + SpName + ' Prams:' + PramsTxt);
raise ;
end;
end;
finally
FreeAndNil(MyStoredProc);
end;
end;
OUT
с помощью одного вызова функции, и я задал вопрос о том, существует ли аналогичный способ сделать то же самое для хранимой функции или процедур без параметров. @ Чарльз, это работает. Спасибо