Foros Club Delphi - pasar datos de una tabla a otra

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - pasar datos de una tabla a otra (https://www.clubdelphi.com/foros/showthread.php?t=10834)

pasar datos de una tabla a otra

Hola Amigos, tengo una tabla en la que almaceno datos de materia prima que fue recibida, esta se llama MPXOR tiene campos como " mp_clave, cantidad, no_lote, costo, transaccionado ", lo que deseo es transaccionar dichos datos a una tabla donde llevo el inventario del almacen de mat. prima, realizo una consulta del tipo

Código:

select * from MPXOR where transaccionado = false

esta consulta me despliega en un datagrid todos los registros que contienen mat. prima que aun no ha sido transaccionada, lo que quiero es que despues de que se despliege la informacion en el datagrid, presionar un boton que dice descarga y que todos los datos del datagrid se vacien en la tabla INXALMP que es donde llevo los datos del almacen, especificando mas mi pregunta lo que necesito es como jalar los datos renlon por renglon del datagrid, otra opcion que pensaba era desplegar los datos uno por uno en cuadros de texto pero tendria que ir descargandolos uno por uno y lo que necesito es que se descarguen todos al mismo tiempo, espero puedan ayudarme ya que en esto me enrede un poco, Gracias.

Por medio de SQL, te quedaría así:

Código SQL [-]Insert into INXALMP
Where select * from MPXOR And transaccionado = false

Un Saludo.

Gracias Marcos, fijate que lo hice con el siguiente codigo

Código:

 Datasource2.DataSet.Active := true;

 Datasource1.DataSet.First;



[color = red] repeat

  Datasource2.DataSet.Append;

  AdodataSet2MP_clave.Value := AdoDataSet1MP_clave.Value;

  AdoDataset2LX_LOTE.Value  := AdoDAtaSet1MXR_NOLOTE.Value;

  AdoDataset2LX_Cantidad.Value := AdoDataset1MXR_cantidad.Value;

  AdoDataset2LX_CU.Value := AdoDataset1MXR_CUNIT.Value;

  Datasource1.DataSet.Edit;

  AdoDataset1MX_Transaccion.Value := true;

  Datasource1.DataSet.Post;

  DAtasource2.DataSet.Post;

  Datasource1.DataSet.Next;

 until Datasource1.DataSet.Eof = true;[/color]

 DataSource2.DataSet.active := false;

 DataSource1.DataSet.Active := false;

 DataSource1.DataSet.Active := true;

pero de todas formas me interesa ese codigo que me pasaste, ese codigo lo introduzco en un Dataset ?

Ese código iría en un Tquery, que debieras de activar mediante la instrucción:

Código Delphi [-]Miquery.ExecSql;

Un Saludo.