不是delphi疯了就是我疯了，关于adoquery的Post

[仙侣步惊云]

一个简单的数据录入问题：
先在窗口放置几个Edit,然后：
myADOQuery.Close;
myADOQuery.SQL.Clear;
myADOQuery.SQL.Add('select id,xm,xb,whcd,kscj from tbM where 1<>1');
myADOQuery.Open;
myADOQuery.edit;
myADOQuery.FieldByName('id').AsInteger:=IntToStr(Editid.text);
myADOQuery.FieldByName('xm').Asstring:=Editxm.text;
myADOQuery.FieldByName('xb').Asstring:=Editxb.text;
myADOQuery.FieldByName('whcd').Asstring:=Editwhcd.text;
myADOQuery.FieldByName('kscj').AsInteger:=IntToStr(Editkscj.text);
try
myADOQuery.post;
showmessage('保存成功！');
except
showmessage('保存错误！');
end;

以前一直是这样做录入，没什么问题
最近却发现不可思议的问题：
当采用二层设计时，数据录入量大时（如每秒种1-3条录入），会发现记录丢失的情况，大约是每二、三千条丢失5-10条情况，并且中间没有任何提示错误。
使用的环境是：服务器win2003，客户端winxp sp2,mdac版本2.8

现在是客户已经录了10多万条数据，大约丢失了好几百条记录，中间却不知丢失了那些记录，又是一篇一篇的查。

将myADOQuery的locktype改为ltBatchOptimistic，使用UpdateBatch(arAll)更新后，丢失的记录减少到个位数，但还是有问题。
问题根源：
1、post有问题？
2、mdac版本？
3、用户的电脑操作系统？
4、病毒？

[天之雪狐]

事务的处理，并不在于数据的多少，事务出现的本质就是为了解决数据延迟或异步操作的，所以，对于数据库的操作，最好还是加上事务，不要偷这个懒，如果不加上，就算你不用Delphi，而用C++或其他任何编程语言，都会出现数据丢失的情况。

[柯本]

感觉上2的可能性最大，以前遇过ADO的某些版本对某些数据库操作有问题（其实BDE也碰到过，早期用BCB5.0,用它连接oracle时，查到20条记录居然返回40条，查了一星期，才发现是BDE的一个BUG），所以建议LZ换个数据引擎做测试。首先排除数据引擎的问题。其它几项感觉不太可能。（当然post本身与引擎有关）

[静远]

应该添加新数据是Append，修改才是Edit？

[火龙岛主]

myADOQuery.Close;
myADOQuery.SQL.Clear;
myADOQuery.SQL.Add('select id,xm,xb,whcd,kscj from tbM where 1<>1');
myADOQuery.Open;
myADOQuery.edit;
myADOQuery.FieldByName('id').AsInteger:=IntToStr(Editid.text);
myADOQuery.FieldByName('xm').Asstring:=Editxm.text;
myADOQuery.FieldByName('xb').Asstring:=Editxb.text;
myADOQuery.FieldByName('whcd').Asstring:=Editwhcd.text;
myADOQuery.FieldByName('kscj').AsInteger:=IntToStr(Editkscj.text); //这里也不对啊，应该为：myADOQuery.FieldByName('kscj').AsInteger:=StrToInt(Editkscj.text);

try
myADOQuery.post;
showmessage('保存成功！');
except
showmessage('保存错误！');
end

楼主贴一个模拟代码，如何解惑？

[huangheguyun]

很有可能是2，因为我曾遇到过类似的情况，更新ADO数据连接版本后问题解决。

[仙侣步惊云]

try
myConnect.BeginTrans;
....
myADOQuery.Post;//
myADOQuery.UpdateBatch(arALL);
myConnect.CommitTrans;
ShowMessage('Yes');
except
myConnect.RollBackTrans;
ShowMessage('No');
end;
问题没有再现。
delphi底层代码不可靠

[莫鸣]

学习了。受教了。

[yanele]

学习了,平常还没有注意到这样的问题!

[zhangjing1979666]

我一直用这种模式 ltBatchOptimistic，没发现这种问题

[dupengjx]

收益！。。。。。。。。。

[仙侣步惊云]

不知各位数据库高手遇到这个问题到底是怎么想的?
1、Post有问题？稍微看了一下源代码，机制方面不象有问题，而且delphi的post用了20年，不太可能有问题
2、ODBC版本？应该不是，挂上事务后正常了。
怪就怪在这里：
ADOTemp:=TADOQuery.Create(self);
ADOTemp.Connection:=myDataMd.ADOConnection1;
ls_sql:='select id,xm from tbM where id='+DBEdit4.Text;
ADOTemp.SQL.Add(ls_sql);
ADOTemp.Open;
if ADOTemp.RecordCount<1 then //如果基本库有没有记录
begin
ShowMessage('该学员还未建档，请建档后再登记成绩');
DBEdit4.SetFocus; FreeAndNil(ADOTemp); exit;
end;
.....
结果是能够正常从服务器端取回TbM的ID，再根据ID判断别的表的录入操作，当录入了别的表的数据再提交时，才发现前面post的tbM的Id根本没进库，结果导致客户的数据不符合业务逻辑。
只有挂上事务使用updatebatch(arall)然后提交事务数据才可靠地保存入库。
真是百思不得其解

[dinoalex]

那有没有试过用execsql.即组装sql语句,而不用insert

[仙侣步惊云]

该项目主要业务逻辑是:
基本库:tbM;用四个表记录同学成绩tbKmA、tbKmB、tbKmC、tbKmD，用tbM中的Id(身份证号)外键联系tbKmA等四个成绩表，其中只有A合格才B，只有B合格才C，只有C合格才D，用代码判定学员的成绩录库流程。由于客户功能需要方面提了许多要求，所以只花了小部分时间设计录入模块。结果是用Post时，客户反映录入了tbKmC就丢失了tbKmB，导致用户的大量数据不符合业务逻辑。通过设计专门的查错SQL，排不符合业务逻辑的数据逐一排查，发现大约有2%的数据丢失未提交。
查错SQL：
select M.NSID, m.xm, m.xb, M.SCHOOL,
case when a.g1>0 then '合格'
when a.g2>0 then '不合格'
else null
end ksdcA, --a科目成绩
case when b.g1>0 then '合格'
when b.g2>0 then '不合格'
else null
end ksdcb, --b科目成绩
case when c.g1>0 then '合格'
when c.g2>0 then '不合格'
else null
end ksdcc --c科目成绩
from tbjbxx M left join
(select nsid,
count(case when ksdc = '合格' then 1 else null end) g1, --合格次数
count(case when ksdc = '不合格' then 1 else null end) g2 --不合格次数
from tbzk a
group by nsid
) a on m.nsid = a.nsid
left join
(select nsid,
count(case when ksdc = '合格' then 1 else null end) g1, --合格次数
count(case when ksdc = '不合格' then 1 else null end) g2 --不合格次数
from tbcnk b
group by nsid
) b on m.nsid = b.nsid
left join
(select nsid,
count(case when ksdc = '合格' then 1 else null end) g1, --合格次数
count(case when ksdc = '不合格' then 1 else null end) g2 --不合格次数
from tbksthree c
group by nsid
) c on m.nsid = c.nsid
where (ksdca is null and (not ksdcb is null or not ksdcc is null)) or (ksdcb is null and not ksdcc is null)
or (ksdca ='不合格' and (not ksdcb is null or not ksdcc is null)) or(ksdcb='不合格' and not ksdcc is null)

order by m.nsid

[yshuui]

我一直用Append。

[仙侣步惊云]

结果项目中设计最简单但是最重要的部分出了问题，后面功能做得很好也漂亮，但客户有怨气不满意。
前几天挂上事务再事务后杜绝了问题再现，但至今惊魂未定。

[梦幻人生]

沒遇到過這種問題，還是多測試些數據吧
我個人用adoquey處理數據時，都很少用post，直接用updatebatch

[风之谷]

没遇到过 帮顶 最好挂上事物

[dinoalex]

myADOQuery.Open;
myADOQuery.Insert;
// ADOQuery.edit; 不用edit

[仙侣步惊云]

对了，实际代码我没使用edit;
myADOQuery.Open;
myADOQuery.Insert
myADOQuery.FieldByName('id').AsInteger:=IntToStr(Editid.text);
......
为区区一条记录更新还得挂上事务？有点大炮打蚊子，难道post和updatebatch形同虚设？

[仙侣步惊云]

实际环境是大约有10几个客户端