Reemplazar en lugar de insertar

[campiki]

He buscado por el foro pero no supe encontrarlo. Antes de todo gracias por la ayuda.

Uso Delphi 7 y firebird.

En un momento determinado creo una tabla y en ella grabo unos registros, estos los paso mediante sql a una segunda tabla.

Lo hago así...

ibquery1.sql.Add('insert into ');
ibquery1.sql.Add( nomfitlli);
ibquery1.SQL.Add(' (Campo1, Campo2, Campo3, Campo4... etc)');
ibquery1.sql.Add('Select Campo1, Campo2, Campo3, Campo4... etc');
ibquery1.sql.Add('From LLISTAT');
ibquery1.ExecSQL;

El problema está que este proceso debe y puede ejecutarse más de una vez, pero si lo vuelvo a ejecutar me da error por duplicar la clave.

No sé cómo puedo hacer para que los registros si ya existen se reemplacen y si son nuevos se añadan.

Pd- Antes usaba el batchmove pero va muy lento...

Gracias de nuevo.

[Neftali [Germán.Estévez]]

Pues creo que no te queda otra que primero hacer la búsqueda (por clave primaria) y dependiendo de si lo encentra o no realizar el INSERT o UPDATE.
Otra opción, pero que en el fondo es lo mismo, es realizar el INSERT, capturar el error de clave duplicada y en ese momento realizar el UPDATE.

[[gluglu]]

Busca detalles sobre el comando MERGE de Firebird.

Por ejemplo aqui :http://www.firebirdsql.org/refdocs/l...d21-merge.html

... y te sorprenderás, al igual que lo hice yo en su día, del potencial de esa instrucción.

[campiki]

Gracias mi miraré Merge... y si no a hacer lectura sequencial...

[rgstuamigo]

Aunque me llama la atencion del motivo de insertar muchas veces los mismo datos, pues no acabo de enteder el por qué , a no ser que ciertos campos cambien, excepto los campos primarios, pero si los datos no cambian en ningun momento, entonces es en vano estar modificando a cada rato...
Bueno.. en MySQL existe la sentencia REPLACE que funciona exactamente como INSERT, excepto que si un valor de la tabla tiene el mismo valor que un nuevo registro para un índice PRIMARY KEY o UNIQUE , el antiguo registro se borra antes de insertar el nuevo. Yo no uso Firebird pero supongo que debe existir algo similar aunque viendo el link del amigo gluglu veo que existe el comando MERGE en firebird supongo que debe ser similar.
Saludos...

[Neftali [Germán.Estévez]]

Empezado por gluglu

Busca detalles sobre el comando MERGE de Firebird.

No había oído sobre este comando. Curioso e interesante.

[campiki]

Gracias rgstuamigo, ya vi que MySql daba la posibilidad, pero Firebird no...

Explicaré porque debo hacer lo que parece una cosa ilógica...

El programa lanza un pac de albaranes, estos puede que sean los definitivos o no...

En el caso de que lo fueran, los albaranes se graban en un archivo definitivo. El problema es que algunas veces, antes de sacarlos se dan cuenta que deben hacer modificaciones... Con lo que vuelven a lanzarlos y la información se debe reemplazar en el archivo definitivo.

No nos sirve editar el albaran uno a uno, las modificaciones suelen ser en bloques, y la gestión de modificar es más complicada por la forma de trabajo que la de volver a lanzar y reemplazar... No sé si me habré explicado bien. En cualquier caso es lo que necesito.

A todos muchos gracias. Si consigo algo con MERGE lo publico.

[campiki]

Empezado por gluglu

Busca detalles sobre el comando MERGE de Firebird.

Por ejemplo aqui :http://www.firebirdsql.org/refdocs/l...d21-merge.html

... y te sorprenderás, al igual que lo hice yo en su día, del potencial de esa instrucción.

Pues probado y si no me he equivocado funciona

Gracias gluglu y a todos los que habeis aportado algo.

Para que funcionara he tenido que actulizar Firebird a una versión más moderna, pues esta instrucción funciona a partir de la 2.1. Una vez realizada la actualización he implantado este código... Ahora estoy probando si funciona bien o no, el código es este.

ibquery1.SQL.Add('MERGE into ');
ibquery1.SQL.Add( Llistat2011);
ibquery1.SQL.Add(' d using Llistat o');
ibquery1.SQL.Add('on d.dia = o.dia and d.producte = o.producte and d.ruta = o.ruta');
ibquery1.SQL.Add('when matched then');
ibquery1.SQL.Add('Update set d.campo1 = o.campo1, ');
ibquery1.SQL.Add('d.campo2 = o.campo2, ');
ibquery1.SQL.Add('d.campo3 = o.campo3 ');
ibquery1.SQL.Add('when not matched then');
ibquery1.SQL.Add(' insert (d.PRODUCTE,d.campo1,d.campo2,d.campo3, d.DIRECCIO,d.RUTA,d.DIA,)');
ibquery1.SQL.Add('values (o.PRODUCTE,o.campo1,o.campo2,o.campo3, o.DIRECCIO,o.RUTA,o.DIA,)');
ibquery1.ExecSQL;

Nuevamente gracias.

[campiki]

Funciona bien y rápido...

[[gluglu]]

Me alegro !

[Casimiro Notevi]

Vaya, no conocía esa posibilidad

[[gluglu]]

.... nunca te acostarás sin saber algo nuevo !

Incluso después de tanto tiempo usar tu BBDD preferida. Por lo cual sigue siendo válida la teoría de revisar cada 2 o 3 años el manual de lo que estás utilizando, porque resulta que te das cuenta de que existe algo que ni siquiera sabías que podía existir !

[campiki]

Empezado por gluglu

.... nunca te acostarás sin saber algo nuevo !

Incluso después de tanto tiempo usar tu BBDD preferida. Por lo cual sigue siendo válida la teoría de revisar cada 2 o 3 años el manual de lo que estás utilizando, porque resulta que te das cuenta de que existe algo que ni siquiera sabías que podía existir !

Mi "problema", es que soy cobolero, de los de toda la vida... y en eso me muevo como pez en el agua. Pero un día cambié a Objective Cobol, un cobol basado parecido al Delphi... y luego salté a Delphi... Un mundo... y las BBDD y las SQL aún (después de tiempo) se me atragantan un poco...

Realmente hecho de menos la velocidad de Cobol bajo Unix, cuando consiga esa velocidad de precesamiento de datos que tenía antes, seré un hombre feliz...

Seguiré investigando/preguntado cuando me surja un "problemilla".

[campiki]

Donde dije digo digo Diego...

Funciona... pero, sólo si la tabla la tengo en Local, cuando la tabla la tengo en red me da error...

¿Alguna sugerencia?

[Casimiro Notevi]

Empezado por campiki

[..] cuando la tabla la tengo en red me da error...
¿Alguna sugerencia?

Sí, te sugiero que pongas aquí el error

[campiki]

El error es el siguiente.

Dynamic SQL Error
SQL Error code = -104
Token Unknown - line 1, Column 0
MERGE.

Es el mismo error que me daba antes de actualizar a la versión 2.1 de firebird.

Si ejecuto en modo local, tanto en el servidor como en el cliente, funciona, sólo da error en red!!!

Gracias.

[Casimiro Notevi]

Entonces en red ¿qué quiéres decir exactamente? ¿que está en otro ordenador de servidor?, entonces es que ese servidor tiene otra versión de firebird seguramente.

[campiki]

Empezado por Casimiro Notevi

Entonces en red ¿qué quiéres decir exactamente? ¿que está en otro ordenador de servidor?, entonces es que ese servidor tiene otra versión de firebird seguramente.

Tiene la misma... Ya lo comprobé y si ejecuto el programa directamente en local en cualquier máquina funciona, sólo cuando accedo a la información por red es cuando da el error... Raro raro raro...

[[gluglu]]

El error que te dá te está indicando que no entiende el comando MERGE.

Algo tienes que tener con diferentes versiones de Firebird, o con algún tipo de configuración específica.

Te funciona el resto de la aplciación ? Puedes acceder a la BD en red ?

Si es así, y lo que pasa es que no entiende el comando MERGE entonces es la versión, como te indica Casimiro. Si ni siquiera puedes ejecutar la aplicación u otro parte de tu código, entonces es que no estás accediendo a la BD.

[campiki]

Todo funciona correctamente. Menos el Merge en Red.

Ya he comentado, la versión de Firebird es la misma en las dos máquina, todo funciona correctamente menos Merge.

Seguiré buscando...