¿Cómo copiar todos los registros de una tabla a otra?

[guillotmarc]

Hola Casimiro.

Empezado por Casimiro Notevi

Bueno, me explico mejor, lo anterior era solamente un ejemplo, son dos tablas iguales salvo por un campo. Seguramente se ampliarán con el tiempo con el añadido de más campos porque se necesite hacer algo más.
En principio deben ser iguales salvo ese primer campo. O sea, 'casi' iguales
Ahora mismo tiene 29 campos. Y lo que quiero conseguir es "olvidarme" de la misma el día que sea necesario añadir algún nuevo campo para controlar cualquier otra cosa, o sea, que dentro de unos meses, cuando ya te has olvidado de todo, no tenga que decir: "no se sabe por qué falla el programa", y después de mucho perder el tiempo: "el problema era que había que añadir el nuevo campo en un store procedure, y se nos había olvidado."
Resumiendo, da igual los campos que tenga la tabla, lo que se intenta es no tener que controlarlo, que sea un proceso automático. Al igual que en delphi se puede hacer algo así como (de memoria):
Código Delphi [-]tabla1.open; while not tabla1.eof do begin tabla2.append; for iX=0 to tabla1.fields.count-1 do tabla2.fields[iX].value := tabla1.fields[iX].value; tabla2.post; tabla1.next; end;

Pues puedes utilizar un bucle de estos para construir sobre la marcha la sentencia, antes de ejecutarla (ignorando el campo que sabes que va a ser distinto).

SQL := 'insert into TablaB'(;

tablaA.open;
while not tablaA.eof do begin
   for iX = 0 to tablaA.fields.count-1 do SQL := SQL + tablaA.fields[iX].FieldName + ', ';
   tablaA.next;
end;

SQL := SQL + ') select * from TablaA';

Conexion.ExecSQL(SQL);

Saludos.

[Casimiro Noteví]

Empezado por guillotmarc

Hola Casimiro.
Pues puedes utilizar un bucle de estos para construir sobre la marcha la sentencia, antes de ejecutarla (ignorando el campo que sabes que va a ser distinto).
Saludos.

Hola, sí, desde delphi no hay problema, es que quiero hacerlo en la base de datos, desde un stored procedure, por ejemplo.

[guillotmarc]

Empezado por Casimiro Notevi

Hola, sí, desde delphi no hay problema, es que quiero hacerlo en la base de datos, desde un stored procedure, por ejemplo.

Entonces puedes hacer lo mismo en el procedimiento almacenado, consultando las tablas de sistema para obtener los nombres de los campos, y construyendo una sentencia SQL a ejecutar en un EXECUTE STATEMENT (no soy muy aficionado a construir sentencias dinámicamente, pero no parece que en este caso tengas más opciones).

[Casimiro Noteví]

Empezado por roman

Ya, pues..., ni qué decir que en MySQL funciona a la perfección // Saludos

Sabía que ese iba a ser tu siguiente comentario

Empezado por guillotmarc

Entonces puedes hacer lo mismo en el procedimiento almacenado, consultando las tablas de sistema para obtener los nombres de los campos, y construyendo una sentencia SQL a ejecutar en un EXECUTE STATEMENT (no soy muy aficionado a construir sentencias dinámicamente, pero no parece que en este caso tengas más opciones).

Parece que va a ser la solución, aunque tampoco me gusta mucho.

[Casimiro Noteví]

¡¡¡ FUNCIONA !!!

Cómo he sido tan burro de no probar con alias.

Código SQL [-]
insert into tabla-B
select 0, a.* from tabla-A a

[Casimiro Noteví]

Román, con firebird también se puede, ja, ja, ja...


¡¡¡ Gracias a todos, amigos !!!

[[Caral]]

Hola
Pero esto no le va a poner un 0 al campo0 ?.
Osea, cero en todos los items ?.
Saludos

[Casimiro Noteví]

Empezado por Caral

Hola
Pero esto no le va a poner un 0 al campo0 ?.
Osea, cero en todos los items ?.
Saludos

Bueno, puedes poner el valor que quieras, en mi caso es un número de un generador:
1. Extraer el número que toca, desde un generador
2. Ejecutar la sentencia.

Más o menos así: ejemplo:

Código SQL [-]
iID = GEN_ID(GEN_GLOBAL,1);

insert into tbapunteshistorico
select iID, a.* from tbapuntes a

Supongo que funcionará, voy a probarlo.