ADOconnection 事务处理例子

conn:=tadoconnection.create();   
  conn.begintrans();   
  try   
    
  .....   
  .....   
  conn.commit();   
  conn.free;   
  conn:=nil;   
    
    
  except   
  conn.rollback();   
  conn.free;   
  conn:=nil;   
  end;  

 

 

----------------

Void   __fastcall   TForm1::Button1Click(TObject   *Sender)   
  {   
  /*///   
  //   函数功能：当用户输入数据后，添加程序先判断是否在数据库中已经存在   
  //                       相同的记录内容，如果没有，则提示要求用户最后确认，如果   
  //                       用户确认，则使用事务处理添加数据   
  //   执行环境：BCB5   Up1   +   SQL   SERVER2000   +   ADO   
  //   Author:       bearbaba   
  //   Create:       20020510   
  ///*/   
    
    
          Integer   j;             //申明的变量J用来获取Select查询的结果，如果结果不等于0则说明已经存在相同的记录   
          ADOQuery1->SQL->Clear();   
          ADOQuery1->SQL->Add("SELECT   count(*)   FROM   BZ_lab   WHERE   Name   =   :'"+Edit1->Text+"'");   
          ADOQuery1->Open();   
          j=ADOQuery1->RecordCount;   
    
          if(j!=1){   
    
                  if   (   Application->MessageBox("确认你的输入吗？",   NULL,   MB_OKCANCEL)==   IDOK){   
                        ADOConnection1->BeginTrans();   
                        try{   
                              ADOQuery1->SQL->Text   =   "INSERT   BZ_lab(EX_No,Name,ShortName,Sign)   VALUES(1,'"+Edit1->Text+"','"+Edit2->Text+"','"+Edit3->Text+"')";   
                              ADOQuery1->ExecSQL();   
                        }catch(...)   
                        {   
                              ADOConnection1->RollbackTrans();   
                        }   
                        ADOConnection1->CommitTrans();   
                        ADOTable1->Refresh();   
                  }   
          }   
          else   
                ShowMessage("已经存在相同的记录，请求被拒绝！");   
  }   

http://blog.csdn.net/happypolo/article/details/3493891