copiar registros de una tabla a otra

[Casimiro Noteví]

Claro, fíjate en la "plantilla" que te he puesto, sólo has de seguir esa estructura con tu código.

[Rofocale]

Código Delphi [-]
          try
           dmdatos.qryconsulta.Close;
           dmdatos.qryconsulta.SQL.Clear;
           dmdatos.qryconsulta.SQL.Add('SELECT * FROM ventasareas');

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

           dmdatos.qryconsulta.open;

           while not dmdatos.qryconsulta.Eof do
           begin
           articulo1 := dmdatos.qryconsulta.FieldByName('articulo').value;
           cantidad1 := dmdatos.qryconsulta.FieldByName('cantidad').value;
           precio1 := dmdatos.qryconsulta.FieldByName('precio').value;
           fecha1 := dmdatos.qryconsulta.FieldByName('fecha').value;

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

           dmdatos.qrymodifica.open;
           dmdatos.qryconsulta.next;
            //ExecSQL;
           end;
           finally
           dmdatos.qrymodifica.Transaction.CommitRetaining;
           end;

no funciona la estructura.. osea compila normal pero sigue copiando solo la primera linea

[[ElDioni]]

Para que funcione deberías hacer la instrucción de insertar y de guardar los cambios dentro del bucle, ¿no?, para que lo haga con todos los registros.

Saludos.

[Rofocale]

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,');
            SQL.Add('iva, descuento, juego, devolucion, ventareforden, comentario, fecha, cantidad_cnt) VALUES(');
            SQL.Add(sVenta + ',' + IntToStr(i) + ',');
            SQL.Add(grdDatos.Cells[0,i] + ',');
            SQL.Add(grdDatos.Cells[3,i] + ',');
            SQL.Add(grdDatos.Cells[4,i] + ',');
            SQL.Add(grdDatos.Cells[5,i] + ',');
            SQL.Add(grdDatos.Cells[8,i] + ',0,0,');
            if(grdDatos.Cells[12,i] = '') then
                SQL.Add('null,')
            else
                SQL.Add(grdDatos.Cells[12,i] + ',');
            SQL.Add(sClaveComent + ',' + QuotedStr(grdDatos.Cells[15,i]) + ',');
            SQL.Add('''' + grdDatos.Cells[16,i] + ''')');
            ExecSQL;

ese codigo por ejemplo si funciona pero con un stringgrid.. yo no quiero eso queria hacerlo como en el codigo que puse ya que no uso un stringgrid si no un cxgrid

alguna otra sugerencia ? ya que me da error si meto el insert dentro del bucle tambien
gracias

[[ElDioni]]

¿Podrías poner que error es el que te da?
¿Podrías poner el código como lo has puesto para que te de el error?

[ecfisa]

Hola.

No entiendo por que no lo realizas como te sugirío Casimiro, de ese modo funciona correctamente.

Código Delphi [-]
...
begin
  qyVtasArea.SQL.Clear;
  qyVtasArea.SQL.Add('SELECT * FROM VENTASAREAS');
  qyVtasArea.Open;
  qyVtasDet.SQL.Clear;
  qyVtasDet.SQL.Add('INSERT INTO VENTASDET(VENTA,ORDEN,ARTICULO,CANTIDAD,PRECIO,IVA,DEVOLUCION,FECHA)');
  qyVtasDet.SQL.Add('VALUES(:VENTA,:ORDEN,:ARTICULO,:CANTIDAD,:PRECIO,:IVA,:DEVOLUCION,:FECHA)');
  while not qyVtasArea.Eof do
  begin
    qyVtasDet.ParamByName('VENTA').Value:= qyVtasArea.FieldByName('VENTA').Value;
    qyVtasDet.ParamByName('ORDEN').Value:= qyVtasArea.FieldByName('ORDEN').Value;
    qyVtasDet.ParamByName('ARTICULO').Value:= qyVtasArea.FieldByName('ARTICULO').Value;
    qyVtasDet.ParamByName('PRECIO').Value:= qyVtasArea.FieldByName('PRECIO').Value;
    qyVtasDet.ParamByName('IVA').Value:= qyVtasArea.FieldByName('IVA').Value;
    qyVtasDet.ParamByName('DEVOLUCION').Value:= qyVtasArea.FieldByName('DEVOLUCION').Value;
    qyVtasDet.ParamByName('FECHA').Value:= qyVtasArea.FieldByName('FECHA').Value;
    qyVtasDet.ExecSQL;
    qyVtasArea.Next;
  end;
  qyVtasDetqyVtasArea.Close;
end;

Saludos.