Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Problemas con TQuery (https://www.clubdelphi.com/foros/showthread.php?t=34620)

lucero_chivas 15-08-2006 23:21:55

Problemas con TQuery
 
Hola!!

Como podran notar soy novata en esto, espero me puedan ayudar, tengo algunas dudas.....

1.- Tengo un TQuery donde realizo unas consultas para que me agrupe por empleados y me haga la suma de su sueldo según lo trabajado, esto es algo como lo siguiente:

Código Delphi [-]
    Query1->Clear();
    Query1->SQL->AddStrings("select sum(total),nombre from empleados    group by empleados");
    Query1->Active=true;

Ahora lo que deseo es que todos los registros como me los está poniendo el TQuery me los mande a una tabla llamada Nomina... y aquí es el problema... ya no supe como... espero su ayuda.

ContraVeneno 15-08-2006 23:56:15

Los resultados los quieres mostrar en un TDBGrid, el cuál debe tener las propiedad DataSource, que es donde debes de enlazar tu dbgrid con el tquery y listo. En cuanto lo activas, la información se muestra en el grid.

roman 16-08-2006 04:13:10

Veo dos opciones. Una es usar una componente Table asociada a la tabla de nóminas e insertar uno a uno los registros conforme recorres el query:

Código Delphi [-]
(*
  Sintaxis de Delphi. Traducir a C
*)
Query1.First;
while not Query1.EoF do
begin
  Table1.Append;
  Table1.FieldByName('total').AsFloat := Query1.Fields[0].AsFloat;
  Table1.FieldByName('nombre').AsString := Query1.Fields[1].AsString;
  Table1.Post;

  Query1->Next;
end;

Pero también podrías hacrlo con una sóla sentencia SQL:

Código SQL [-]
insert into nominas
select sum(total), nombre from empleados group by nombre

// Saludos

lucero_chivas 16-08-2006 05:32:41

Gracias por responder... intentaré las dos formas y luego les comento cuál me funcionó mejor :)


La franja horaria es GMT +2. Ahora son las 02:22:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi