Problema con Try Except

[*Caro*]

Hola Espartaco, te pongo un ejemplo, con BDE y ADO.

Código Delphi [-]
  //BDE
  Database1.StartTransaction;//inicias la transacción
  try
    //Inserciones, modificaciones o eliminaciones sobre la base de datos
    Database1.Commit;//aceptas las operaciones de la base de datos
  except
   Database1.Rollback;//deshace las operaciones realizadas sobre la BD
   showmessage('Se ha producido un error');
   raise;
  end;//try

 //ADO  
 ADOConnection1.BeginTrans;
 try
   //Inserciones, modificaciones o eliminaciones sobre la base de datos 
   ADOConnection1.CommitTrans;
 except
   ADOConnection1.RollbackTrans;
   showmessage('Se ha producido un error'); 
   raise;
 end;//try

Saluditos

[[Espartaco]]

Efectivamente eduarcol, he mirado el link de gluglu pero es para firebird.

Al ejemplo de caro me surgen algunas dudas:

- Para utilizar este codigo imagino que no tengo que añadir ninguna libreria.

- Tengo que insertar en el form algun componente?

- y por ultimo, donde pones

//Inserciones, modificaciones o eliminaciones sobre la base de datos

puedo poner operaciones para mas de una tabla con sus post correspondientes?

Muchas gracias a todos por vuestra ayuda.

[[kuan-yiu]]

Sí, puedes poner todas las operaciones que necesites siempre que formen "un conjunto lógico".
No pongas más de lo que necesites porque cuanto mayor sea la transacción más lento se vuelve el rollback en caso de fallo y más espacio se necesita para éste.

[[Espartaco]]

Antes que nada perdon por tardar en probar las transacciones, pero el trabajo manda, y dar las gracias por vuestra ayuda.

He probado las transacciones como pone Caro, pero tengo un problema, que seguramente sera porque es la primera vez que utilizo esto y algo se me habra pasado.

El caso es que me da un error

The transaction isolation level must be dirty read for local databases

y no se por que ocurre.

He insertado en el form un componente Database y en la propiedad DatabaseName he puesto el nombre del alias de la base de datos que utilizo. Antes de esto ya tenia insertados los componentes TTable y TDataSource correspondientes, a estos componentes no les he tocado despues de insertar el componente Database.

No se si me he explicado, creo que si. Gracias de nuevo.

[[Espartaco]]

Solo para que se refresque el post en la lista y no se pierda, pues necesito la ayuda, espero me contesteis pronto.

Muchas gracias.

[[Espartaco]]

Me respondo yo.

El error era que no ponia la propiedad TransIsolation del DataBase en Dirty Read, que es obligatorio para bases de datos locales.

Gracias a todos por vuestra ayuda.