|
大家好,
我在X3平台:执行存储过程一半,提示“运行系统初始化的时候发生异常:error occur during invoke getrecords method,The executeQuery method must return a result set ”的错误,
出现这个错误提示的时候,代码就跳到“ FStoredProc.Active:=True;
”,如下图所示:
具体本人写的代码如下
procedure TMainForm.ConPermissExecute(Sender: TObject);
var
FStoredProc:TStoredProc; //存储过程
begin
if JsDialogs.ConfirmBox('准备配置部门的所有OA单据流程,可能需要三四分钟时间,请耐心等待!!','提示', 1) then
begin
FStoredProc:=TStoredProc.Create(Self);
try
//FStoredProc.ConnectionString := OACOMMMONLIB.TOACommon.GetSysInteUrl;
FStoredProc.ConnectionString:='DATABASEURL=Biz:SYSINTESYSTEMINTDB.Database';
FStoredProc.Active:=False;
FStoredProc.StoredProcName:='linbinAdd0Level';
FStoredProc.Params.ParamByName('@fisverifydept').AsString:= Edit1.text; //部门ID参数
FStoredProc.Active:=True;
finally
FStoredProc.Free;
end;
jsDialogs.ShowMsg('部门流程配置完成','提示');
end
else
begin
SysUtils.Abort;
end;
end;
请各位看一下,哪里需要修改,谢谢。。。
|
|