Transacciones con Delphi

[Gregory Mazon]

Hola
Soy novato en el manejo de Interbase y Delphi, estoy usando un TQuery para actualizar las tablas de una base de Interbase pero no se como se realizan las transacciones, el codigo que estoy utilizando es el siguiente :

Var
myQuery : TQuery;

Begin
myQuery := TQuery.Create(application);
myQuery.Sql.Clear;
myQuery.Add('Insert into Articulos(modelo,describe,linea...etc')
myQuery.Add('Values("0001","PRUEBAS","FALDA")');
myQuery.ExecSQL;

myQuery.Sql.Clear;
myQuery.Add('Insert into Precios(costo,publico,mayoreo...etc')
myQuery.Add('Values(200,400,600)');
myQuery.ExecSQL;
End;

Supongo que existe la correcta de hacerlo, si alguin me puede ayudar de antemano les agradesco a todos.

[jhonny]

Holap, bueno la variable esta bien declarada, y la forma de limpiar el SQL tambien pero
al momento de agregar el SQL no debido a que no estas haciendo referencia a la propiedad
SQL del TQuery y ademas te faltan algunos "punto y comas"...osea que quedaria asi:

Var
myQuery : TQuery;

Begin
myQuery := TQuery.Create(nil);
myQuery.Sql.Clear;
myQuery.SQL.Add('Insert into Articulos(modelo,describe,linea...etc');
myQuery.SQL.Add('Values("0001","PRUEBAS","FALDA")');
myQuery.ExecSQL;

myQuery.Sql.Clear;
myQuery.SQL.Add('Insert into Precios(costo,publico,mayoreo...etc');
myQuery.SQL.Add('Values(200,400,600)');
myQuery.ExecSQL;
myQuery.free;
End;


Por otra parte...para usar transacciones debes bajar un componente TDatabase y configurarlo,
ya sea en su propiedad AliasName o en DriverName segun sea tu necesidad...no olvides configurar tambien los parametros
de la base de datos y si no quieres que se pida la contraseña del interbase poner la propiedad LoginPromt en 'False'.

Entonces ya podes trabajar con Transacciones y tu codigo quedaria asi, suponiendo de que el TDatabase se llama "database1":

Var
myQuery : TQuery;

Begin
database1.StartTransaction;
try
myQuery := TQuery.Create(application);
myQuery.Sql.Clear;
myQuery.SQL.Add('Insert into Articulos(modelo,describe,linea...etc');
myQuery.SQL.Add('Values("0001","PRUEBAS","FALDA")');
myQuery.ExecSQL;

myQuery.Sql.Clear;
myQuery.SQL.Add('Insert into Precios(costo,publico,mayoreo...etc');
myQuery.SQL.Add('Values(200,400,600)');
myQuery.ExecSQL;
myQuery.free;
database1.Commit;
except
database1.Rollback;
raise exception.create('No se pudo ejecutar la transaccion');
end;
End;

Espero te sirva.;)

[Gregory Mazon]

:) Muchas Gracias

Modifique mi codigo y funciona perfectamente