Usar el resultado de un Query

[ramonibk]

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]

Correccion del codigo de ejecuciuon

 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]

faltan cosillas

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]

OK.
Muchas gracias esto asi funciona mejor.

si al final poco a poco estoy aprendiendo algo.