Foros Club Delphi - Como guardar en una tabla el resultado de un query mostrado en un dbgrid

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

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Como guardar en una tabla el resultado de un query mostrado en un dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=4235)

Como guardar en una tabla el resultado de un query mostrado en un dbgrid

Hola amigos del club delphi

Tengo una duda y quisiera saber si es posible, guardar el resultado de un query que es arrojado en un dbgrid y ese resultado tomarlo del dbgrid para guardarlo en una tabla, es posible hacer esto, si es asi como le puedo hacer.

gracias y saludos.

Se supone que las tablas tienen los mismos campos:

Con SQL:

Código:

INSERT INTO PROJECTS

SELECT * FROM NEW_PROJECTS

WHERE NEW_PROJECTS.START_DATE > "6-JUN-1994";

Otra solución es recorrer la consulta con un bucle

Código:

While Not MiQuery.Eof do

begin

MiTabla.Append;

MiTabla.MiCAmpo.Value:=MiQuery.MiCampo.Value;

MiQuery.Next;

end;



MiTabla.Post;

Hay que tener en cuenta que los datos están en el resultado de la consulta, no hace falta para nada la rejilla en esta operación.

Un Saludo.

Ok gracias marcozorrilla voy a tratar de hacerlo como me explicas y despues te digo como me fue.

Gracias marcoszorrilla me ha funcionado muy bien tu explicacion para guardar el resultado del query en una tabla y lo que queria hacer era tambien guardar los campos calculados y tenidendo en cuanta tu segundo ejemplo me quedo asi:

Código:

procedure TfrmCarteraCtes.guardaClick(Sender: TObject);

var

 id_concen: integer;

 var3: string;

begin

         While Not qryConsulta.Eof do

         begin

           tblConCteMes.Last;

           id_concen:=tblConCteMes.FieldByName('id_concentrado').AsInteger;

           inc(id_concen);

           var3:=IntToStr(id_concen);

           tblConCteMes.Insert;

           tblConCteMes.FieldValues['id_concentrado']:=StrToInt(var3);

           tblConCteMes.FieldValues['id_cliente']:=qryConsulta.FieldValues['cliente'];

           tblConCteMes.FieldValues['fecha']:=fecha1.Date;

           tblConCteMes.FieldValues['saldo']:=qryConsulta.FieldValues['Saldo'];

           qryConsulta.Next;

         end;

         tblConCteMes.Post;

end;

agradezco tu ayuda me has sacado de un ampuro, saludos.