Recordcount

[KohL]

Olá,

estou fazendo um sistema de rotação de banners. Preciso utilizar o RecordCount, só que não consigo, ele retorna -1, não importando a quantidade de registros existentes na tabela do BD do Access.

Estou usando o seguinte código:

<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd\banco.mdb")

SQLanuncio = "SELECT * FROM publicidade"
Set RSanuncio = cn.Execute(SQLanuncio)
vTotal = RSanuncio.RecordCount
%>

O que há de errado? Será que é o modo como estou me conectando ao banco de dados? Se sim, teria algum outro comando para se saber quantos registros há numa tabela?

Obrigado

[[ GuTo ]]

Sim, há outra maneira!

<%

Set cn = Server.CreateObject("ADODB.Connection")

cn.Open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd\banco.mdb")

set rs = cn.Execute("SELECT COUNT(*) AS total FROM publicidade")

if not rs.eof then

vTotal = rs("total")

else

Response.Write "Não há nenhum registro!"

end if%>

O recorcount eu já tentei usa-lo algumas vezes, mas também sempre me mostra um valor negativo, dae eu uso uma função pra calcular o módulo, dae retira os sinal de negativo

No seu caso ficaria assim:

SQLanuncio = "SELECT * FROM publicidade"
Set RSanuncio = cn.Execute(SQLanuncio)
vTotal = Abs(RSanuncio.RecordCount)

E as vezes também num recordcount q eu já fiz dava o valor negativo, mas um a menos do total. Digamos q tinha 30 registro no meu bd, dae no recordcount mostrava 29. Estranho...

Se alguém souber resolver isso... (ou não sei se eu já resolvi e não lembro, hehe)

[igorSM]

Ele mostra 29 pois sua conta começa do 0. Se tem 3 ele vai contar como 0 1 2. Entende?

[[ GuTo ]]

Entendo... mas começa desde o 1.

1,2,3...30

Contaria 30. Mas mostra 29...

Dae com isso prefiro fazer o SELECT COUNT(*).

[Decio]

tenta criar um recordset desta maneira:

Dim TotalRegistro

Set RS = Server.CreateObject("ADODB.Recordset")

SQL = "select * From tabela WHERE campo = 'algumacoisa'"

RS.CursorType = 3 'para poder saber qtde de registros

RS.Open SQL,cn,3,3

TotalRegistro=RS.recordcount

Desta forma você consegue saber qtos registros retornou a consulta

[ursolouco]

Não rola um contador ?

<% 
Contador = 0 
While Not Rs.Eof 
 Response.Write(Rs(0))
 Rs.MoveNext
 Contador = Contador +1
 Wend
 Response.Write("Retornado " & Contador & "registros.")

[[ GuTo ]]

Bem, nu meu contador de usuários online q fiz uso um RecordCount e funciona direitinho

precisa dos ponteiros 3,3 no fim SQL!

Aliás, alguém sabe a maneira correta de se usar ponteiros?

Algum tutorial, artigo?

Gostaria de saber +!