【结贴】SQL执行后无响应，要结束任务

zqc

SQL执行后，Buness死掉无响应，要结束任务才行。SQL语句在SQLPlus中执行是对的。

代码如下：
static procedure TMYCOMMONRESOUSE.DepartmentReceiveFileLog(flowID:string;departmentCode:string;
                              departmentName:string;receiveMan:string;receiveDateouble);
var
   SQLText:string;
   lQuery: Business.Data.TQuery;
   strDate:string;
begin
   try
    //strDate:= receiveDate.ToString('YYYY-MM-DD');
    strDate:= SysUtils.FormatDateTime('YYYY-MM-DD',receiveDate);
    SQLText   := 'update TB_DEPARTMENTSENDFILE set F_ReceiveDepartment = '''+ departmentName + ''',F_ReceiveMan = '''
    + receiveMan + ''',F_ReceiveDate = TO_DATE('''+ strDate + ''',''YYYY-MM-DD HH24:MI:SS'')'+ ' where F_FlowID = ''' +
    flowID + ''' and F_ReceiveDeptCode = ''' + departmentCode + '''';

    lQuery := Business.Data.TQuery.Create(nil);
    lQuery.ConnectionString := 'DATABASEURL = Biz:\XAXXHCH\XAXXHCHSJK.DATABASE';
    //SysUtils.Format('DATABASEURL=%s', 'Biz:\XAXXHCH\XAXXHCHSJK.DATABASE');
    lQuery.CommandText := SQLText;
    lQuery.Execute;

  finally
    lQuery.Free;
  end;
end;

zfang

此sql语句直接在数据库中执行 是什么结果

zqc

显示一行被更新

zfang

仅仅执行这个 DepartmentReceiveFileLog 函数就没响应了么？
还是执行到其他的代码 没响应了？

上面的代码 看不出来有什么问题。

zqc

就是执行到Execute时没响应了

zqc

开始报这个错：
com.justep.connection.InvalidConnectionStringException
不过，我的数据库连接串应该没错啊

zqc

---------------------------
X3 Studio
---------------------------
运行系统初始化的时候发生异常：类未注册：com.justep.connection.InvalidConnectionStringException

类型：EPojo。
---------------------------

现在报这个错，奇怪数据库URL是对的。。。
确定   
---------------------------

zqc

如图

shangxy

lQuery.ConnectionString := 'DATABASEURL = Biz:\XAXXHCH\XAXXHCHSJK.DATABASE';
是不是等号两边空格搞的？

如果去掉后还不管用，那自己放一个TQUery控件到窗体上试试。

zqc

不是，原来还好的，怀疑库被动了。。。