![]() Mailinglisten-Archive |
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
php::bar PHP Wiki - Listenarchive