Resultquery ophalen

[Keesonlyne]

Beste,

Hoe kan ik een resultaat ophalen van een query? Ik kan geen databasenaam vinden in Access, dus ik kan (nog) niks met:

Set strSQL = myDatabase.OpenRecordset("SELECT * FROM dbo_rang WHERE rang = '" & rang.Value & "'")

Alvast bedankt voor je hulp!

 

[ReneDirks]

In welke VBA schrijf je dit? Access? Excel? Word?

 

[Keesonlyne]

Ik ben nu bezig in Access. Maar maakt dat veel uit dan?

 

[ReneDirks]

Ja, in Acces kun je namelijk heel simpel het object CurrentDB gebruiken, in de andere niet.

overigens ga ik er van uit dat strSQL een string is? Dan gaat het dus nog niet helemaal lukken..

Dim rst as DAO.Recordset

Set rst = CurrentDB.OpenRecordset("SELECT * FROM dbo_rang WHERE rang = '" & rang.Value & "'")

Je hebt nu een recordset (zeg maar een tabel in geheugen) waar je iets mee kan doen

  msgbox rst.recordcount   'aantal records in recordset
  if rst.recordcount <> 0 then
    rst.movefirst                  'ga naar eerste record
    msgbox rst(0)               'laat eerste veld zien
  end if
 'opruimen
 rst.close
set rst=nothing

 

[Keesonlyne]

Oke, bedankt voor je antwoord. Hiermee kom ik een eindje verder.