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

luisreg · #1 07/10/2003

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.

marcoszorrilla · #2 07/10/2003

Se supone que las tablas tienen los mismos campos:

Con SQL:

Code:

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

Code:

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.

luisreg · #3 07/10/2003

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

luisreg · #4 09/10/2003

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:

Code:

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.