7 respuestas en este tema

[eduarcol]

Hola a todos, estoy experimentando un poco las IBX 

Tengo la siguiente configuración:

{DataModule}
  IBTransaction:
      Name: Transac
      DefaultDatabase: Con

  IbDatabase:
      Name: Con
      DefaultTransaction: Transac

Luego abro un form donde ingreso los datos del usuario en el tengo un ibScript, donde su propiedad transaction y Database apuntan a los dos componentes que están en el modulo, le agrego estas instrucciones:

sql

START TRANSACTION;
INSERT INTO Usuarios (CODIGOUSUARIO, CLAVE, NOMBRE, APELLIDO, CREADO, ULTIMAASIGNACION, CADUCA, MODIFICADO) VALUES 
('eduarcol', '<6698<;9V4644:7998;:655;96:75595;5644:<<:6;<984;:<605', 'Eduardo', 'Colemenares', '08/09/2010', '08/09/2010', 'F', '08/09/2010');
DELETE FROM accesosmenu WHERE codigousuario = 'eduarcol';
Commit;

De esta manera lo ejecuto:

 

delphi

try
      if not dmModulo.Transac.Active  then dmModulo.Transac.StartTransaction;
      scGrabar.ExecuteScript;
      txUsuario.SetFocus;
 
   except
      on E: Exception do
      begin
         scGrabar.Script.Text := 'Rollback Retain;';
         scGrabar.ExecuteScript;
         msgError('Ha ocurrido un error al intentar grabar el registro con el siguiente mensaje: ' + E.Message);
      end;
   end;

Pero no graba nada, a lo que abro el ibExpert y reviso la tabla no aparece nada, no me genera ningún tipo de error ni excepciones, hace su terminación normal.

[egostar]

Hola amigo.

Una cuestión, hasta donde sé, lo que tu deseas realizar se hace con un IBQuery, el IBScript requiere del formato de DDL para funcionar correctamente.

Salud OS

[Rolphy Reyes]

Saludos.

No he probado ese componente en particular.  Pero me extraña que no te indique error con la sentencia Start Transaction;.

Cuando ejecutas un Script en IbExpert de ese estilo no es necesario indicar el comienzo de la transacción sino más bien el Commit.

¿Probaste sin Start Transaction?

[romfrost13]

delphi

try
      if not dmModulo.Transac.Active  then dmModulo.Transac.StartTransaction;
      scGrabar.ExecuteScript;
      dmModulo.Transac.commitretaining; // o como se escriba no me acuerdo
      txUsuario.SetFocus;
 
   except
      on E: Exception do
      begin
         dmModulo.Transac.RollbackRetain;
         msgError('Ha ocurrido un error al intentar grabar el registro con el siguiente mensaje: ' + E.Message);
      end;
   end;

Siempre lo use de esa forma y siempre me funciono, incluso ahora que uso Zeos en lugar de los ibx, saca del texto del script los referente a las transacciones;

[cadetill]

Buenas,

Varias cosas

1.- Se puede requerir iniciar la transacción manualmente, todo depende de la configuración del componente. No obstante, la forma de hacerlo no es la correcta dado que el componente de transacción puede estar activado pero sin haber iniciado la transacción. Se haría así:

delphi

      if not dmModulo.Transac.InTransaction then dmModulo.Transac.StartTransaction;

2.- Ese componente, como te han comentado, es para lanzar scripts (crear, modificar o borrar objetos -tablas, vistas, SP, triggers,....-),  no es para sentencias SQL. Para ellas tenemos un componente especial, el IBQuery (o el IBDataSet o el IBTable dependiendo de la forma de trabajar).

3.- También te falta la aceptación de la transacción con Commit o CommitRetaining.

Es decir, el proceso sería este

- Se comprueba si estamos en una transacción y sino la iniciamos
- Realizamos los insert/update/delete/select que necesitemos
- Aceptamos (o cancelamos) la transacción (Transac.Commit o Transac.CommitRetainig o Transac.Rollback o Transac.RollbackRetaining).

Espero te sirva

Nos leemos

[eduarcol]

Gracias a todos por las aclaraciones es que vengo de Zeos y la forma es así como la hago, una duda adicional, puedo generar todas las sentencias en un único ibQuery o debo utilizar una sentencia a la vez????

[Caral]

Hola
Se pueden hacer todas las transacciones, operaciones o lo que se quiera con un solo query no hace falta mas.
Saludos

[eduarcol]

Gracias a todos, con los aportes he logrado hacerlo funcionar, en resumen no funciona con ibScript ni con ibSql, debe ser con ibDataset o ibQuery.

Aun no se las razones pero cuando lo sepa actualizare la informacion

Doy como resuelto.