MS Access - ADO ODBC geeft geen records terug

[Morrey]

Beste mensen,

Ik wil graag in vba een records ophalen uit een mysql database. Met een passthrough query lukt het me wel, maar niet in de code. Kijk even mee als jullie willen:

code:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
    .Open "DSN=vips;"
End With

rs.ActiveConnection = cn
rs.LockType = adLockReadOnly
rs.CursorType = adOpenStatic

rs.Open ("select * from user")

rs.MoveFirst
MsgBox rs.RecordCount

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

De dsn connectie doet het, maar ik krijg -1 terug als aantal records, terwijl er toch echt 500 stuks instaan. Ik heb al allerlei smaakjes geprobeerd (zonder dsn, maar met de direct credentials), maar ik krijg hem niet aan de praat.

Thanks!

[Lustucru]

-1 records bestaat niet; maw dit wil alleen zeggen dat het aantal records (nog) niet is bepaald. Probeer maar eens door je recordset heen te lopen

[Witte]

Als de recordset leeg is, krijg je bij de .movefirst al een foutmelding.

Je kan records het best tellen op volgende manier:

code:

if rs.eof and rs.bof then
  aantal = 0
else
  if not rs.eof then rs.movelast
  aantal = rs.recordcount
end if