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。クエリ ブラウザで関数を実行すると、正しい結果が返されます。TMyConnectionまたはを使用して MyDAC に保存された関数を実行する正しい方法に関するポインタは、TMyStoredProc高く評価されます。

前もって感謝します。

4

1 に答える 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;
于 2010-09-14T08:02:52.443 に答える