SQL string

[OctaFish]

Voor de keuzelijst moet het genoeg zijn: je maakt een string die de records selecteert (op basis van je tabellen, dus ik heb je eigen sql maar genomen) en zet die vervolgens als recordbron op de keuzelijst, en dan nog even verversen. Meer doe ik zelf nooit, en waarom zou je ook?

 

[harolda1980]

Als ik het goed heb zet jou stuk in mijn code of zie ik het verkeerd?

 

[OctaFish]

Dat klopt. De query die je gebruikt levert de records op voor je keuzelijst, dus die kun je gelijk toewijzen.

 

[harolda1980]

Oke dus als ik het goed heb moet de code er zo uitzien?

Private Sub Inladenhuis()
Dim cnnlocatieladen As ADODB.Connection
Dim rstladen As ADODB.Recordset
Dim strCnn As String
Dim strSQL As String
Dim strProvider As String
Dim i As Long, r As Long
Dim jaarnummer As Long
        i = 0
        r = 0
        strProvider = "Microsoft.Jet.OLEDB.4.0"
        strCnn = Connectionstring & "\VermaatKelderboek.mdb"
 
        Set cnnlocatieladen = New ADODB.Connection
        cnnlocatieladen.Provider = strProvider
        cnnlocatieladen.Open strCnn
 
        Set rstladen = New ADODB.Recordset
        rstladen.Open strSQL, cnnlocatieladen, adOpenForwardOnly, adLockReadOnly
       
[INDENT]strSQL = "SELECT tbWijn.Huis, tbWijn.type, tbWijnaantal.Aantal, tbWijnaantal.Prijs, tbWijnaantal.Wijnkoperij, tbWijnaantal.Jaartal, tbWijn.IDwijn, tbWijnaantal.Kelder, tbWijnaantal.Kelderlocatie, tbWijnaantal.Kelderlocatienummer, tbWijnaantal.jaartalbinnenkomst FROM tbWijn INNER JOIN tbWijnaantal ON tbWijn.IDwijn = tbWijnaantal.Wijnnaam WHERE (((tbWijn.Huis) Like ""*" & Me.Huisladen & "*""));"
Me.lsbWijnweergave.RowSource=strSQL
Me.lsbWijnweergave.Requery.
[/INDENT] 
 
 
 
 
        rstladen.Close
        cnnlocatieladen.Close
        Set rstladen = Nothing
        Set cnnlocatieladen = Nothing
end sub