Ik probeer met SQL in VB meerdere (3) tabellen aan elkaar te koppelen en de resultaten daarvan weg te schrijven naar een nieuwe tabel.
Het lukt mij om twee tabellen te koppelen, dat ziet er als volgt uit:
Maar zodra ik een derde tabel toevoeg maak ik ergens een fout, het lukt me echter niet om erachter te komen waar de fout zit. In het onderstaande testje probeer ik het INNER JOIN commando te herhalen, maar dit werkt niet. Ook zonder dit commando werkt het niet.
Hoe voeg ik succesvol de derde tabel toe aan mijn query?
@SPee: de 'AND' hoort er inderdaad niet te staan, ben wat aan het proberen maar ben er nog niet uit.
Het lukt mij om twee tabellen te koppelen, dat ziet er als volgt uit:
code:
1
2
3
4
5
6
7
8
| Function Werkt()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute ("SELECT tblOrder.*, tblQuantities.* " _
& "INTO Dataset FROM tblOrder " _
& "INNER JOIN tblQuantities ON " _
& "tblOrder.[Order number] = tblQuantities.[Order number] ")
End Function |
Maar zodra ik een derde tabel toevoeg maak ik ergens een fout, het lukt me echter niet om erachter te komen waar de fout zit. In het onderstaande testje probeer ik het INNER JOIN commando te herhalen, maar dit werkt niet. Ook zonder dit commando werkt het niet.
code:
1
2
3
4
5
6
7
8
9
10
| Function WerktNiet()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute ("SELECT tblOrder.*, tblQuantities.*, tblAggregateFreight.* " _
& "INTO Dataset FROM tblOrder " _
& "INNER JOIN tblQuantities ON " _
& "tblOrder.[Order number] = tblQuantities.[Order number], " _
& "INNER JOIN tblAggregateFreight ON " _
& "tblOrder.[Order number] = tblAggregateFreight.[Order number]")
End Function |
Hoe voeg ik succesvol de derde tabel toe aan mijn query?
@SPee: de 'AND' hoort er inderdaad niet te staan, ben wat aan het proberen maar ben er nog niet uit.
[ Voor 17% gewijzigd door Verwijderd op 30-07-2003 16:35 ]