一简单问题，在线等答案

[wofan]

我用Tadoquery
怎样进行回滚
Try

except

end;

[jinjazz]

adoconnection1.BeginTrans;
Try
...
adoconnection1.CommitTrans
except
adoconnection1.RollbackTrans;
end;

[wofan]

var
st:string;
Aq:Tadoquery;
begin
Aq:=Tadoquery.Create(self);
Dm.ADOConnection1.Open;
Aq.Connection:=Dm.ADOConnection1;
Aq.Connection.BeginTrans;
try
st:='INSERT INTO X_Ddz (Lsh, Kdrq, Ddrq, Qxrq) ';
st:=st+'VALUES (''200408200002'', ''2004-08-20'', ''2004-08-20'', ''2004-08-20'')';
with Aq do
begin
Close;
Sql.Text:=st;
Execsql;
Connection.CommitTrans;
end;
Except
Aq.Connection.RollbackTrans;
end;
end;


OK？？？？？

[jian23cn]

//////////用ADOTable时用这个就可以了
ADOTable1.connection.BeginTrans;
Try
...
ADOTable1.connection.CommitTrans
except
ADOTable1.connection.RollbackTrans;
end;

[wwnwnl]

BeginTrans;
Try
...
CommitTrans
except
RollbackTrans;
end;

[e5022]

学习一下，还不懂回滚为何物呢。

[wofan]

已经搞定，开始测的时候用了Aq.open
后改为Excesql就OK了