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;

通过以下示例，我执行的存储函数在变量Param1中返回aStringVariable2。查询浏览器中函数的执行返回正确的结果。有关使用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;

MyDAC中存储函数的返回值

1 个答案: