Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MS SQL Server (https://www.clubdelphi.com/foros/forumdisplay.php?f=23)
-   -   Usar el resultado de un Query (https://www.clubdelphi.com/foros/showthread.php?t=13874)

ramonibk 02-09-2004 11:55:05

Usar el resultado de un Query
 
Bueno no se si este es el sitio mas adecuado para poner este mensaje
pero bueno.

la cosa es que tendo un Query que me Cuenta los registros que contengan un numero determinado de datos

select count (Para) as NumeroMensajes from Mensajes Where Para Like :User

y bueno hasta aqui todo esta correcto.

pero lo que deseo hacer ahora es que con ese resultado si es mayor o ygual que 1 me cambie una imagen.

qryHayMensajes.Close;
qryHayMensajes.ParamByName('User').Value:=Edit1.text;
if qryHayMensajesNumeroMensajes >= 1
then image1.Picture.LoadFromFile:=BallRed.Bmp
Else image1.Picture.LoadFromFile:=BallRed.Bmp;
end;
qryHayMensajes.Open;

y al intentar compilarlo me da Error de incomptibilidad de tipos y debido a mi poca sapiencia pos estoy perdido.


ramonibk 02-09-2004 12:12:49

Correccion del codigo de ejecuciuon

Código:

Begin
 qryHayMensajes.ParamByName('User').Value:=Edit1.text;
 if qryHayMensajesNumeroMensajes >=1
 then begin image1.Picture.LoadFromFile('BallRed.Bmp')
 end Else image1.Picture.LoadFromFile('BallRed.Bmp');
end;


tcp_ip_es 02-09-2004 13:33:55

faltan cosillas :D

a ver tu código quedaría asi:

[delphi]
qryHayMensajes.ParamByName('User').Value:=Edit1.text;
qryHayMensajes.open;
if qryHayMensajesNumeroMensajes.value >=1
then begin image1.Picture.LoadFromFile('BallRed.Bmp')
end Else image1.Picture.LoadFromFile('BallRed.Bmp');

[delphi]

como ves tienes que abrir la consulta antes de preguntar por un campo y añadir el .value a tu field para que te saque el contenido del mismo.

Saludos, Tony

ramonibk 02-09-2004 13:54:00

OK.
Muchas gracias esto asi funciona mejor.

si al final poco a poco estoy aprendiendo algo.


La franja horaria es GMT +2. Ahora son las 18:28:02.

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