[Resolvido] Erro em busca no BD com select AVG

[renan.mafra 0]

Olá pessoal,

 

É o seguinte... estou fazendo uma busca no BD para

retornar a media de uma votação. O código faz o seguinte,

 

sqlstring = "SELECT AVG(produto1)as nota1, AVG(produto2)as nota2 FROM"
"avaliacoes WHERE nome = '" & produto & "'"

- seleciona as médias de determinado produto, depois....

 

set rs2 = server.creatobject("ADODB.Recordset")
rs2.activeconnection = con
rs2.cursortype = 3
rs2.open sqlstring

- aqui verifico se existe essa votação no BD

 

if not rs.eof then
var1 = rs(nota1)
var2 =rs(nota2)

var1_1 = formatnumber(var1, 1)
var2_2 = formatnumber(var2, 1)

else

AQUI aparece que caso não tenha registros no BD aparece
um texto como SEM NOTA

end if

O problema que esta acontecendo é que se existe a votação, ocorre tudo OK,

mais se não existe ele passa pelo if not rs.eof then, e apresenta um erro,

ou seja mesmo que não exista nenhuma votação para ele, ele vai em frente

em vez de mostrar SEM NOTA, aí aparece erro o erro acontece no formatnumber

pois não tem nenhum número para formatar....

 

Que esta acontecendo pessoal ???????

[hargon 64]

Ele sempre vai entrar no IF, pq nesse caso nunca vai ser fim de arquivo, pois ele sempre vai retornar algo.

 

O que você tem que fazer é eliminar esse IF, receber os valores e validar eles de acordo com sua necessidade.

[renan.mafra 0]

Obrigado Hargon,

 

Eu usei assim:

 

if vmedia > 0 then

 

 

else

 

 

end if

 

 

Obrigado !!!

[hargon 64]

Muito bom renan.mafra. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif