Query MySQL Cel waarde variabel

[wiegerklijnstra]

Goedendag. Ik heb een stukje code waar nu een vast getal in staat welke vervangen moet worden door de waarde in een cel.

Hier het stukje code ;

"SELECT orderart_0.OrderArt, orderart_0.OrderAantal, orderart_0.OrderMerk, orderart_0.OrderType, orderart_0.OrderTekst, orderart_0.OrderArtikelcodeLev, orderart_0.OrderArtPrijs, orderart_0.OrderartTota" _
, _
"al, orderart_0.ArtBijzonderheden, bar_0.BarCode" & Chr(13) & "" & Chr(10) & "FROM iv3server.bar bar_0, iv3server.orderart orderart_0, iv3server.orders orders_0" & Chr(13) & "" & Chr(10) & "WHERE orderart_0.OrderArt = bar_0.BarArtId AND orderart_0.OrderBest" _
, "elnummerID = orders_0.OrderId AND ((orders_0.OrderId='210-41363-83561'))")

Het rode stukje moet verwijzen naar een cel; D5. Dit is een gegevens validatie lijstje waar dus de waarde in staat die in het rode stukje moet komen. Ik neem aan dat het een variable moet zijn maar ik krijg het niet goed erin.

Het geheel is onderdeel van code die verbinding maakt met mijn MySQL server. Er worden wat kolommen binnengehaald en gekoppeld en in het laatste stukje wordt een criterium gezet op een nummer. Dat nummer is dus nu vast erin gezet maar moet dus een celwaarde zijn.

Wie kan mij helpen?

 

[HSV]

Test het eens.

 "elnummerID = orders_0.OrderId AND ((orders_0.OrderId="&Range(""D5"")&")))"

 

[wiegerklijnstra]

Hoi Harry. De code die ik gaf had nog een array ervoor. Hier de array nog die voor het totaal staat; .CommandText = Array(

Ik heb het stukje aangepast maar er komt nu een compileerfout; Verwacht; lijstscheidingsteken of ) bij D5. Heb je nog een idee?

 

[HSV]

De laatste dubbel qoute even verplaatsen.

 "elnummerID = orders_0.OrderId AND ((orders_0.OrderId="&Range(""D5"")&")[COLOR=#FF0000])")[/COLOR]

 

[wiegerklijnstra]

Helaas. De quote had ik al verplaatst. Zelfde compileerfout. Als ik ""D5"" vervang door "D5" loopt het wel door maar blijft de tabel leeg.. Nog een suggestie?

 

[HSV]

Ik doe nog een gokje, kan het helaas niet testen.
De single quote heb ik erin gelaten.

Dim validatie as string
validatie = range("B5").value
 "elnummerID = orders_0.OrderId AND ((orders_0.OrderId='" [COLOR=#ff0000]& validatie & "[/COLOR]'))")

 

[wiegerklijnstra]

Hij doet het. Geweldig. Ik heb wel validatie= Range("D4").Value bovenaan moeten zetten. Een directe verwijzing naar een cel mag klaarblijkelijk niet. Je hebt me goed op weg geholpen. Dank je.