MyDAC中存储函数的返回值
问题描述:
我正在使用Devart's MyDac和MySQL Server 5.0.41。下面是从文档上执行的存储过程与TMyConnection.ExecProc
一个部分:MyDAC中存储函数的返回值
注:存储不同于存储过程函数返回通过RESULT参数内部获得结果值。您将不再需要在Params数组中提供匿名值来描述函数的结果。存储的函数结果是从Params [0]索引属性或ParamByName('RESULT')方法调用获得的。
他们还就如何执行存储功能的例子:在变量aStringVariable2
.The
aStringVariable1 := TMyConnection.ExecProc('StoredFunctionName',['Param1','Param2']);
aStringVariable2 := TMyConnection.ParamByName('Result').AsString;
通过以下的例子,我的存储功能的执行正在返回Param1
查询浏览器中的函数执行返回正确的结果。将赞赏在正确的方式执行存储在MyDAC TMyConnection
或TMyStoredProc
功能的任何指针。
在此先感谢。
答
这里是我们用来调用存储过程的代码 - 希望它有助于
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有一些内置的东西? – oodesigner 2010-09-14 09:20:39
@oodesigner,我的问题是MyDAC builting功能,它似乎没有一种简单的方式来处理存储的函数。我可以在不带'OUT'参数的情况下调用一个函数调用的存储函数,我问了一个问题,想知道是否有类似的方法来执行存储的函数或带有out参数的过程。 @Charles,这个工程。感谢 – NicM 2010-09-14 15:27:11
存储过程,没有'OUT'参数而没有存储函数 – NicM 2010-09-14 18:21:10