PDA

Ver la Versión Completa : Usar el resultado de un Query


ramonibk
02-09-2004, 12:55:05
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, 13:12:49
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
02-09-2004, 14: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, 14:54:00
OK.
Muchas gracias esto asi funciona mejor.

si al final poco a poco estoy aprendiendo algo.