Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Saber si se Aplico un Insert en un Procedimiento (https://www.clubdelphi.com/foros/showthread.php?t=77611)

berna 10-02-2012 19:23:41

Saber si se Aplico un Insert en un Procedimiento
 
Que tal.....


Bueno... Tengo un Procedimiento en firebird que contiene
un insert y un update a una serie de tablas...

Código:

create procedure Insertamodifica
as
begin
  //  campo1 es mi llave primaria
 
  insert into tabla1 (campo1,campo2..campon)
                  values(valor1,valor2...valorn);
 
  ////unos cuantos select
 
    //Generar un update a los datos que se insertaron
    //Como Saber SI se insertaron los datos
 
  if(Realizo Insert) then
    begin
    update tabla1 set
        campo2 = valor2
        campo3 = valor3
    where
      campo1 = valor1
    end
    else
      'Error'
  end

La Duda es la Siguiente como puedo saber si realmente se
ejecuto el insert para validar si ejecutar o no el update
sobre registro insertado

Saludos y Gracias de Antemano

newtron 10-02-2012 19:39:29

Hola.

Yo no uso firebird pero imagino que podrás meterlo todo en una transacción para controlar que no de fallo y hacer el update.

Saludos

nuk3zito 11-02-2012 05:46:24

Cuando insertas un registro en un motor de BD, tu debes irte a la segura con el flujo de la aplicación. No es lo mismo preguntar si se hizo un INSERT a preguntar si se hizo un UPDATE. Con el INSERT tu pisas sobre seguro (ya es un hecho que se hizo, o de lo contrario el flujo de tu stored genera una excepción). El IF que tienes ahi para revisar si se hizo o no la inserción no tiene validez, no es necesario.

Casimiro Notevi 11-02-2012 12:14:54

Supongo que ese código que has puesto es sólo un ejemplo, ya que no tiene mucho sentido hacer eso.
Si haces un insert... pues has hecho un insert, no hace falta preguntar nada.
Lo que no se entiende es que hagas un insert y luego le hagas un update, en todo caso busca los datos antes y haz el insert con los datos que necesites.

kikecg 23-10-2012 11:51:09

Retomo el tema...
 
Hola, saludos a todos.

Estaba buscando información sobre algo parecido a esto y he preferido retomar este hilo antes que abrir uno nuevo. Explico mi consulta:

Estoy creando un procedimiento almacenado en Interbase que debe ejecutar una serie de Inserts y Updates. Hasta ahí todo correcto. Ahora bien, en ciertos updates, necesito saber si se modificaron registros o no. Si se produce un error lo capturo con WHEN y genero una excepción, con lo que se hace un rollback al procedimiento y listos. La cuestión es: ¿como verifico que un UPDATE afectó o no a un registro?. Si afectó a una única fila, continúa el procedimiento, en cualquier otro caso hay que cancelar todo.

He revisado la documentación de Interbase y llega un momento en que uno (yo :confused:) se pierde... Por lo que he podido ver, que alguien me corrija si me equivoco, un UPDATE que no afecta a ningún registro no genera un error, la sentencia se ejecuta correctamente, con lo cual la comprobación de errores anterior no me sirve en este caso. Desde Delphi evaluaría la propiedad RowsAffected de la consulta y listos, pero no encuentro la forma de hacer esto mismo en interbase directamente en un procedimiento.

Por otro lado, veo que cuando empleo "WHEN ANY" tras una sentencia SQL, siempre salta la excepción. Viendo la documentación de Interbase me parece entender que "WHEN ANY" captura cualquier código de error que se produce tras ejecutar una sentencia SQL. Sin embargo en las pruebas que he hecho al utilizar WHEN ANY siempre salta la excepción tras la sentencia SQL. Por ejemplo, en este fragmento de código

Código SQL [-]
....
  ELSE
    BEGIN
      MENSAJE = 'Se ha producido un error al actualizar TABLA';
      SUSPEND;
      UPDATE TABLA SET CAMPOX = 'DEV' WHERE ID_TABLA = :ID_TABLA AND (CAMPOX <> 'DEV' AND CAMPOX <> 'DVO');
      WHEN ANY DO
        EXCEPTION ERROR_PROCEDIMIENTO;
    END
....

siempre tras ejecutar la sentencia UPDATE salta la excepción ERROR_PROCEDIMIENTO, y finaliza la ejecución. Al ejecutar directamente la sentencia, el resultado es un registro actualizado, con lo que no entiendo por qué salta la excepción.

En fin, no se si alguien me puede orientar un poco en este tema.

Gracias, saludos.

Casimiro Notevi 23-10-2012 16:29:15

Esto realmente no tiene mucho que ver, además de que debes contestar para resolver el problema de quien inició el hilo y ayudarle, pero no para poner tu pregunta, cosa que no ayuda en nada a resolver este tema, para ello debes crear un hilo nuevo.

kikecg 23-10-2012 16:47:41

Ok, gracias.

Me parecía que sí que tenía que ver, dado que preguntaban originalmente como saber si un insert se ha ejecutado. Veo similitudes.

Pero bueno, tienes toda la razón en que no ayudo precisamente a quien hizo la pregunta original.

Saludos.

Casimiro Notevi 23-10-2012 17:50:42

Gracias por tu comprensión.


La franja horaria es GMT +2. Ahora son las 02:04:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi