Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Sepuede Hacer Esto???????? (https://www.clubdelphi.com/foros/showthread.php?t=26461)

ddd_ddd 24-10-2005 17:05:20

Sepuede Hacer Esto????????
 
Tengo Una Tabla Que Se Llama Envios, La Cual Tiene Un Campo Que Se Llama Fecha De Envio...

Lo Que Quiero Hacer Es Que En Una Maskedit O En Un Label Me Aparezcan Todas Las Fechas De Envio De Un Patron

Quedaria Asi:

Envios:01/01/05, 01/02/05, 01/03/05

Se Puede Hacer Asi?
Y Como?

marcoszorrilla 24-10-2005 17:40:39

Pues tendrá que ser en un label o un Edit.

Mi solución sería:
1.- Hacer una consulta que nos devuelva las fechas que necesitamos
2.- Recorrer la consulta con un bucle While...not eof e ir añadiendo las distintas fechas.

Milabel.caption:=Milabel.caption+' '+MiConsultaColumna;

Un Saludo.

ddd_ddd 24-10-2005 18:32:23

sigo teniendo problemas
 
lo que hice es:

Código Delphi [-]
  
query1.active:=false;
 query1.active:=true;
 
 while not query1.eof do
 begin
   label1.caption:=label1.caption+' '+query1.text;
 end;
eso fue lo que hice, pero se cicla.

algo hice mal?

saludos....

marcoszorrilla 24-10-2005 18:38:26

Código Delphi [-]
 query1.active:=false;
query1.active:=true;
 
while not query1.eof do
begin
   label1.caption:=label1.caption+' '+query1.fields[0].AsString;
end;

Un Saludo.

roman 24-10-2005 18:54:33

Cita:

Empezado por ddd_ddd
algo hice mal?

Pues tu ciclo nunca avanza de registro. Haría falta un query1.Next

// Saludos

ddd_ddd 24-10-2005 19:02:27

Si Funciona Gracias
 
Si, Al Codigo Le Falta El Query1.next.


Ya Funciona, Gracias,

Saludos....

marcoszorrilla 24-10-2005 19:21:05

Perdón, di por hecho que tenía Next y es cierto como muy bien te dice Román que no lo habías puesto.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 13:05:34.

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