Opciones para copiar registros de una tabla a otra

[pmtzg]

hola amigos
tengo la siguiente pregunta, estoy haciendo una pequeña aplicacion donde uno 2 tablas paradox para formar una sola
lo hago por medio de
1 query2 y table2

este es el codigo aqui selecciono todos los campos

Código Delphi [-]

consult:='select * from cuentas.db '+
' union '+
' select * from BdOld\cuentas.db ';

query1.SQL.Clear;
query1.SQL.Add(consult);

query2.Active := true;

table2.DatabaseName := 'Reporte';
table2.TableName := 'tableunion';

 table2.Open;

while not query2.Eof do
   table2.Append;
  begin
     for I := 0 to query2.fields.Count - 1 do
        begin
          table2.Fields[i].Value := query2.Fields[i].Value;
          table2.post;
         query2.Next;
        end;
   end;

y excelente todo muy bien

pero ahora por necesidad tengo un campo llamado noreg, que es key primary
y me guarda el no de registro q se va guardando, y este campo lo deseo colocar con un nuevo numero segun se vaya guardando en la nueva base o la union de las 2 bases y hago lo siguiente :

Código Delphi [-]
consult:='select cliente, fecha, importe, fechaven, descuento from cuentas.db '+
' union '+
' select cliente, fecha, importe, fechaven, descuento from BdOld\cuentas.db  order by fecha desc';

// selecciono todos los campos exepto noreg

query1.SQL.Clear;
query1.SQL.Add(consult);

query2.Active := true;

table2.DatabaseName := 'Reporte';
table2.TableName := 'tableunion';
nr:=query2.RecordCount;  // para gravar noreg con nuevo num. de registro
 table2.Open;
table2.Append;
while not query2.Eof do
   
  begin
    // for I := 0 to query2.fields.Count - 1 do    omiti esto 
       // begin
        //  table2.Fields[i].Value := query2.Fields[i].Value;  omiti esto

           table2.FieldByName('noreg').AsInteger:=nr;
           table2.FieldByName('cliente'):=query2.FieldValues['cliente'];
           table2.FieldByName('fecha'):=query2.FieldValues['fecha'];
           table2.FieldByName('importe'):=query2.FieldValues['importe'];
           table2.FieldByName('fechaven'):=query2.FieldValues['fechaven'];
           table2.FieldByName('descuento'):=query2.FieldValues['descuento'];

          table2.insert;
         query2.Next;
         nr:=nr-1;
       // end;
   end;

ahora mi pregunta es la siguiente
¿habra una forma de tomar todos los registros del query2 y solo anexar el valor del campo noreg por medio de variable ?

mas sencillo es un buen capturar todos los registros puesto que tengo que pasar asi varias tablas y unas traen hasta 52 campos con el mismo campo noreg como key prymary

si anexo esto al codigo

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

y mando grabar me manda error
solo me funciona declarando todos los campos de uno por uno

Código Delphi [-]
table2.FieldByName('cliente'):=query2.FieldValues['cliente'];

espero haberme explicado
si alguien me puede ayudar se lo agradecere porque me faltan mas tabla por unir y como les comentaba hay algunas que traen hasta 52 campos esta es la mas peque y es un ejemplo

gracias saludos

[[oscarac]]

y has probado de esta manera?

te pongo el pseudocodigo

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

osea colocar fuera del for el primer campo

[pmtzg]

gracias oscarac
ya lo hice asi pero me marca error


raised exception class EVariantTypeCastError with message Could not convert variant of type (string) into type (date)

y tambien me dice

EDataBAseError with message invalid value for field fecha

¿alguna sugerencia? la verdad es que ya no se ni por donde

[[oscarac]]

segun el ejemplo las 2 tablas tienen la misma estructura, pero mencionas que hay tablas que tienen hasta 52 campos... en esos casos como haces el query o solo los llamas con * (Select * from...)

[pmtzg]

aun no llego ahi mi estimado primero estoy haciendo pruebas con las tablas mas chicas

y si no encuentro otra solucion tendre que declarar para cada campo el

Código Delphi [-]
table2.FieldByName('cliente'):=query2.FieldValues['cliente'];

el insert imaginate primero hacer el select, que es mas sencillo
y despues esto es demaciado codigo para el exe

pero creo que pasa me va desfasando y me graba nr en noreg y lo demas lo hace o mas bien lo recorre al insert

para darme a entender hay alguna posibilidad de de hacer esto :

Código Delphi [-]
  table2.FieldByName('noreg').AsInteger:=nr;

  table2.Fields[i].Value := nr+query2.Fields[i].Value;

no es posible hacer esto pero alguna funcion o algo parecido para que grabe el registro completo
eso es lo que veo que me haria bien

[[oscarac]]

a ver a ver aver....
segun entendi lo que deseas hacer es unir 2 tablas en una nueva verdad?

si las tablas tienen los campos iguales entonces funcionaria perfectamente

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

end

ten cuidado con los Begin y los end, quiza ahi esta tu problema