code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| SQL = "SELECT * FROM TblAanbod WHERE DVDNr = '" & request.querystring("id") & "'"
Set objverbinding = Server.CreateObject("ADODB.Connection")
Objverbinding.Open "dsn=dvdshop"
response.write(SQL)
set rs = Objverbinding.Execute(SQL)
response.write("De volgende Leverancier nummers hebben et: <BR>")
Dim famname(1000),i
i = 0
while not rs.eof
lenvr(i) = rs("levnr")
rs.movenext
response.write(famname(i) & "<br>")
i = i + 1
wend
x = 0
i = i - 1
for y = 0 to i
SQLLEV = "SELECT * FROM TblLeverancier WHERE Levnr = '" & lenvr(y) & " ' "
response.write(SQLLEV)
set rs2 = Objverbinding.Execute(SQLLEV)
response.write("<p>" &rs2("Bedrijfsnaam") & "</p>")
next |
Eerst moet ik kijken in tblaanbod welke LevNR het DVDnummer heeft (dvdnummer is geselecteert). Daarna is het handig om te weten wat voor bedrijfsnaam en plaats waar Levnummer zit..
Maar nu voer ik dus 2 x achter mekaar deze query uit? volgens mij is dat niet zo efficient?
WHERE Levnr IN doen maar dna moet ik de arrays nog 1 voor 1 uitlezen?? Iemand advies? of is dit goed?
code:
1
| SQLLEV = "SELECT * FROM TblLeverancier WHERE Levnr = '" & famname(y) & " ' " |
[ Voor 13% gewijzigd door Sonic op 12-11-2003 09:23 ]