为什么数据不回滚?
代码如下,请问原因在哪呢?
USE LIST_BOM
CURSORSETPROP("Buffering",5)
CURSORSETPROP("SendUpdates",.T.)
DBSETPROP("CMADE","CONNECTION","Transactions",2)
INSERT INTO LIST_BOM (成品料号,料号) VALUES (PARTNO,LH)
BEGIN TRANSACTION
SQLEXEC(GN_CONNHANDLE,"BEGIN TRANSACTION") &&返回结果为1
IF TABLEUPDATE(.T.)
SQLEXEC(GN_CONNHANDLE,"IF @@TRANCOUNT>0 COMMIT")
END TRANSACTION
ELSE
SQLEXEC(GN_CONNHANDLE,"IF @@TRANCOUNT>0 ROLLBACK") &&返回结果为1,但后端的数据并没有得到回滚!
ROLLBACK &&前台VFP数据也得不到回滚
ENDI