Opciones para copiar registros de una tabla a otra

[[mightydragonlor]]

claro que si, espero que esto te sirva.
http://www.firebirdfaq.org/faq343/

[pmtzg]

gracias mightydragonlor

pero me funciona de paradox a paradox

o como seria de paradox a firebird

por que segun lei solo es para bases de datos en firebird

voy a leer a ver q se me ocurre una vez mas gracias

[[mightydragonlor]]

claro que si la consulta inicial es paradox, pues este no reconocerá esa sentencia, así que los mas indicado es agregar una columna al table, controlando por código el nro que desees.

[pmtzg]

amigo creo que esta vez me declaro incompetente o estoy mega bloqueado

si tu ves mi sentencia la que esta arriba me podrias ilustrar como se haria ??

perdon pero ahora si ya me agarraron las prisas

[[mightydragonlor]]

Código Delphi [-]
for I := 1 to query2.fields.Count - 1 do
Begin
     table2.FieldByName('noreg').AsInteger:=I;
     table2.Fields[i].Value := query2.Fields[i].Value;
     table2.post;
     query2.Next;
end

Si te fijas, ya estas recorriendo los registros uno a uno, el I guarda el número de registro por así decirlo.

[ecfisa]

Hola pmtzg.

Veo que oscarac y mightydragonlor coinciden con que te sugerí en el hilo anterior: 2 Tablas Paradox a Firebird

Saludos.

[[oscarac]]

sigo pensando en que debes tener cuidado con los begin y end en tu bloque de codigo

Código Delphi [-]
 
for I := 1 to query2.fields.Count - 1 do
Begin
     table2.FieldByName('noreg').AsInteger:=I;
     table2.Fields[i].Value := query2.Fields[i].Value;
     table2.post;
     query2.Next;
end

creo que el post deberia estar fuera del bloque, porque solo te "grabaria" la primera modificacion y no veo un edit despues del query2.next

[pmtzg]

haciendo los cambios ahora me marca

table2ataset no in edit or insert mode

si lo cambio a insert

no graba bien los registros

graba en cada renglon un solo campo nada mas