使用ADOConnection及ADOQuery怎样开始一个事务，回滚一个事务

Question

ADOConnection.BeginTrans
ADOConnection.CommitTrans
ADOConnection.RollbackTrans

Answer 1

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert into test1 values(:number,:char)');
  ADOQuery1.Parameters.Items[0].Value := strtoint(Edit1.Text);
  ADOQuery1.Parameters.Items[1].Value := Edit2.Text;
try
   if not adoconnection1.InTransaction then
  ADOConnection1.BeginTrans ;
  ADOQuery1.ExecSQL ;
  adoconnection1.committrans;
except
  ADOConnection1.RollbackTrans ;
  ADOQuery1.Close;
end;

Answer 2

to qiubolecn:
  报同样的错误。

Answer 3

sql.add('begin transaction')
sql.add('语句')
sql.add('commit')