como contar registro q eu tenho no banco de dados 1, 2, 3

lezão · Outubro 10, 2013

Ola galera, boa noite!

Existe um codigo q conta os meus registros adicionados no banco de dados ?

tipo:

1-

2-

3-

estou usando este codigo:

<% registros = 10
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database/Database.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "SELECT * FROM Artilheiro ORDER BY Gols DESC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"


Else
rs.AbsolutePage = pagina

%>

<%While Not rs.EOF AND x < rs.PageSize x = x + 1 %>

veja como fica http://www.shopcolina.com.br/public_html/olhonolance/artilheiro.asp

xanburzum · Outubro 10, 2013

dependendo da situacaun melhor usar um contatdor normal ou a clausula count do SQL, pois se o seu bd for muito grande o recordcount do objeto recordset para apresentar queda de desempenho
e para usar o RecordCount , seu cursortype tem k ser recordset.CursorType = 3 (AdOpenDynamic)

exemplo:

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM myTable"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

' Count how many records exist
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

' Display result
Response.Write "(" & iRecordCount & ")"

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

SQL COUNT

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM myTable"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

lezão · Outubro 10, 2013

Xan, esta dando o seguinte erro

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/public_html/olhonolance/qnts.asp, line 7

e fiz assim

<!--#include file="conexao.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM Artilheiro"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

xanburzum · Outubro 10, 2013

Isso é muitas vezes porque você usou os nomes "amigáveis" do engine do ASP para os valores (tais como adLockReadOnly), em vez dos constantes inteiras (que são os únicos valores compreendidos pelo motor), sem incluir ADOVBS.INC. Então, uma solução rápida muitas vezes pode ser para se certificar de que você incluiu ADOVBS.INC.

lezão · Outubro 14, 2013

vixi....................

Mas será q é taun dificil fazer isso ....

Nº registro

1º...........bla bla bla

2º...........bla bla bla

3º...........bla bla bla

4º...........bla bla bla

Humberto Oliveira Pinto · Outubro 15, 2013

<%

while objRs.EOF

i = 1

Response.write(i&objRs("campo"))

i = i+1

objRs.MoveNext()

Wend

%>

xanburzum · Outubro 15, 2013

e depois concatene a info que quer na frente do respectivo recordset

Humberto Oliveira Pinto · Outubro 15, 2013

<%
i = 1

while objRs.EOF
   
   
   Response.write(i&objRs("campo"))

  i = i+1
  objRs.MoveNext()
Wend
%>

lezão · Outubro 16, 2013

fiz assim e naun aparece os numeros

1º

2º

<% registros = 20
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database/Database.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "SELECT * FROM Clube ORDER BY P DESC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina


%>
<% While Not rs.EOF AND x < rs.PageSize x = x + 1 %>	
	<table width="819" border="0" cellspacing="0" cellpadding="0" class="texto" style="border-bottom: 1px solid #999999">
  <tr class="tbcor1" onMouseOver="this.style.backgroundColor='#F7F7F7';" onMouseOut="this.style.backgroundColor='#FFFFFF';">
    <td width="5" bgcolor="<%=rs("Rebaixado")%>"> </td>
    <td width="37">
	<%
while rs.EOF
 i = 1  
   
   Response.write(i&rs("Clube"))

  i = i+1
  rs.MoveNext()
Wend
%>
</td>
        <td width="472"><font size="4" color="#000000" face="Arial">  <%=rs("Clube")%></font></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><b><%=rs("P")%></b></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("J")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("V")%></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("E")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("D")%></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("GP")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("GC")%></font></div></td>
        <td width="39" height="44"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("SG")%></font></div></td>
      </tr>
    </table>
	  <% rs.MoveNext
Wend
%>

<%
rs.Close
Set rs = Nothing  
End If %>

veja como ficou http://www.shopcolina.com.br/public_html/olhonolance/1.asp

e como teria q ficar http://www.shopcolina.com.br/public_html/olhonolance/teste.asp

com os numeros

Humberto Oliveira Pinto · Outubro 16, 2013

....

<%

i=1

While Not rs.EOF AND x < rs.PageSize x = x + 1 %>

<%=i%>

</td>

</tr>

</table>

<%

i=i+1

rs.MoveNext

Wend

%>

....

lezão · Outubro 16, 2013

Veja como ficou agora

1

http://www.shopcolina.com.br/public_html/olhonolance/1.asp

Vixi foi mal eu naun li seu post inteiro......

eskeci esse

	  <% 
i=i+1
rs.MoveNext
Wend
%>

Agora sim deu certo ficou do jeito q eu precisava...... obrigado!!!!

xanburzum · Outubro 16, 2013

vc precisa apenas contar para saber o número total de recordsets que tem no bd ?

lezão · Outubro 16, 2013

isso mesmo Xan!

xanburzum · Outubro 17, 2013

que bom que ceu certo, mas apenas para contagem, vc poderia fazer em uma linha só, direto no SQL Select Count

lezão · Outubro 17, 2013

como assim ?

Arquivado

como contar registro q eu tenho no banco de dados 1, 2, 3

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Humberto Oliveira Pinto 8

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Humberto Oliveira Pinto 8

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Humberto Oliveira Pinto 8

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante