busca não retorna valor negativo

[niloskate 0]

Alguem poderia me esclarecer por que o

 

Response.Write("Nenhum registro foi encontrado")

 

Não está funcionando ???

 

Quando a busca não retorna nenhum resultado apresenta a mensagem de erro 0x800A0BCD porque será que isso está acontecendo ?

 

 

são 3 listbox DIA, MES, ANO não sei se isso influencia...

 

ASP

[*]<%

 

[*]

 

[*]dia = request("dia")

 

[*]

 

[*]mes = request("mes")

 

[*]

 

[*]ano = request("ano")

 

[*]

 

[*]data = dia &"/"& mes &"/"& ano

 

[*]

 

[*]Set Connect = Server.CreateObject("adodb.connection")

 

[*] Connect.Open Dados

 

[*] SQL = "Select * From agenda Where data like'%" & data & "%'"

 

[*] Set bd = Connect.Execute(SQL)

 

[*] evento = bd("evento")

 

[*] titulo = bd("titulo")

 

[*] info = bd("info")

 

[*]

 

[*]  Response.write sql & "<BR>" 

 

[*]If bd.EOF Then

 

[*]Response.Write("Nenhum registro foi encontrado")

 

[*]response.end

 

[*]end if

 

[*]

 

[*]Do while not bd.eof

 

[*]Response.write "<br>"

 

[*]Response.write "<br><table width='96%' height='98' border='0' cellpadding='0' cellspacing='0'>"

 

[*]Response.write "<tr>" 

 

[*]Response.write "<td bgcolor='#FBFBFB'><div align='center'>" 

 

[*]Response.write "<table width='96%' height='78' border='0' cellpadding='0' cellspacing='0'>"

 

[*]Response.write "<tr>" 

 

[*]Response.write "<td width='9%' class='textopequeno'><strong>Nome:</strong></td>"

 

[*]Response.write "<td width='91%' class='textopequeno'><strong>" 

 

[*]Response.write titulo

 

[*]Response.write "</strong></td></tr><tr bgcolor='#FCFCFC'><td class='textopequeno'><strong>Evento:</strong></td><td class='textopequeno'>"

 

[*]Response.write evento

 

[*]Response.write "</td></tr><tr><td class='textopequeno'><strong><font color='#FF0000'>Info:</font></strong></td><td class='textopequeno'>"

 

[*]Response.write info

 

[*]Response.write "</td></tr></table></div></td></tr></table><span class='textopequeno'>"

 

[*]bd.MoveNext

 

[*]Loop

 

[*]%>

[Luizgrs 0]

Ta dando esse erro pois antes de você conferir se a consulta retornou algo você já tenta pegar os valores:

ASP

[*]Set bd = Connect.Execute(SQL)

 

[*] evento = bd("evento")

 

[*] titulo = bd("titulo")

 

[*] info = bd("info")

Tenta assim:

ASP

[*]Set bd = Connect.Execute(SQL)

 

[*]If bd.EOF Then

 

[*] Response.Write("Nenhum registro foi encontrado")

 

[*] response.end

 

[*]end if

 

[*]evento = bd("evento")

 

[*]titulo = bd("titulo")

 

[*]info = bd("info")

[niloskate 0]

Ta dando esse erro pois antes de você conferir se a consulta retornou algo você já tenta pegar os valores:

ASP

[*]Set bd = Connect.Execute(SQL)<br /> evento = bd("evento")<br /> titulo = bd("titulo")<br /> info = bd("info")

Tenta assim:

ASP

[*]Set bd = Connect.Execute(SQL)<br />If bd.EOF Then<br /> Response.Write("Nenhum registro foi encontrado")<br /> response.end<br />end if<br />evento = bd("evento")<br />titulo = bd("titulo")<br />info = bd("info")

<{POST_SNAPBACK}>

Oww.. eh verdade deu certo na hora, valew cara... muito obrigado, com o tempo eu fico bom igual você !!! :D