MyDAC中存储函数的返回值

Question

我正在使用Devart's MyDac和MySQL Server 5.0.41。下面是从文档上执行的存储过程与TMyConnection.ExecProc一个部分：

注：存储不同于存储过程函数返回通过RESULT参数内部获得结果值。您将不再需要在Params数组中提供匿名值来描述函数的结果。存储的函数结果是从Params [0]索引属性或ParamByName（'RESULT'）方法调用获得的。

他们还就如何执行存储功能的例子：在变量aStringVariable2 .The

aStringVariable1 := TMyConnection.ExecProc('StoredFunctionName',['Param1','Param2']); aStringVariable2 := TMyConnection.ParamByName('Result').AsString;

通过以下的例子，我的存储功能的执行正在返回Param1查询浏览器中的函数执行返回正确的结果。将赞赏在正确的方式执行存储在MyDAC TMyConnection或TMyStoredProc功能的任何指针。

在此先感谢。

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;