RS.Count não funciona??????

[Vagabondis 0]

Eu não estou conseguindo utilizar o método Count do RecordSet , dá o erro dizendo que "O objeto não dá suporta a propriedade ou método RS.Count"...

 

O escroto é que a alguns dias atrás, tinha funcionado e agora não funciona. Será que alguém sabe a solução disso????

 

Outra coisa, quando eu utilizo "RS.RecordCount" tb dá erro, ele diz que "O BOF e o EOF são verdadeiros, ........"

 

 

Meu arquivo de conexão é:

 

 

strConnection = "DRIVER=Driver do Microsoft Access (*.mdb);dbq=" & Server.MapPath("Banners.mdb")

'strConnection = "DRIVER=Microsoft Access Driver (*.mdb);dbq=" & Server.MapPath("BDTesteNeto.mdb")

 

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

Conn.Open strConnection

[Salgado 4]

O problema não está na conn, está no seu RecordSet,

Colca seu cód para dar-mos uma analizada.

 

Valeu?

[Vagabondis 0]

{

Dim MaxBanner, SelectedBanner

}

[

#include file="conexao.asp"

]

 

{

Set RS = Conn.Execute("SELECT * FROM Banner ORDER BY BannerCod")

MaxBanner=RS.Count

Randomize

Response.Write Int(Rnd*20)

Do while Not RS.EOF

MaxBanner = MaxBanner + 1

RS.movenext

Loop

}

 

Esse código é para q seja sroteado um número aleatoriamente entre 0 e o total de registros de banners para o meu sistema de Banner Rotation. Eu até tentei utilizar o Do While Not RS.EOF mas tamém sem sucesso.

 

:rolleyes: Será q danado é isso ein?????

[Salgado 4]

Teste isso e veja se funciona:

Set RS = Conn.Execute("SELECT * FROM Banner ORDER BY BannerCod desc")
MaxBanner=RS("BannerCod")
Randomize
SorteioBanner=Int(Rnd*MaxBanner)
RS.MoveAbsolute(SorteioBanner)
response.write RS("BannerCod")

 

QQ problema Posta ai.

 

Valeu?

[kenew 0]

O problema é q .... com Select o RecordSet não da suporte a RecordCount ... você pode fazer o seguinte tambem:Set Conn = Server.CreateObject( "ADODB.Connection" )Set RS = Server.CreateObject( "ADODB.RecordSet" )RS.Open "SELECT * FROM Banner ORDER BY BannerCod", Conn

[Vagabondis 0]

Knew, foi justamente como você falou que foi funcionar.

Depois que eu fiz daquele jeito ai beleza...

Ai na linha: RS.Open "SELECT * FROM Banner ORDER BY BannerCod", Conn

 

Eu coloquei no final 3, 1

 

Valews pela ajuda...Salgado, vou testar sua sugestão tb!!!