Contar Registros....

Fevereiro 19, 2004

Quero apresentar na tela o total de registros de minha tabela no banco de dados...

Fiz assim:

<%
strrs = "SELECT * from bo"
conn.execute(strrs)
set objRS = conn.execute(strrs)
totalregistros = objRS.RecordCount
if totalregistros = 0 then
response.write "Nenhum registro"
end if
%>

E para printar:

Total de Registros: <%=totalregistros%>

E quando executo a pagina ele printa o seguinte:

Total de Registros: -1

Como posso resolver!!!

mkboy · Fevereiro 19, 2004

organizando:

Quero apresentar na tela o total de registros de minha tabela no banco de dados...

Fiz assim:

<%
strrs = "SELECT * from bo"
conn.execute(strrs)
set objRS = conn.execute(strrs)
totalregistros = objRS.RecordCount
if totalregistros = 0 then
response.write "Nenhum registro"
end if
%>

E para printar:

Total de Registros: <%=totalregistros%>

E quando executo a pagina ele printa o seguinte:

Total de Registros: -1

Como posso resolver!!!

pgmador · Fevereiro 20, 2004

Tem registros na sua tabela?

ursolouco · Fevereiro 20, 2004

<%
Contador = 0 
While not Rs.Eof
 Response.Write(Rs(0) & "<br>")
 Rs.MoveNext
 Contador = Contador + 1
Wend

 Response.Write("Total: " & Contador)
 Rs.Close
 Set Rs = Nothing
%>

mkboy · Fevereiro 20, 2004

ERRO, veja o que fiz:

<link rel=stylesheet type="text/css" href="estilos.css">
<%
dim objRS
dim strrs
cor_titulo = "#cccccc"
query = Request.querystring("query")
If query = "" then
response.redirect "busca.asp"
End if
Set conn = Server.CreateObject ("ADODB.Connection")
strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("fish.mdb")
conn.open strconn
Set objRS = Server.CreateObject("ADODB.Recordset")
strrs = "Select * from bo where nome like'%" & query & "%' order by email"
objRS.open strrs, conn
If objRS.EOF Then
response.write "<center>"
response.write "<table border=0 width="&"90%"&" cellspacing="&"0"&" cellpaging="&"0"&">"
response.write "<tr><td><font class="&"padrão"&">Resultado da pesquisa:</font></td></tr>"
response.write "</table>"
response.write "<br>"
response.write "<table bgcolor="&"#000033"&" border=0 width="&"90%"&" cellspacing="&"0"&" cellpaging="&"0"&">"
response.write "<tr><td>"
response.write "<table bgcolor="&"#ffffff"&" border=0 width="&"100%"&" cellspacing="&"0"&" cellpaging="&"0"&">"
response.write "<tr><td bgcolor="&"#efefef"&"><font class="&"padrão"&">Nenhum registro encontrado.</font></td></tr>"
response.write "<tr><td><font class="&"padrão"&">Redefina sua busca.</font></a></td></tr>"
response.write "</table>"
response.write "</td></tr>"
response.write "</table>"
response.write "</center>"
End if

If erro <> "" Then
Response.Write mensagem
End if
Do While not objRS.Eof
%>
<%
Contador = 0
While not objRS.Eof
Response.Write(objRS(0) & "<br>")
objRS.MoveNext
Contador = Contador + 1
Wend
Response.Write("Total: " & Contador)
objRS.Close
Set objRS = Nothing
%>
<HTML>
<head><title>Resultado da pesquisa</title>
</head>
<body>
<center>
<table border="0" width="90%" cellspacing="0" cellpaging="0">
<tr>
<td><font class="padrão"><b>Total de Registros: <%=contador%></b></font>

O erro:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário
/pesca/boletim/processa_01.asp, line 88

ursolouco · Fevereiro 20, 2004

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário
/pesca/boletim/processa_01.asp, line 88

Estranho, seu código que esta no POST só vai até a linha 72.. mostra um pouquinho mais do seu código..

Fevereiro 20, 2004

Faça a contagem na consulta SQL conforme descrevi abaixo, o inconveniente é ter de listar todos os campos do banco de dados que precisar em separado

strrs = "SELECT COUNT [nome da chave primaria] AS totalregistros,

[nome de outro campo], [nome de outro campo], FROM bo"

conn.execute(strrs)

set objRS = conn.execute(strrs)

DIM totalregistros

totalregistros = totalregistros

cris_reis · Fevereiro 22, 2004

Faz a contagem no sql mas não presica dos nome dos campos não. Basta fazer

StrSql = "Select Count(*) as Total from Tabela"

Conexao.execute (StrSql)

Entrar

Contar Registros....

Pergunta

Guest mkboy

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

mkboy

Link para o comentário

Compartilhar em outros sites

pgmador

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

cris_reis

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades