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

0

Я работаю с 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 будут оценены.

Спасибо заранее.

Теги:
mydac

1 ответ

0
Лучший ответ

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

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;
  • 0
    Я ожидаю, что нет необходимости писать такой код с коммерческой библиотекой доступа к данным. Разве у MyDAC нет чего-то встроенного для этого?
  • 0
    @oodesigner, функциональность построения MyDAC - это то, о чем я спрашивал, и, похоже, у него нет простого способа работы с хранимыми функциями. Мне удалось вызвать хранимые функции без параметров OUT с помощью одного вызова функции, и я задал вопрос о том, существует ли аналогичный способ сделать то же самое для хранимой функции или процедур без параметров. @ Чарльз, это работает. Спасибо
Показать ещё 1 комментарий

Ещё вопросы

Сообщество Overcoder
Наверх
Меню