[Access] Resultaat query in variabele zetten

[Verwijderd]

Weet iemand hoe je in Access in VB een query uit kunt voeren en het resultaat (1 waarde) in een variabele kunt krijgen? Het schijnt met DLookup te kunnen maar daar moet je allerlei vreemde properties meegeven (expr as string, domain as string, [criteria]).

bvd

[BtM909]

Kan je nou wel of geen query uitvoeren?

Want een variabele declareer je met:

dim variabeleNaam

en set je met

variabeleNaam = "Pietje Puk"

Dat lijkt me niet het moeilijkste

[Verwijderd]

ja dat snap ik, maar nu wil ik hem vullen met het resulltaat van een query

[TheXception]

BtM909 schreef op 03 juni 2004 @ 12:10:
dim variabeleNaam
en set je met
variabeleNaam = "Pietje Puk"

Om even terug te grijpen op dit voorbeeld: Vervang Pietje Puk door jouw Query...

Dus:
dim variabeleNaam
en set je met
variabeleNaam = "SELECT bla FROM bla WHERE etc"

[nescafe]

je kent de term dlookup dus al.

[google=vba dlookup examples] geeft een pagina Resources For MS Access met een link naar de microsoft KB: ACC2000 DLookup() Usage, Examples, and Troubleshooting (Q208786)

[Verwijderd]

TheXception schreef op 03 juni 2004 @ 13:35:
[...]

Om even terug te grijpen op dit voorbeeld: Vervang Pietje Puk door jouw Query...

Dus:
dim variabeleNaam
en set je met
variabeleNaam = "SELECT bla FROM bla WHERE etc"

ja, en als je dan een print van de variabele doet krijg je dus: SELECT bla FROM bla WHERE etc. Hiermee voer je geen sql code uit. Eens ff die voorbeelden van nescafe bekijken, die had ik nog niet gevonden

[TheXception]

Verwijderd schreef op 03 juni 2004 @ 13:46:
ja, en als je dan een print van de variabele doet krijg je dus: SELECT bla FROM bla WHERE etc. Hiermee voer je geen sql code uit.

Ik weet niet wat je dan doet, post anders je huidige code is.... Bij mij werkt dit namelijk.
Zet netjes de waarde uit die query in mijn variable....

[Verwijderd]

code:

Dim cn as connection
dim rs as recordset
dim sVariable as string

set cn = currentproject.connection
set rs = new adodb.recordset

rs.Open "SELECT * FROM tabel", cn

sVariable = rs!veldnaam

[Verwijderd]

nescafe schreef op 03 juni 2004 @ 13:40:
je kent de term dlookup dus al.

[google=vba dlookup examples] geeft een pagina Resources For MS Access met een link naar de microsoft KB: ACC2000 DLookup() Usage, Examples, and Troubleshooting (Q208786)

De link naar de microsoft support pagina geeft inderdaad goede voorbeelden.
De oplossing die bij mij werkte:

dim test As String
test = DLookup("[Ordernaam]", "Orders", "[ordernr] = '" & Me!ordernr.Value & "'")
MsgBox(test)

Uitvoeren geeft een messagebox met het resultaat van de query

Met wederom dank aan nescafe and others

[Lustucru]

en dat allemaal omdat je aan dlookup allerlei vreemde properties moet meegeven.

code:

 var=DLookup(veldnaam,querynaam)

[Masch]

Ik zou het persoonlijk met een recordset doen;

code:

Public Function test()
Dim rst As Recordset
Dim db As Database
Dim jouwvariabele

Set db = CurrentDb
Set rst = db.OpenRecordset("select userid from users where userid = 1")
Set jouwvariabele = rst!UserID

MsgBox jouwvariabele, vbInformation, "test"

End Function

edit:
Krijg je als je tijdens het posten een telefoontje krijgt.... ben je weer uren te laat

[ Voor 21% gewijzigd door Masch op 03-06-2004 14:09 ]