Возвращаемое значение хранимых функций в MyDAC - PullRequest
Новая
       14

Возвращаемое значение хранимых функций в MyDAC

0 голосов
/ 14 сентября 2010

Я работаю с Devart's 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.

Заранее спасибо.

1 Ответ

0 голосов
/ 14 сентября 2010

Вот код, который мы используем для вызова хранимых процедур - надеюсь, это поможет 

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;
...