DBX4 transaction

dbxconnections.ini的Connecton Settings加上Multiple Transaction=True var TD :TTransactionDesc; ssql1,ssql2,ssql3:string; begin if not SQLConnection1.InTransaction then //如果目前不在一個交易中 begin ssql1:='insert into ych.testtb1 (field1,field2,field3)'+ ' values (''3236'',''abcd'',''12df'')'; ssql2:='insert into ych.testtb2 (field1,field2,field3)'+ ' values (''3236'',abcd,''12df'')'; ssql3:='insert into ych.testtb3 (field1,field2,field3)'+ ' values (''3236'',''abcd'',''12df'')'; SQLConnection1.StartTransaction(TD); try SimpleDataSet1.DataSet.CommandText:=ssql1; SimpleDataSet1.Execute; SimpleDataSet1.DataSet.CommandText:=ssql2; SimpleDataSet1.Execute; SimpleDataSet1.DataSet.CommandText:=ssql3; SimpleDataSet1.Execute; SQLConnection1.Commit(TD); except SQLConnection1.Rollback(TD); end; end; end;