• 遇到个奇怪的问题,同时开启本地和远程两个事务,远程事务是sql2000没问题,是sql2008的不报错,但是写不上数据


    遇到个奇怪的问题,同时开启本地和远程两个事务,远程事务是sql2000没问题,是sql2008的不报错,但是写不上数据。

    倒腾了4、5天,找到最终的解决办法:直接调用AdoConnection.execute(sq脚本),看来AdoQuery调用AdoConnection的还是有兼容性问题。

    代码如下:

    Function TDM_Base.PassMarkBill(AQuery:TAdoQuery; lTrans:Boolean=True;
      sID:String=''; sMachineID:String=''; sUserName:String='';
      nAddinRate:Real=1; lAllowNegative:Boolean=True; lUpdateLastDate:Boolean=True):Boolean;
    Var qry, qryR:TAdoQuery;
      n:Real; lT:Boolean;
      sErrMsg, sSql:string;
    Begin
      Result:=False; qryR:=nil;
      Qry:=AQuery;
      if not assigned(qry) then qry:=qry_R; 
      qryR:=getNewAdoQuery(qry.connection); //getNewAdoQuery(qry.connection);
      sErrMsg:='';
      With QryR do
      Try
        Close;
        lT:=false;
        if lTrans and (not connection.inTransaction) then begin
            connection.BeginTrans;
            lT:=true;
        end;
        //**************************调用执行sql存储过程***********************//
        //20160727特别说明:用AdoQuery直接执行,在连接远程的事务中,会出现莫名其妙的错误
        //下面屏蔽掉了的代码,执行完了不报错,但是在Frm_SalePos.SaveData中,
        //调用iBaseBiz.moveMarkBill时,然后调用这里,会导致莫名其妙的错误,
        //程序不报错,但是服务器那头没数据,事务自己撤销了
        //********************************************************************//
        sql.text:='declare @n real ';
        sql.add('exec @n=passMarkBill '+quotedStr(sID)+', '+quotedStr(sUserName)+', '+
            floatToStr(nAddinRate)+', '+iif(lAllowNegative,'1','0')+', '+iif(lUpdateLastDate,'1','0')+' ');
        //sql.add(' exec @n=passMarkBill :sID, :sUser, :nRate, :lAllowNegative, :lUpdateLastDate ');
        sql.add('select @n as nResult ');
        //parameters.ParamValues['sID']:=sID;
        //parameters.ParamValues['sUser']:=sUserName;
        //parameters.ParamValues['nRate']:=nAddinRate;
        //parameters.ParamValues['lAllowNegative']:=lAllowNegative;
        //parameters.ParamValues['lUpdateLastDate']:=lUpdateLastDate;
        //open; //execSql
        sSql:=sql.text;
        connection.Execute(sSql); //******用最底层的连接执行没问题********//

        //n:=fields[0].Value;
        //if n<>0 then raise exception.Create('审核出错!返回值非零。'+floatToStr(n));
        //写日志
        writeSysLog(qryR, sID, sID+'审核积分单据', self.name+'.PassMarkBill');
        //
        if lT then connection.CommitTrans;
        Result:=True;
      Except
        On x:Exception do begin
            if lT then connection.RollbackTrans;
            sErrMsg:='[PassMarkBill]审核积分单'+sID+'出错!'#13+x.message;
        End;
      End;
      if assigned(qryR) then freeAndNil(qryR);
      if sErrMsg<>'' then Raise Exception.Create(sErrMsg);
    End;

  • 相关阅读:
    原创 C++应用程序在Windows下的编译、链接(四)动态链接
    IE浏览器 json异常
    Linux系统github使用
    Mysql in 排序
    转 php四种基础算法:冒泡,选择,插入和快速排序法
    转 mysql取今天,明天,工作日,周末,本周,下周,下月数据
    下载远程图片到本地
    转 PHP中SQL_CALC_FOUND_ROWS与FOUND_ROWS()和count()
    星级点评
    21个值得收藏的Javascript技巧
  • 原文地址:https://www.cnblogs.com/HaiHong/p/haihong.html
Copyright © 2020-2023  润新知