【结贴】[问题] 在数据集的BeforeDelete执行delete语句问题

qq127hb

我在一个数据集的BeforeDelete想删除其他表的记录，但跟踪调试后发现代码都被执行了,但相应的记录却没有被删除。我把代码单独放在button事件执行结果相应的记录被正确删除了。所有想是不是受数据集的处理机制影响了。（注：ｑｕｅｒｙ里面的ｓｑｌ语句是正确的，条件也是正确的。）

代码如下，请各位大牛帮分析下。　谢谢！

procedure TXX_BDSBQXCLD.DataSetSJJ_BDSBQXCLDBeforeDelete(DataSet: TDataSet);
var
   strQuerySql : string;
   lQuery : Business.Data.TQuery;
   SBQXGUID : string;
   currentHandle : TTransactionHandle;
begin
     //删除相应的记录
     lQuery := Business.Data.TQuery.Create(nil);
     with lQuery do
     begin
          try
             SBQXGUID := DataSet.FieldByName('QXGUID').AsString;

             ConnectionString := '数据库连接';
             currentHandle := Connection.Transaction.Start(false);

             strQuerySql := '';
             strQuerySql := 'delete table1 where SBQXGUID = ''' + SBQXGUID + '''';

             CommandText := strQuerySql;
             Execute;
             Connection.Transaction.Commit(currentHandle);
          except
                Connection .Transaction.Rollback (currentHandle);
          end;

          Free;
     end;
end;

atiger

不要放到 BeforeDelete 而放到数据导航的 BeforeAction 参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=9279

shangxy

楼主问题解决了么？

Akon

楼主,还有问题不?没问题就结贴了