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;