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

[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;

[Casimiro Notevi]

Bueno, me voy a dormir, mañana sigo.

¡¡¡GRACIAS!!!

[[Caral]]

Hola
Vale amigo, mañana lo harás sin problemas, la almohada es la mejor consejera.
Buenas Noches.
Saludos

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

Si la tabla no tiene muchos datos, tal vez te saldría a cuenta, dentro del Stored Procedure, añadir el campo0 a la primera tabla, luego hacer el INSERT INTO y finalmente volver a borrar el campo de la primera tabla.

La ventaja que le veo es que cuando añadas más campos, el SP no deberá cambiar.
La desventaja es que si la tabla es muy grande (con muchos datos), habrá que ver el tiempo que tarda en crear y borrar el campo.

[[fjcg02]]

Me da la sensación de que Caral es el que más cerca anda de la solución.

yo haría lo mismo que él, leería los campos de la tabla 1, y montaría la query en una variable de tipo string.

Luego ejecutaría "EXCECUTE STATEMENT CONSULTA" siendo consulta la query que he montado.

No lo he probado. Si funciona, no deberás cambiar nunca el store procedure.

Saludos

[Casimiro Notevi]

Hola, gracias por las respuestas.
Neftalí, la tabla tiene bastantes registros porque se tratan precisamente de históricos, la tabla-B es un histórico acumulado de todo lo que hay en tabla-A, así que como todos los históricos, cada vez será más y más grande.
Aunque el método que has indicado es una muy buena idea, muy simple y efectiva.
El método indicado por Caral de obtener los campos desde las tablas del sistema, luego crear la sentencia sql dinámicamente, como también ha indicado fjcg02, es muy factible, y también funciona, seguro.
Lo que voy a hacer es probar ambas formas, me quedaré con la que sea más rápida de ejecución. Y si son muy similares... lo echaré a cara o cruz

Gracias de nuevo, ambas soluciones son estupendas y es justo lo que estaba buscando.

[roman]

Bueno, pero, ¿qué valor debe ir en ese campo extra? Supongamos que es un campo entero y cero su valor por defecto. No me van a decir que en Firebird no puede hacerse esto:

Código SQL [-]
insert into tabla_b
select 0,* from tabla_a

// Saludos

[[Caral]]

Hola
Por eso pensé en que si se puede saber que campos tiene cada tabla y guardar los nombres en donde sea se puede usar la consulta que hizo caro, seria algo asi:
Reviso los campos de cada tabla:

Código SQL [-]
SELECT RDB$FIELD_NAME
FROM RDB$RELATION_FIELDS
WHERE RDB$RELATION_NAME='BD1' AND RDB$RELATION_NAME='BD2';

Guardo los datos que como serán nombres de campos podrán ser string e inserto con los datos obtenidos usando la consulta de Caro:
BD1/campos= dato1, dato2, dato3, dato4, dato5
BD2/campos= dato0, dato1, dato2, dato3, dato4, dato5

Código SQL [-]
Insert Into BD2 (dato0, dato1, dato2, dato3, dato4, dato5)  select dato1, dato2, dato3, dato4, dato5 from BD1

Me da la impresión de que la inserción de datos es mas fiable si se ponen los nombres de los campos.
No se amigo, es solo una opinión sin mucha base; Bueno, sin base alguna.
Saludos

[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 Notevi]

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 Notevi]

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 Notevi]

¡¡¡ 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 Notevi]

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