各位朋友帮帮忙,关于 ADO 的,急!!!
qkl 2001-07-08 12:27:42 我在 D5(sp1) + ADO(sp1,sp2) + ms SQL7 有如下做法:
在 msSQL 里建立表:
Create Table [dbo].[test] ( I [int] )
然后在 D5 中新建一个工程:一个窗口,窗口中加入 TADOConnection、TADOQuery各一个,将 TADOConnection 的连接 string 设置好,在将 TADOQuery 连上(TADOQuery 不改变其他任何属性),在放入一个 TButton ,在 TButton 的 Click 事件中加入如下代码:
var
i: integer;
begin
ADOConnection1.Open;
with ADOQuery1, ADOQuery1.SQL do
begin
ADOConnection1.BeginTrans;
for i:=1 to 10 do
begin
Close; Clear;
Add('insert');
Add('test');
Add('values('('+inttostr(i)+')');
ExecSQL;
end;
ADOConnection1.CommitTrans;
end;
end;
运行。从流程,以及 Trace 中看,她都是准确无误的,查查数据库看 select * from text ,a-e!!!你会发现只 insert 了第 10 条纪录,也就是最后一条,见鬼了!!
兄弟姐妹叔叔阿姨请释放你们的爱心,帮帮这个在空调房中受冻挨饿的蹩脚程序员吧!!