Er zijn al vele topics over dit onderwerp, maar de nuance kan ik net niet vinden. Hopelijk kunnen jullie me verder helpen.
Op dit moment heb ik een database gemaakt voor het bestuur van een muziekvereniging, waarbij er een im- en exporteerfunctie is ingebouwd die het mogelijk maakt dat de secretaris, penningmeester, enz. elk hun eigen deel van de administratie naar de andere leden van het bestuur kunnen mailen, zodat iedereen een complete up-to-date database heeft.
Dat zou ik graag omzetten naar een systeem waarbij MySQL gebruikt wordt, dat immers veel flexibeler is.
Ik heb MyODBC gedownload en geinstalleerd en dat werkt prima. Dankzij Google en dit forum heb ik ook wat code om verbinding te maken met de database en ook dat werkt perfect.
Enig probleem is, dat met de code die ik nu heb, er een DSN vereist is. Dat terwijl ik het de gebruikers niet moeilijker wil maken dan dat ze even MyODBC moeten installeren. Het zelf aanmaken van die DSN gaat weer niet goed.
Wat doe ik fout in deze code??
Op dit moment heb ik een database gemaakt voor het bestuur van een muziekvereniging, waarbij er een im- en exporteerfunctie is ingebouwd die het mogelijk maakt dat de secretaris, penningmeester, enz. elk hun eigen deel van de administratie naar de andere leden van het bestuur kunnen mailen, zodat iedereen een complete up-to-date database heeft.
Dat zou ik graag omzetten naar een systeem waarbij MySQL gebruikt wordt, dat immers veel flexibeler is.
Ik heb MyODBC gedownload en geinstalleerd en dat werkt prima. Dankzij Google en dit forum heb ik ook wat code om verbinding te maken met de database en ook dat werkt perfect.
Enig probleem is, dat met de code die ik nu heb, er een DSN vereist is. Dat terwijl ik het de gebruikers niet moeilijker wil maken dan dat ze even MyODBC moeten installeren. Het zelf aanmaken van die DSN gaat weer niet goed.
Wat doe ik fout in deze code??
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
| Dim rsTabellen As DAO.Recordset
Dim dbTest As DAO.Database
connectstring = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=markjansen.nl;" _
& "DATABASE=*********;" _
& "UID=***********;" _
& "PWD=***************;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Set dbTest = OpenDatabase("", dbDriverComplete, False, connectstring)
Set rsTabellen = dbTest.OpenRecordset("Huisgenoten")
With rsTabellen
.Edit
.MoveFirst
'langs alle tabellen gaan
For tabelnr = 1 To .RecordCount
tekst = !Naam
MsgBox (tekst)
.MoveNext
Next
.Close
End With |