Hey,
ich versuche:
Ein Makro für Outlook zu schreiben das mir Adressdaten aus einer MySql Datenbank in einer Liste darstellt, später möchte ich diese Daten noch bearbeiten können bzw. neue hinzufügen.
Momentan versuche ich die Verbindung zur Datenbank herzustellen, aber irgendwie will Outlook nicht so wie ich will.
Code:
|
Visual Basic Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub Database_Query_Click()
Set condb = New ADODB.Connection
condb.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=localhost; DATABASE=test;USER=root;PASSWORD=;"
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
rec.CursorLocation = adUseClient
rec.Open "SELECT * FROM `table`", condb, adOpenForwardOnly, adLockReadOnly
rec.MoveFirst
While Not rec.EOF
ComboBox1.AddItem (rec.Fields(0))
rec.MoveNext
Wend
condb.Close
End Sub
|
Bei Google habe ich einige Sachen zu "vba und mysql" gefunden, aber so wircklich weiter hat mich das nicht gebracht.
Kann mir jemand helfen?
Grüße,
vba2010