数据保存的时候报错，麻烦帮分析下**

wqh

一个表单的数据保存时候，大部分时候保存没有问题，但偶尔会出现如下错误提示，
请分析下原因：

代码如下；
with DS.Connection.Transaction do
    begin
      lTransactionHandle := Start(False);    //启动事务 Start
      try
        DS.ApplyUpdates;
        if not TINFO_LJCGRK(InfoBroker.Info).updateStockKC_SAVE(FOperstatus) then raise exception.Create('更新库存信息失败');
        Commit(lTransactionHandle);   //  提交事务
        if ChkSavePrint.Checked then
        begin
          TINFO_LJCGRK(InfoBroker.Info).PreparePrintView(DS.FieldByName('ID').asString);
          TSheetDoc(RptView.doc).exporter.Printex(false, true);
         // RptView.Print ;
        end;
        if (Sender as TToolButton).Caption ='保存' then
          ModalResult:=Business.Forms.Controls.mrOk
        else begin
          FOperstatus:='新增';
          DisplayRecord;
          if DataEdtPCODE.CanFocus then DataEdtPCODE.SetFocus ;
        end;
      except
        Rollback(lTransactionHandle);  //回滚事务
        raise;
      end;
    end;

wqh

还有错误界面

alang

1楼的图
把Commit 和 except之间的代码都弄到Try except end的外面去

alang

2楼的错误，从图片上看不象是平台的报错
如果是执行SQL语句报错的话，平台一般是 xxx getRecords xxx 之类的提示信息

wqh

好，试试。

wqh

我看到了错误的提示：如下图。
取数据的代码如下：现在是啥原因呢？ 代码应该没有问题，是否应用服务器？ 注：出现问题的岗位人员操作速度比较快，保存数据的频率比较快。是否啥原因导致数据库锁表？

static function TWSL.GetDataSetBySQL(strSQL:String)bject; //根据提交的SQL文本返回数据集
var
  lDS : TQuery;
begin
  lDS:=TQuery.Create(nil);
  try
    try
      lDS.ConnectionString:='DATABASEURL=Biz:ECISECISDB.Database';
      lDS.CommandText:=strSQL;
      lDS.Open;

    except
      on E: Exception do
        raise exception.Create('执行SQL语句失败，SQL文本：'+strSQL+' 异常内容：'+E.Message);    end;
    Result:=lDS.Data;
  finally
    lDS.Free;
  end;
end;

alang

请楼主检查一下 windows\system32\midas.dll 文件的日期、版本号等
跟 X3 Server\client\NewVersion\install\midas.dll 文件比较一下

wqh

看了，是一样的。版本。

atiger

楼主，看这个问题有点晕，1楼的问题已经ok了，是吧。

2楼的错误就是6楼的代码，是吗？

那么1和2楼有关系吗？

另外，你说“出现问题的岗位人员操作速度比较快，保存数据的频率比较快。是否啥原因导致数据库锁表？”
1、你是否启动了立即事务？
2、如果操作的速度快（快到何程度），如果不快，是否正常。
3、保存数据不频繁就正常了。

atiger

??