Delphi 2009如何检测MySQL事务是否已回滚？

嘿，针对你的问题，其实不用非得事后查数据，有几种更直接的方式来判断事务是否回滚，我给你梳理一下：

1. 异常捕获+自定义标志变量（最常用场景） #

如果你的事务回滚是因为插入操作抛出异常触发的，那完全可以在except块里设置一个标志，直接标记回滚状态，逻辑简单又直观：

var
  IsTransactionRolledBack: Boolean;
begin
  IsTransactionRolledBack := False;
  try
    // 开启事务
    ADOConnection1.BeginTrans;
    // 执行第一条插入
    ADOQuery1.SQL.Text := 'INSERT INTO table1 (col1) VALUES (:val1)';
    ADOQuery1.Parameters.ParamByName('val1').Value := 'test_content1';
    ADOQuery1.ExecSQL;
    // 执行第二条插入
    ADOQuery1.SQL.Text := 'INSERT INTO table2 (col2) VALUES (:val2)';
    ADOQuery1.Parameters.ParamByName('val2').Value := 'test_content2';
    ADOQuery1.ExecSQL;
    // 提交事务
    ADOConnection1.CommitTrans;
  except
    on E: Exception do
    begin
      // 触发异常时回滚事务，并标记状态
      ADOConnection1.RollbackTrans;
      IsTransactionRolledBack := True;
      ShowMessage('事务回滚原因：' + E.Message);
    end;
  end;

  // 事后直接通过标志判断状态
  if IsTransactionRolledBack then
    ShowMessage('事务已回滚')
  else
    ShowMessage('事务已成功提交');
end;

这种方式完美适配因Delphi捕获到数据库异常而触发的回滚，不用额外查询数据库，效率很高。

2. 检查组件状态+MySQL行计数（应对隐性回滚） #

如果遇到MySQL内部触发的回滚（比如死锁、触发器导致的回滚，此时Delphi可能不会抛出异常），可以结合组件的事务状态和MySQL的ROW_COUNT()函数来判断：

以ADO组件为例： #

begin
  try
    ADOConnection1.BeginTrans;
    // 执行两条插入操作...
    ADOConnection1.CommitTrans;
  except
    ADOConnection1.RollbackTrans;
    ShowMessage('异常触发回滚');
  end;

  // 事务结束后，先判断是否已退出事务状态
  if not ADOConnection1.InTransaction then
  begin
    // 查询最近一次操作影响的行数
    ADOQuery1.SQL.Text := 'SELECT ROW_COUNT()';
    ADOQuery1.Open;
    // 若回滚，ROW_COUNT()会返回0（前提是插入操作原本应产生行数影响）
    if ADOQuery1.Fields[0].AsInteger = 0 then
      ShowMessage('事务已回滚')
    else
      ShowMessage('事务已提交');
  end;
end;

以FireDAC组件为例： #

FireDAC的TFDConnection自带TxState属性，可以直接查看事务状态：

var
  InitialTxState: TFDTransactionState;
begin
  InitialTxState := FDConnection1.TxState;
  try
    FDConnection1.StartTransaction;
    // 执行插入操作...
    FDConnection1.Commit;
  except
    FDConnection1.Rollback;
    ShowMessage('异常触发回滚');
  end;

  // 事务结束后，结合行计数判断状态
  if FDConnection1.TxState = csNone then
  begin
    FDQuery1.SQL.Text := 'SELECT ROW_COUNT()';
    FDQuery1.Open;
    if FDQuery1.Fields[0].AsInteger = 0 then
      ShowMessage('事务已回滚')
    else
      ShowMessage('事务已提交');
  end;
end;

3. 解析InnoDB状态（复杂场景） #

如果需要更精准的事务细节，可以查询MySQL的InnoDB状态：

SHOW ENGINE INNODB STATUS;

这个查询会返回InnoDB的详细事务日志，其中包含最近的回滚信息，但解析结果比较繁琐，适合排查复杂问题时使用。

总的来说，大多数日常场景下，方法1就足够解决问题；如果遇到隐性回滚的特殊情况，再结合方法2的行计数判断，比事后全表查询数据要高效得多。

内容的提问来源于stack exchange，提问作者user2834566