MyDAC 中存储函数的返回值

Question

我正在使用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;

按照这些示例，我对存储函数的执行在变量aStringVariable2 中返回Param1。在查询浏览器中执行函数返回正确的结果。任何有关使用TMyConnection 或TMyStoredProc 在 MyDAC 中执行存储功能的正确方法的指针将不胜感激。

提前致谢。

Answer 1

这是我们用来调用存储过程的代码——希望对你有帮助

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;