informatie halen uit recordset

[royvdh65]

Hoe kun je in Visual Basic informatie halen uit de recordset?
Dus je hebt een query met daarvan een uitvoer die nog niet zichtbaar is. Hoe haal je hieruit een waarde en geef je deze weer in een tekstveld?

 

[Guus2005]

Dat kan eenvoudig met een voorbeeldje:

dim rst as recordset

set rst = currentdb.openrecordset("select Id, Naam, Adres, Woomplaats from Persoon")

if not rst.eof then
   me.txtNaam = rst.fields("Naam")
else
   msgbox "Geen records gevonden"
endif

HTH

 

[royvdh65]

Dat kan eenvoudig met een voorbeeldje:

dim rst as recordset

set rst = currentdb.openrecordset("select Id, Naam, Adres, Woomplaats from Persoon")

if not rst.eof then
   me.txtNaam = rst.fields("Naam")
else
   msgbox "Geen records gevonden"
endif

HTH

Oke je gaat hier dus ook uit van de uitvoer van maar een record neem ik aan? Dit is bij mij ook het geval trouwens.

 

[Guus2005]

Bij meerdere records:

dim rst as recordset

set rst = currentdb.openrecordset("select Id, Naam, Adres, Woomplaats from Persoon")

do while not rst.eof
   msgbox "Naam in de database: " &  rst.fields("Naam")
   rst.movenext
loop

Share and Enjoy

 

[royvdh65]

Hartelijk Dank Guus

Met Naam in de database bedoel je toch het textvak van het formulier, waar de waarde in moet komen?

 

[Guus2005]

me.txtNaam is de naam van het control op je form (me) de prefix txt slaat op het type control. in dit geval is dat een textbox.

Het select statement

("select Id, Naam, Adres, Woomplaats from Persoon")

heeft betrekking op de query waarvan je de recordset uitleest.

Share and Enjoy!

 

[royvdh65]

Ja oke ik heb alleen de query in een variabele gezet maar da nog is het principe hetzelfde. Ik doelde eigenlijk op het stukje in het rood. Hoort daar niet het textvak te staan van het formulier?
do while not rst.eof
msgbox "Naam in de database: " & rst.fields("Naam")
rst.movenext

 

[Guus2005]

Nee dat kan niet, maar dat heb je vast al geprobeerd.
in plaats van

msgbox "Naam in de database: " & rst.fields("Naam")

kan je ook schrijven

me.txtNaam "Naam in de database: " & rst.fields("Naam")

Dan komt in je tekstbox te staan: Naam in de database: Pietersen

 

[royvdh65]

Oke Bedankt!