|
Primero disculparme por no haber contestado antes, pero no he podido.
Os muestro un ejemplo más claro de lo que me ocurre y no entiendo el porque.
Intento hacer esto
try
Data.ConTipsaSer.BeginTrans;
Data.Sql.CommandText:='Delete from Bultos where Cli ='+#39+cliente+#39;
Data.Sql.Execute;
Data.ConTipsaSer.CommitTrans;
except
Data.ConTipsaSer.RollbackTrans;
end;
Y me sigue borrando el primero.
Lo que he hecho ha sigo generar un pequeño ejecutable con el mismo ADOConnection1 y el mismo ADOCommand1
procedure TForm1.Button1Click(Sender: TObject);
var
cliente:String;
begin
cliente:='01504';
ADOConnection1.Connected;
ADOCommand1.CommandText:='Delete from Bultos where cli ='+#39+cliente+#39+')
ADOCommand1.Execute;
ADOConnection1.Connected:=False;
end;
Y me funciona. ¿No se por donde mirar?
|