DATASNAP 自增长字段问题

mssql数据表中包含有自动增值字段khid,类型为identify(1,1),且为表的主关键字; 在程序中修改和删除都没有问题,但增行时,增行总是提示错误'key violation'! 如何取消这个提示呢?
     通过跟踪源代码,原来这个问题在于datasetprovider (tdatasetprovider)在中间层打包数据时,把数据约束(例如 主键)的信息也打包进去,然后到了客户端,clientdataset (tclientdataset)就会自动判断这些约束条件。但是在数据库设置的自动增量,是数据库自动生成的,这个时候如果在客户端添加数据,自动编号始终为空,就出问题了,因为这个时候数据根本没有提交给数据库,无法自动生成自动编号,可能解决的办法就是改datasetprovider (tdatasetprovider)的源代码,当遇到是自动编号做主键的时候,就不把主键信息打包到数据包里,也没有必要打包到数据包里,因为这个主键由数据库保障了
    既然找到问题的原因了,我们就来修改
    先打开Provider.pas,然后另存为到工程目录下面,然后找到
   procedure TDataPacketWriter.AddIndexDefs(DataSet: TDataSet; const Info: TInfoArray);这个过程,
   把 if not VarIsNull(KeyList) then
          AddAttribute(pcktAttrArea, szPRIMARY_KEY, KeyList, False);
   这两句代码屏蔽掉就可以了,当然还有更先进的办法,即使发现有自增字段的时候,不执行上班的两条语句

posted @   delphi中间件  阅读(1754)  评论(0编辑  收藏  举报
编辑推荐:
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
阅读排行:
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 三行代码完成国际化适配,妙~啊~
· .NET Core 中如何实现缓存的预热?
历史上的今天:
2013-12-03 存储过程如何执行的快速
点击右上角即可分享
微信分享提示