myODBC und File-DSN's

[Gernot Adams]

hi

Ulrich Kretschmer wrote the following on 05.10.2005 21:04:

>(Noch eleganter wäre es natürlich, wenn man die 
>Datenbank-Verbindungsinformationen direkt in der Access-Datei unterbringen 
>könnte, sodaß man sich (externe) DSN's komplett sparen kann. "Irgendwie" geht 
>das bestimmt... aber wie?)
>  
>
z.B. so:

Erstelle Dir ein Anmeldeform mit den Feldern username, password,
servername, database. Bei den Feldern servername und database kannst Du
ja bei "Standardwert" oder im Code direkt die entsprechenden Parameter
hinterlegen, falls sich diese Angaben nicht ändern. Erstelle ein button
und hinterlege folgenden Code:

Dim dbs As DAO.Database
Dim strConnectTable As String
Dim datenbank As String
Dim servername As String
Dim username As String
Dim password As String

'Eingabefelder des Anmeldeformulars
datenbank = Me.Database
servername = Me.servername
username = Me.username
password = Me.password

Set dbs = CurrentDb

'ODBC-Connectstring zusammensetzen
strConnectTable = "DRIVER={MySQL ODBC 3.51 Driver};;SERVER=" &
servername & ";DATABASE=" & datenbank & ";USER=" & username &
";PASSWORD=" & password & ";OPTION=259;"

'irgendeine Tabelle neu verlinken
dbs.TableDefs("DeineTabelle").Connect = strConnectTable
dbs.TableDefs("DeineTabelle").RefreshLink

dbs.Close
Set dbs = Nothing

'mach irgendwas, starte z.B. Dein Hauptformular
DoCmd.OpenForm "frmMainform"


End Sub

Gruß
Gernot

-- 
Infos zur Mailingliste, zur Teilnahme und zum An- und Abmelden unter
-->>  http://www.4t2.com/mysql