Erro 3

[halakaluf]

Tipo quando eu faço uma consulta no bd e não acho o item pesquisado ele me da essa page de erro:

Tipo de erro:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/pagener/consultaAL.asp, line 176

Tem como eu colocar pra aparecer uma mesagem informando que não avia nenhum registro no bd?

Por favor detalhem, bem a resposta pois sou novo no asp!!!

[Cyber Plets]

Você pode utilizar o código abaixo.

if objrs.eof then

response.Write("Não foi encontrado nenhum registro")

onde objrs é a variavel de seu bd

eof é o final do bd e bof é o inicio do bd.

tb sou novato no assunto, mas é garimpando informação que se aprende! B)

[ursolouco]

Salve Brother!!

você esta recebendo esta mensagem porque você apenas selecionou todos os registro de seu banco de dados e não difiniu nenhum ponto de partida do cursor para localização do objeto.

Como 'Cyber Plets' mesmo disse, você tem que passar alguma condição para iniciar a validação

Ex:

While Not Rs.EOF

Response.Write(rs(0))

Rs.MoveNext

Wend

Onde:

Rs = Objeto de RedorSet (Conjunto de Registros)

EOF = End Of File

MoveNext = Movendo o cursor para o proximo registro

While / Wend = Estrutura do Looping

Recomendo Brother, já que você é iniciante, fazer o cursinho de ASP do site da WebAula, que alem de gratis é excelente (na minha opinião) e procurar informações na web sobre SQL & Manipulação de dados dentro do banco de dados.

Abraços!!!

[halakaluf]

onde objrs é a variavel de seu bd

Tipo não entendi essa parte

objrs e o meu banco de dados ?

ou a variavel que eu quero procurar ?

no meu caso eu coloquei assim:

Onde bd e meu rs

if    bd.EOF   then
response.Write("Não foi encontrado nenhum registro")
end if
%>

Obrigado.

[halakaluf]

Achei que vocês gostariam de ver o codigo:

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Rádios.mdb") & ";Persist Security Info=False"
Conexao.Open Constr 
ComandoSQL = "select * from emissora where estado = 'GO' or 'DF' "
Set bd = Conexao.Execute(ComandoSQL)
If Not bd.EOF Then
  bd.Move Request.QueryString("n")
%>
<%
if    bd.EOF  then
response.Write("Não foi encontrado nenhum registro")
end if
%>
<a href= "excluir.asp?id= <%=bd("código") %>">Excluir</a> 


<tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Rádio:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Rádio")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Cidade:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Cidade")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Endereço:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Endereço")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Estado:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Estado")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Cep:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Cep")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Telefone:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Telefone")%></b></font></td></tr>
  <tr>
    <td align=right valign=top>
    <font face="Arial" size="2">Fax:</font></td>
    <td align=left valign=top>
    <font face="Arial" size="2">
    <b><%=bd("Fax")%></b></font></td></tr>

<%
Else
%>

  <font face="Arial" size="2"><b> Nenhum valor encontrado</b></font>

<%
End If
%>

</table><br><center>

<%
If Request.QueryString("n") > 0 then
  Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;"
End If

  bd.MoveNext
  If Not bd.EOF then
    Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>"
  End If

Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>

</table>


</body>