dbfreak2607
Neuer Benutzer
- Beiträge
- 1
Schlage mich mit dieser Problematik schon ein paar Tage herum und habe es inzwischen fast hinbekommen.
Lediglich mit der Übergabe des Passworts im Connection-String gibt es ein Problem.
Wenn ich ein Passwort verwende, welches ganz normale Zeichen enthält funktioniert es.
Da mein Passwort einige Sonderzeichen, wie =, # und ; enthält klappt es nicht.
In diesem Fall geht das Fenster für die ODBC-Verbindung auf und der Cursor steht im Passwort-Feld.
Dieses enthält dann nur 2 Zeichen, d.h., das Passwort wurde nicht komplett übergeben
Hat jemand eine Idee, wie ich die Übergabe des Passworts gestalten muss.
Hier vielleicht noch mein verwendeter Code.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim t As Integer
Set db = CurrentDb
For t = db.TableDefs.Count - 1 To 0 Step -1
If db.TableDefs(t).Connect <> "" Then
db.TableDefs.Delete db.TableDefs(t).Name
End If
Next t
Set db = Nothing
Const TabCount = 1
Dim Tabellen(TabCount) As Variant
Dim i As Long
'Tabellen die Du einbinden möchtest.
Tabellen(0) = "tbl_kunden"
For i = 0 To TabCount - 1
DoCmd.TransferDatabase acLink, "ODBC" _
, "ODBC;DRIVER={MySQL ODBC 5.3 Unicode Driver};" _
& "SERVER=127.0.0.1;" _
& "port=3306;DATABASE=usr_web*****_12; " _
& "USER=**********;PASSWORD==*;**#***!", acTable, Tabellen(i) _
, Tabellen(i)
Next i
Lediglich mit der Übergabe des Passworts im Connection-String gibt es ein Problem.
Wenn ich ein Passwort verwende, welches ganz normale Zeichen enthält funktioniert es.
Da mein Passwort einige Sonderzeichen, wie =, # und ; enthält klappt es nicht.
In diesem Fall geht das Fenster für die ODBC-Verbindung auf und der Cursor steht im Passwort-Feld.
Dieses enthält dann nur 2 Zeichen, d.h., das Passwort wurde nicht komplett übergeben
Hat jemand eine Idee, wie ich die Übergabe des Passworts gestalten muss.
Hier vielleicht noch mein verwendeter Code.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim t As Integer
Set db = CurrentDb
For t = db.TableDefs.Count - 1 To 0 Step -1
If db.TableDefs(t).Connect <> "" Then
db.TableDefs.Delete db.TableDefs(t).Name
End If
Next t
Set db = Nothing
Const TabCount = 1
Dim Tabellen(TabCount) As Variant
Dim i As Long
'Tabellen die Du einbinden möchtest.
Tabellen(0) = "tbl_kunden"
For i = 0 To TabCount - 1
DoCmd.TransferDatabase acLink, "ODBC" _
, "ODBC;DRIVER={MySQL ODBC 5.3 Unicode Driver};" _
& "SERVER=127.0.0.1;" _
& "port=3306;DATABASE=usr_web*****_12; " _
& "USER=**********;PASSWORD==*;**#***!", acTable, Tabellen(i) _
, Tabellen(i)
Next i