Select in database

[Cyrex01]

Als ik in VBA gegevens uit een tabel haal met bijvoorbeeld

Dim db As Database
Dim qrec As Recordset
Set db = CurrentDb()
sql01 = "SELECT Monteur FROM Monteurs"
Set qrec = db.OpenRecordset(sql01)
MsgBox qrec.Fields("Monteur")
qrec.Close

Krijg ik maar 1 record, nu wil ik alle records die onder Monteur vallen.
Hoe kan dit verwezenlijkt worden?
Iemand een idee?

 

[Speedy7912]

inhoudelijk qua taal kan ik de vraag niet beantwoorden, maar logischer wijs verwacht ik een "foreach 'record' do" statement of de vba vervangende variant op deze code.

 

[Cyrex01]

Iedere manier om dit te verwezenlijken is welkom.
Graag uw meningen

 

[Speedy7912]

even snel ge-googled (niet getest)


Dim db As Database
Dim qrec As Recordset
Set db = CurrentDb()
sql01 = "SELECT Monteur FROM Monteurs"
Set qrec = db.OpenRecordset(sql01)
qrec.MoveFirst
Do Until qrec.EOF
MsgBox qrec.Fields("Monteur")
qrec.MoveNext
Loop
qrec.Close

Probeer het eens

 

[Cyrex01]

Het is eigenlijk de bedoeling dat ik alle resultaten in een form kan laten weergeven.
Als ik deze erin zet krijg ik ook maar 1 waarde. alleen nu de laatste ipv de eerste.

 

[Speedy7912]

na wat zoekwerk lijkt het UNTIL Statement op de verkeerde plaatst te staan:


Dim db As Database
Dim qrec As Recordset
Set db = CurrentDb()
sql01 = "SELECT Monteur FROM Monteurs"
Set qrec = db.OpenRecordset(sql01)
qrec.MoveFirst
Do
MsgBox qrec.Fields("Monteur")
qrec.MoveNext
Loop Until qrec.EOF
qrec.Close

Probeer het eens

 

[Cyrex01]

Ik krijg het niet werkend.

Zijn er nog andere manieren om alle data uit een table te halen om hier vervolgens mee te werken.

vergelijkende functie met het volgende php script:

$sql = "SELECT * FROM table";
$result = mysql_query($sql);
$row = mysql_fetch_array($result)
{
ophalen van data
}

Zoiets alleen dan voor vba