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 !