copiar registros de una tabla a otra

[Rofocale]

Código Delphi [-]
      Close;
                SQL.Clear;
                SQL.Add('SELECT * FROM ventasareas');
                Open;
                articulo1 := FieldByName('articulo').value;
                cantidad1 := FieldByName('cantidad').value;
                precio1 := FieldByName('precio').value;
                fecha1 := FieldByName('fecha').value;


            Close;
            SQL.Clear;
            SQL.Add('INSERT INTO ventasdet (venta, orden, articulo, cantidad, precio,iva,devolucion, fecha)');
            SQL.Add('VALUES (:venta, rden, :articulo, :cantidad, recio, :iva,:devolucion,:fecha)');

            params.ParamByName('venta').Value :=  sVenta;
            params.ParamByName('orden').Value := IntToStr(i);
            params.ParamByName('articulo').Value := articulo1;
            params.ParamByName('cantidad').Value := cantidad1;
            params.ParamByName('precio').Value :=  precio1;
            params.ParamByName('iva').Value :=  rIva;
            params.ParamByName('devolucion').Value :=  riva;
            params.ParamByName('fecha').Value :=  fecha1;

Hola a todos este codigo me copia el primer registro de ventasareas a ventasdet

ahora mi pregunta es como puedo hacer para copiar todos los registros de ventasareas a ventasdet.. ya que ventasareas no solo tiene un registro si no mas..
alguien me puede ayudar ?

gracias

[Casimiro Notevi]

Un bucle, por ejemplo, aprovechando un poco tu código:

Código Delphi [-]
SQL.Clear;                 
SQL.Add('SELECT * FROM ventasareas');                 
Open; 
while not sql.eof dobegin
 SQL.articulo1 := FieldByName('articulo').value;
 SQL.cantidad1 := FieldByName('cantidad').value;
 etc...

 SQL2.Clear;
 SQL2.Add('INSERT INTO ventasdet (venta, orden, articulo, cantidad, precio,iva,devolucion, fecha)');
 SQL2.Add('VALUES (:venta, rden, :articulo, :cantidad, recio, :iva,:devolucion,:fecha)');
 SQL2.params.ParamByName('venta').Value :=  sVenta;
 SQL2.params.ParamByName('orden').Value := IntToStr(i);
 etc...     


 SQL.next;
end;

[Rofocale]

no funciona el bucle da error de que el query esta cerrado y no puede realizar la operacion
tampoco hay parametro sql.next

[Casimiro Notevi]

Ya sé que no funciona, tal y como he dicho antes, sólo he modificado un poco tu código para que te hagas una idea de cómo debe hacerse y para hacerte pensar un poco, que es la única forma en que se aprenden las cosas

[Casimiro Notevi]

A ver si te sirve esta "plantilla":

Código Delphi [-]
try
  Q1.Close;
  Q1.SQL.Text := 'select ...';
      
  Q2.Close;
  Q2.SQL.Text := 'insert into ...';
    
  Q1.Open;
  while not Q1.Eof do
  begin      
    Q2.Close;
    Q2.ParamByName('campo1').AsInteger := Q1.FieldByName('campo1').AsInteger;
    Q2.ParamByName('campo2').AsString  := Q1.FieldByName('campo2').AsString;
    etc.
    Q2.Execquery;      

    Q1.Next;
  end;

finally
  Q2.Transaction.CommitRetaining;
end;

[Rofocale]

queria saber si en el codigo que he puesto se le puede agregar unas lineas .. un bucle como me lo mencionaste al inicio.. ya que no quisiera cambiarlo por otro codigo distinto..

solo es cuestion de que quiero aprenderlo asi...