Varför blir det så?

*Joel*

För att index börjar på noll

Uppstår bland annat när man använder: adOpenForwardOnly
och när man använder använder server sided cursors.

Se Pelles tips:
http://www.pellesoft.nu/login/tips/t_view4.asp?tid=684

MVH

Peter S

Fungerar inget vidare:
Set rstMedlemmar = Connect.Execute("Select Id From medlemmar Where Inloggad='Online'")

Dim vCount()
vCount() = rstMedlemmar.GetRows()
recprdcounten2 = UBound(vCount, 2) + 1
rstMedlemmar.Close

mvh
Joel

Varför behöver du Recordcount? Ska du ha en progressbar?

Har du kontrollera att curortype inte är adOpenForwardOnly ?
Prova att öppna recodsetet på följande sätt:


rstMedlemmar.open SQL,Connect, adOpenStatic, adLockReadOnly


Eller varför inte använda Count-funktionen ?

SQL = "SELECT Count(*) AS [Antal] FROM medlemmar where Inloggad='Online';"

rstMedlemmar.open SQL,Connect, adOpenForwardOnly, adLockReadOnly

if rstMedlemmar.eof and rstMedlemmar.bof then
'Finns inga poster !
else
Debug.print rstMedlemmar("Antal").value
endif

Offtast kan en loop vara en dålig lösning som det blir långsamt
med flera poster med kanske är det en lösning som skulle passa
i sammanghanget.

if rstMedlemmar.eof and rstMedlemmar.bof then
'Finns inga poster !
else
Debug.print rstMedlemmar("Antal").value
rstMedlemmar.movefirst
do' ( while Not rstMedlemmar.Eof )

if rstMedlemmar.eof then Exit do

Antal = Antal + 1

loop

endif

OBS ! Detta är ingen fullständig kod utan saknar deklartioner etc men ger ändå en idé om hur man kan göra.

MVH

Peter S

Fungerar fint med denna kod!:
Set rstMedlemmar = Connect.Execute("SELECT Count(*) AS ItemCount FROM medlemmar")
varAMedlemmar = rstMedlemmar("ItemCount")
rstMedlemmar.Close

(MYSQL)