5,386
社区成员
发帖
与我相关
我的任务
分享
ADOConnection1.BeginTrans ;
try
ADOCommand1.CommandText:='insert into test1(id,name) values(:number,:char)';
ADOCommand1.Parameters.Items[0].Value:=1;
ADOCommand1.Parameters.Items[1].Value:='a';
ADOCommand1.Execute;
ADOCommand1.CommandText:='insert into test1(id,name) values(:number,:char)';
ADOCommand1.Parameters.Items[0].Value:=2;
ADOCommand1.Parameters.Items[1].Value:='b';
ADOCommand1.Execute;
ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
end;