Hallo,
wie weit ich bin?
Naja, soweit, das mir die Verbindung fehlt :-)
Sollte ich eine Verbindung bekommen, könnte ich Einträge in die Datenbank schreiben und auch abrufen.
Anbei mal der im Netz ermittelte Code, welcher mich aber nicht weiter bringt :-(
Private Sub Command_Button3 Click()
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & "localhost" _
& ";DATABASE=" & "meine_datenbank" _
& ";UID=" & "mein_user" _
& ";PWD=" & "mein_passwort" _
sqlstr = "INSERT INTO 'MITGLIEDER' ('Vorname', 'Nachname', 'Adresse', 'PLZ', 'Wohnort', 'Geburtsdatum', 'Telefon', 'Mobil', 'Parzelle', 'Eintritt', 'Status' ) VALUES('TextBox_Mitglied_erstellen_Vorname', 'TextBox_Mitglied_erstellen_Nachname', 'TextBox_Mitglied_erstellen_Adresse', 'TextBox_Mitglied_erstellen_PLZ', 'TextBox_Mitglied_erstellen_Wohnort', 'TextBox_Mitglied_erstellen_Geburtsdatum', 'TextBox_Mitglied_erstellen_Telefon', 'TextBox_Mitglied_erstellen_Mobil', 'TextBox_Mitglied_erstellen_Parzelle', 'TextBox_Mitglied_erstellen_Eintritt', 'TextBox_Mitglied_erstellen_Status');"
conn.Close
Set conn = Nothing
MsgBox "Eintrag erfolgreich hinzugefügt"
End Sub
Was mir nicht aus dem Kopf geht,
warum man nichts vernünftiges im Netz darüber findet.
Ich würde das ganze ja mittels PHP lösen, jedoch bin ich ja eigentlich kurz vorm Durchbruch um nochmals von vorne anzufangen.
|