ayuda copiar datos de una tabla a otra

[Rofocale]

este codigo es el que uso para copiar unos datos a determinada tabla mediante un stringgrid que viene a ser grdDatos.Cells el stringgrid de donde es copiado los datos a la tabla

bueno el caso es que lo copio desde el stringgrid los datos que estan en pantalla pero estos datos ya han sido guardados en otra tabla ventasarea.. como podria hacer para copiar directamente los datos de ventasarea de ventasdet

para hacer mas o menos algo como

Código Delphi [-]
dmsdatos.ventasdetparams.ParamByName('articulo').Value := dmstados.areasventa.params.ParamByName('articulo').Value

espero se haya entendido gracias

Código Delphi [-]
for i := 0 to grdDatos.RowCount - 1 do begin


            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 := grdDatos.Cells[0,i];
            params.ParamByName('cantidad').Value :=grdDatos.Cells[3,i];
            params.ParamByName('precio').Value :=  grdDatos.Cells[4,i];
            params.ParamByName('iva').Value :=  rIva;
            if(grdDatos.Cells[12,i] = '') then
               params.ParamByName('devolucion').Value := NULL
            else
               params.ParamByName('devolucion').Value := grdDatos.Cells[12,i];

            params.ParamByName('fecha').Value :=  grdDatos.Cells[15,i];
            ExecSQL;

[ecfisa]

Hola Rofocale.

Podés ejecutar la siguiente consulta de actualización:

Código SQL [-]
INSERT INTO VENTASDET(CAMPO1, CAMPO2, CAMPO3,...)
SELECT CAMPO1,CAMPO2,CAMPO3,... FROM VENTASAREA
WHERE (condición que desees) /* esta línea es innecesaria si queres copiar todos los registros */

Saludos.