Mais uma vez eu preciso da ajuda de vocês no meu codigo eu boto bd.RecordCount so que não me retorna o numero de entradas encontradas no bd ele retorna -1. porque????
alguém sabe como resolver?
<%
If NOT Session("logado") = true Then
Response.redirect("erro.asp")
Response.End
End If
%>
<html>
<head>
<title>ASP Consulta</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center>
<table border=0 width="80%" align=center>
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") & ";Persist Security Info=False"
ComandoSQL = "select * from clientes where Month(Data) = "&Month(Date)&" AND Year(Data) = "&Year(Date())
Set bd = Conexao.Execute(ComandoSQL)
If Not bd.EOF Then
bd.Move Request.QueryString("n")
%>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">data:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("data")%></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">nome:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("nome")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2">email:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("email")%></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">Mensagem:</font></td>
<td align=left valign=top>
<font face="Arial" size="2">
<b><%=bd("textarea")%></b></font></td></tr>
<tr>
<td align=right valign=top>
<font face="Arial" size="2"><a href="excluir.asp?numero=<%=bd("numero")%>">Excluir</a></font></td></tr>
<%
Else
%>
<tr>
<td align="center"><font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> </td>
</tr>
<tr>
<td align="center"><font face="Arial" size="2"><b> <% response.write("<center><a href="&"javascript:history.back()"&">voltar</a></center>")%></b></font> </td>
</tr>
<%
End If
%>
</table><br><center>
<%
If Request.QueryString("n") > 0 then
Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a> "
End If
if not bd.EOF then
bd.MoveNext
end if
If Not bd.EOF then
Response.Write " <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>"
End If
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
</table>
</body>
</html>
Pergunta
halakaluf
salve programadores Asp,
Mais uma vez eu preciso da ajuda de vocês no meu codigo eu boto bd.RecordCount so que não me retorna o numero de entradas encontradas no bd ele retorna -1. porque????
alguém sabe como resolver?
<% If NOT Session("logado") = true Then Response.redirect("erro.asp") Response.End End If %> <html> <head> <title>ASP Consulta</title> </head> <body> <center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center> <table border=0 width="80%" align=center> <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") & ";Persist Security Info=False" ComandoSQL = "select * from clientes where Month(Data) = "&Month(Date)&" AND Year(Data) = "&Year(Date()) Set bd = Conexao.Execute(ComandoSQL) If Not bd.EOF Then bd.Move Request.QueryString("n") %> <tr> <td align=right valign=top> <font face="Arial" size="2">data:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("data")%></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">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("nome")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">email:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("email")%></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">Mensagem:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("textarea")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2"><a href="excluir.asp?numero=<%=bd("numero")%>">Excluir</a></font></td></tr> <% Else %> <tr> <td align="center"><font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> </td> </tr> <tr> <td align="center"><font face="Arial" size="2"><b> <% response.write("<center><a href="&"javascript:history.back()"&">voltar</a></center>")%></b></font> </td> </tr> <% End If %> </table><br><center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a> " End If if not bd.EOF then bd.MoveNext end if If Not bd.EOF then Response.Write " <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </table> </body> </html>Obrigado.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.