Código Delphi [-] AdoConnection.BeginTrans try AdoQry1.append; AdoQry1Nombre.value:='jose'; AdoQry1.post; AdoConnection.CommitTrans; except AdoConnection.RollbackTrans; raise; end;
AdoConnection.BeginTrans try AdoQry1.append; AdoQry1Nombre.value:='jose'; AdoQry1.post; AdoConnection.CommitTrans; except AdoConnection.RollbackTrans; raise; end;