FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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"; Código:
While Not MiQuery.Eof do begin MiTabla.Append; MiTabla.MiCAmpo.Value:=MiQuery.MiCampo.Value; MiQuery.Next; end; MiTabla.Post; Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Ok gracias marcozorrilla voy a tratar de hacerlo como me explicas y despues te digo como me fue.
|
#4
|
|||
|
|||
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; |
|
|
|