<\/p>\n
Wenn Sie ein aktives Datenbanksystem wie SQL Server oder MySQL als Backend Ihrer Access-Anwendung verwenden, müssen Sie sich vor dem Zugriff auf die Daten anmelden. Dieser Beitrag liefert Methoden, mit denen sich die Benutzer Ihrer Datenbanken auf verschiedenste Weise an unterschiedlichen Datenbanksystemen anmelden können – egal, ob Sie die Verbindungsdaten in einer DSN oder in der Datenbank speichern und ob Benutzername und\/oder Kennwort in der Verbindungszeichenfolge stecken oder per Login-Dialog eingegeben werden sollen.<\/b><\/p>\n
Sie verwenden eine Access-Anwendung zum Zugriff auf eine Datenbank in einem aktiven Datenbanksystem Dann kennen Sie sicherlich auch die erforderlichen Umstellungsarbeiten, wenn der Datenbankserver oder anderes geändert werden muss. Falls die ODBC-Verbindungsdaten als DSN-Datenquelle vorliegen, müssen Sie dafür sorgen, dass diese bei allen Clients aktualisiert werden. Nutzen Sie jedoch eine Verbindung ohne DSN („DSN less“), reicht ein Update des Frontends aus. <\/p>\n
Falls Sie mehrere unterschiedliche Datenbankmanagementsysteme (DBMS) nutzen, bleibt es meist nicht nur bei der änderung einiger Parameter, sondern der Connectionstring muss vollkommen neu gestaltet werden. Wäre es in diesem Fall nicht praktisch, wenn Sie nur ein Formular zum Einstellen der Verbindungsparameter öffnen müssten und der Rest von der Anwendung erledigt wird<\/p>\n
Ziel<\/b><\/p>\n
Der Anmeldevorgang an ein DBMS, also eine Datenbank mit einem SQL-Server-Backend, soll standardisiert werden, um unabhängig vom eingesetzten Server eine modularisierte Anmelderoutine nutzen zu können.<\/p>\n
Ausgangssituation<\/b><\/p>\n
In einer Access-Anwendung werden per ODBC verknüpfte Tabellen eingesetzt. Beim Verknüpfen der Tabellen können Sie entscheiden, ob das Passwort in der Verknüpfung gespeichert werden soll. Sobald Sie das Passwort speichern, ist ein Zugriff auf diese Tabellen ohne Anmeldung am DBMS möglich. Diese Variante kann eine Sicherheitslücke darstellen, da die Tabellen in eine ungeschützte .mdb<\/b>-Datei importiert werden können. Aus diesem Grund ist es sinnvoll, das Passwort nicht zu speichern.<\/p>\n
Dann erscheint beim erstmaligen Zugriff auf eine dieser Tabellen der ODBC-Anmelde-Dialog, wenn keine Windows-Authentifizierung genutzt wird. Damit Sie diesen Dialog umgehen beziehungsweise bei fehlgeschlagener Anmeldung die Access-Anwendung beenden können, ist es zweckmäßig, eine Anmelderoutine zu entwerfen, welche die Anmeldung am DBMS durchführt und vom Benutzer nur die Eingabe von Benutzername und Passwort fordert (siehe Bild 1).<\/p>\n
![\"APP_Anwendungsstart.png\"](\"..\/fileadmin\/_temp_\/2009_03\/ODBC-web-images\/APP_Anwendungsstart_opt.jpeg\")
<\/p>\n
Bild 1: Anmeldedialog<\/span><\/b><\/p>\n Die Auswahl der Datenbank und des Servers ist für den Anwendungs-Benutzer eher nebensächlich, da dies meistens von den Anwendungsadministratoren vorab eingestellt wird. Das nachfolgende umgesetzte Konzept entspricht folgenden Anforderungen:<\/p>\n Der Lösungsansatz sieht folgendermaßen aus:<\/p>\n Funktionsweise<\/b><\/p>\n Die folgenden Ausführungen beziehen sich auf die den Beitrag begleitende Beispieldatenbank DBMSVerbindung.mdb<\/b>. Abb. 2 stellt den Ablauf schematisch dar. Über das Startformular frmAppWatcher <\/b>wird die Startprozedur StartApplication <\/b>aufgerufen, welche die Verbindungsprüfung startet.<\/p>\n Bild 2: Ablauf beim Verbinden mit dem SQL-Server<\/span><\/b><\/p>\n Nach dem Auslesen der Verbindungsparameter wird bei Bedarf ein Loginformular zur Eingabe von Benutzer und Kennwort aufgerufen. Nach Eingabe dieser Werte werden die ODBC- und OLEDB-Connectionstrings erstellt.<\/p>\n Verwendung finden diese später in unterschiedlichsten Situationen: Beim Einbinden von ODBC-Tabellen, beim Erstellen von DAO- und ADO-Recordsets sowie beim Modifizieren von PassThrough-Abfragen.<\/p>\n Als nächster Schritt folgt nun der Verbindungstest. Wenn eine Verbindung aufgebaut werden konnte, wird das Loginformular geschlossen und eine ODBC-Verbindung zur Datenbank geöffnet. Anschließend wird in der Startprozedur mit der restlichen Anwendungsinitialisierung fortgefahren.<\/p>\n Falls beim Verbindungstest keine Verbindung hergestellt werden konnte, kann der Benutzer die Logindaten ändern oder die Anmeldung abbrechen. Mit dem Abbruch der Anmeldung wird dann auch die Anwendung beendet.<\/p>\n Umsetzung<\/b><\/p>\n Auf den folgenden Seiten ist eine Umsetzungsvariante für die zuvor getroffenen Anforderungen beschrieben. Aufgrund des doch etwas umfangreicheren Codes in der Beispielanwendung werden in der folgenden Beschreibung nur Code-Auszüge gezeigt. Wenn Sie mehr Details zu den gezeigten Prozeduren benötigen, öffnen Sie einfach den Code in der Beispielanwendung.<\/p>\n Speichern der Verbindungsdaten<\/p>\n Als Datenspeicher für die Verbindungsparameter dient eine lokale Tabelle im Frontend (siehe Bild 3). Diese Verbindungsparameter werden mittels Code zum ODBC- und OLEDB-Connectionstring zusammengesetzt. Ein Vorteil der Aufteilung in mehrere Datenfelder ist die Möglichkeit, die Werte getrennt zu nutzen. Im Datenfeld dbmsUser <\/b>wird etwa der zuletzt angemeldete Benutzer gespeichert, damit dieser Name beim nächsten Anwendungsstart als Vorschlagswert verwendet werden kann. Das Präfix usys <\/b>im Tabellennamen ist hilfreich, damit diese Systemtabelle nicht mitten in den eigentlichen Nutztabellen für die Anwendung aufgelistet wird. (Objekte mit dem Präfix usys<\/b> werden wie mit MSys<\/b> ausgeblendet, wenn in den Access-Optionen die Einstellung Systemobjekte anzeigen<\/b> nicht aktiviert ist.)<\/p>\n Bild 3: Die Tabelle usys_DbmsConnection<\/span><\/b><\/p>\n Das Formular frmConfig_DBMS <\/b>und das Unterformular frmConfig_DBMS_SF_Data <\/b>dienen zur Eingabe dieser Verbindungsdaten (siehe Bild 4). Je nach Auswahl der Verbindungsart ohne DSN<\/b>, mit DSN<\/b> beziehungsweise benutzerdefiniert<\/b> werden die benötigten Eingabefelder aktiviert. In der Beispieldatenbank wird für diese Steuerung die Hilfstabelle usys_DbmsConnection_X <\/b>genutzt, damit der Formularcode unabhängig vom eingesetzten DBMS ist.<\/p>\n Bild 4: Das Formular zum Konfigurieren der Verbindungen<\/span><\/b><\/p>\n Falls Sie nur ein einziges DBMS verwenden, könnten Sie auf diese Tabelle verzichten und stattdessen Konstanten im VBA-Code einsetzen. Die Aktivierung der Eingabefelder erfolgt in der Formularprozedur setLayoutMode <\/b>(s. Listing 1).<\/p>\n Listing 1: Aktivierung der Eingabefelder<\/p>\n Mit der Schaltfläche Verbindung testen<\/b> (cmdCheckConnection<\/b>) erfolgt der erste Einsatz der DbConnectionInfo<\/b>-Klasse, die mit den angezeigten Daten den ODBC- und OLEDB-Connectionstring erzeugt sowie einen Verbindungstest durchführt (s. Listing 2). <\/p>\n Listing 2: Prüfen der Verbindung<\/p>\n Wie dieser Verbindungsaufbau und der Verbindungstest abläuft, ist aus Sicht des Formulars nebensächlich (Stichwort: Kapselung). Für den Formularcode reicht es aus, wenn True <\/b>beziehungsweise False <\/b>zurückgeliefert wird. Im Falle eines negativen Verbindungstests ist es allerdings hilfreich, den Grund für den fehlgeschlagenen Verbindungsaufbau anzuzeigen.<\/p>\n Das ermöglicht das Auslesen des Wertes aus der Variablen errMsg<\/b>, die als ByRef<\/b>-Parameter an die Methode CheckConnection <\/b>übergeben wurde. Nun ist es an der Zeit, die Klasse DbConnectionInfo <\/b>genauer zu betrachten.<\/p>\n Die Klasse DbConnectionInfo<\/p>\n Die Klasse DbConnectionInfo <\/b>ist die „Steuerzentrale“ für die Bereitstellung der benötigten Verbindungsinformationen. Tab. 1, Tab. 2 und Tab. 3 zeigen die Eigenschaften, Methoden und Ereignisse dieser Klasse.<\/p>\n Eigenschaft<\/p>\n<\/td>\n Beschreibung<\/p>\n<\/td>\n<\/tr>\n<\/thead>\n Tab. 1: Eigenschaften der Klasse DBConnectionInfo<\/span><\/b><\/p>\n Methode<\/p>\n<\/td>\n Beschreibung<\/p>\n<\/td>\n<\/tr>\n<\/thead>\n Tab. 2: Methoden der Klasse DbConnectionInfo<\/span><\/b><\/p>\n Ereignis<\/p>\n<\/td>\n Beschreibung<\/p>\n<\/td>\n<\/tr>\n<\/thead>\n Tab. 3: Ereignisse der Klasse DbConnectionInfo<\/span><\/b><\/p>\n <\/p>\n Wie diese Klasse aufgebaut ist, sehen Sie am besten, wenn Sie die Entstehung der Eigenschaften, Methoden und Ereignisse nach deren „Bedarfszeitpunkt“ betrachten.<\/p>\n Die zuerst benötigte Methode war CheckConnection <\/b>für die Überprüfung der Verbindungsparameter im Formular frmConfig_DBMS_SF_Data<\/b> (s. Listing 3). Damit der Code übersichtlich bleibt, werden die Prüfungen für die OLEDB- und ODBC-Verbindung in Hilfsprozeduren ausgelagert. Innerhalb der beiden Hilfsprozeduren wird versucht, mit dem übergebenen Connectionstring eine Verbindung aufzubauen, und bei Erfolg wird True <\/b>zurückgegeben. An diese Hilfsprozeduren werden der OLEDB- beziehungsweise ODBC-Connectionstring übergeben (s. Listing 3 und Listing 4). <\/p>\n Listing 3: Die Routine CheckConnection<\/p>\n Listing 4: Die Property OleDbConnectionstring (OdbcConnectionString sieht analog aus)<\/p>\n In den Property<\/b>-Prozeduren OleDbConnectionstring <\/b>und OdbcConnectionstring <\/b>wird geprüft, ob die Variable einen Wert enthält. Falls kein Wert enthalten ist, wird über die Prozedur setConnetionStrings <\/b>das Zusammensetzen der Connectionstrings gestartet (s. Listing 5). ähnlich wie in OleDbConnectionstring <\/b>wird nun mit der Hilfsvariablen m_DbmsInfoReaded <\/b>geprüft, ob die Verbindungsparameter bereits eingelesen wurden.<\/p>\n Listing 5: Die Routine setConnectionStrings<\/p>\n Sollte das Einlesen noch fehlen, wird die Prozedur readDBMSprop <\/b>aufgerufen. Nach dem Einlesen der Daten können die Connectionstrings von der Property-Prozedur ConnectionStrings <\/b>bereitgestellt und in den Hilfsvariablen m_OledbConnectionString <\/b>und m_OdbcConnectionString <\/b>zwischengespeichert werden, damit sie nicht bei jedem Aufruf neu berechnet werden müssen.<\/p>\n readDBMSprop<\/b><\/p>\n Die Hilfsprozedur readDBMSprop <\/b>liest die Daten aus der Tabelle usys_DbmsConnection <\/b>aus und speichert die Werte in Variablen ab (s. Listing 6). Außerdem wird bei Bedarf das Login-Formular zur Eingabe von Benutzername und Passwort geöffnet.<\/p>\n Listing 6: Die Routine readDBMSprop<\/p>\n ConnectionStrings<\/p>\n In der Property-Prozedur Connectionstrings <\/b>werden die ausgelesenen Verbindungsparameter zu den jeweiligen Connectionstrings zusammengefügt (s. Listing 7). Diese Connectionstrings sind vom verwendeten DBMS abhängig. Aus diesem Grund ist es sinnvoll, an dieser Stelle über den Wert in m_DBMSNAME, der in readDBMSprop eingestellt wurde, eine Verzweigung in die unterschiedlichen DBMS-abhängigen Hilfsprozeduren einzubauen.<\/p>\n Listing 7: Die Property-Get-Prozedur ConnectionStrings<\/p>\n Falls Sie ein anderes DBMS verwenden wollen, lässt sich an dieser Stelle der Code leicht entsprechend anpassen.<\/p>\n Die Hilfsprozeduren ConnectionStrings_MSSQL <\/b>oder ConnectionStrings_MySQL <\/b>erzeugen den DBMS-spezifischen Connectionstring aus den eingelesenen Werten (s. Listing 8, ConnectionStrings_MySQL <\/b>sieht analog aus). Mit diesen Codeausschnitten stießen Sie direkt zum Kern der Klasse DbConnectionInfo <\/b>vor.<\/p>\n Listing 8: Die Property-Get-Prozedur ConnectionStrings<\/p>\n Bevor Sie sich im nächsten Abschnitt dem Anmeldevorgang beim Anwendungsstart widmen, werfen Sie noch kurz einen Blick auf das Login-Formular, das in der Prozedur readDBMSprop <\/b>aufgerufen wird (siehe Bild 5).<\/p>\n Bild 5: Das Login-Formular<\/span><\/b><\/p>\n Nach dem Betätigen der OK<\/b>-Schaltfläche wird ein Ereignis ausgelöst, auf das die Klasse DbConnectionInfo <\/b>reagiert (s. Listing 9 und Listing 10). Sie sehen an den Aufrufen von setConnectionStrings <\/b>und checkAdoConnection<\/b>, dass sich das Aufteilen einiger Prozeduren in der Klasse DbConnectionInfo <\/b>nun bezahlt macht, da die erforderlichen Abläufe bereits in gekapselter Form vorliegen.<\/p>\n Listing 9: Code-Auszug aus dem frmLogin-Klassenmodul<\/p>\n Listing 10: Auszug aus der Klasse DbConnectionInfo<\/p>\n Die Basis für den Anmeldevorgang ist erstellt. Nutzen Sie nun die Klasse DbConnectionString<\/b>, um den Anmeldevorgang beim Anwendungsstart für den „normalen“ Benutzer zu gestalten.<\/p>\n Anmeldevorgang beim Anwendungsstart<\/b><\/p>\n Damit Sie die Anmeldung am DBMS beim Start der Access-Anwendung durchführen können, müssen Sie dafür sorgen, dass die Methode CheckConnection <\/b>ausgeführt wird, bevor der Benutzer die eigentlichen Masken der Access-Anwendung verwenden kann. In der Beispielanwendung wurde dazu der Aufruf einer Startprozedur über ein Startformular gewählt. Das Formular frmAppWatcher <\/b>ist in den Startoptionen von Access als Startformular eingetragen und ruft nach dem Laden die Prozedur StartApplication <\/b>im Modul _initApplication <\/b>auf.<\/p>\n In der Prozedur StartApplication <\/b>erfolgt der Aufruf des Verbindungstests (s. Listing 11). Da für die Anwendung nur eine Instanz von DbConnectionInfo <\/b>benötigt wird, können Sie eine Property<\/b>-Prozedur in einem allgemeinen Modul erstellen, die diese Instanz erzeugt und zur Verfügung stellt (s. Listing 12).<\/p>\n Listing 11: Aufruf des Verbindungstests beim Start der Anwendung<\/p>\n Listing 12: Bereitstellen der ConnectionInfo in einem globalen Modul …<\/p>\n Diese Variante kann allerdings nicht auf Ereignisse reagieren, die von DbConnectionInfo <\/b>ausgelöst werden. Um auf diese Ereignisse reagieren zu können, müssen Sie die Deklaration der Objektvariablen mit WithEvents <\/b>in eine weitere Hilfsklasse verschieben. In der Beispielanwendung wird dafür die Klasse JPSLAccUtilInstancer <\/b>verwendet (s. Listing 13).<\/p>\n Listing 13: … und in einer Klasse, hier mit der Möglichkeit zum Reagieren auf Ereignisse<\/p>\n Damit wird es möglich, in dieser Hilfsklasse auf die Ereignisse von DbConnectionInfo <\/b>zu reagieren. Das kann für Sie hilfreich werden, wenn Sie auf änderungen der aktiven Verbindung reagieren wollen, um etwa die aktuellen Verbindungsdaten in der Titelleiste der Anwendung anzuzeigen (s. Listing 14).<\/p>\n Listing 14: Diese Ereignisprozedur reagiert auf änderungen der Verbindung.<\/p>\n Nun müssen Sie noch eine Instanz der Klasse JPSLAccUtilInstancer <\/b>erzeugen. Da diese Klasse allerdings nur als Hilfsklasse zum Instanzieren der DbConnectionInfo<\/b>-Klasse verwendet wird, reicht es aus, wenn Sie die anfangs gezeigte Property<\/b>-Prozedur CurrentConnectionInfo <\/b>umgestalten (s. Listing 15). Mit dieser Prozedur erhalten Sie Zugriff auf die Eigenschaft ConnectionInfo <\/b>der JPSLAccUtilInstancer<\/b>-Instanz. Für die weitere Verwendung im Code können Sie ab jetzt die Eigenschaft CurrentConnectionInfo <\/b>verwenden und müssen sich nicht um die Initialisierung der DbConnectionInfo<\/b>-Instanz kümmern.<\/p>\n Listing 15: Hilfsklasse zum Instanzieren der DBConnectionInfo-Klasse<\/p>\n Tipp: Falls Sie weitere ähnliche Hilfsklassen in Ihrer Anwendung einsetzen, also generell gern klassenorientiert entwickeln, können Sie diese über die Klasse JPSLAccUtilInstancer <\/b>instanzieren.<\/p>\n Wenn Sie anschließend noch eine Eigenschaft für den Zugriff auf die Instanz von JPSLAccUtilInstancer <\/b>in Ihrer Anwendung erstellen, erhalten Sie ein ähnliches Konstrukt wie bei der Application<\/b>-Instanz von Access und können zentral über die JPSLAccUtilInstancer<\/b>-Instanz alle Instanzen Ihrer Hilfsklassen ansteuern.<\/p>\n Tabellen verknüpfen<\/b><\/p>\n Aufgrund des Verbindungstests wurde bereits eine ODBC-Verbindung aufgebaut. Dies ermöglicht nach der Anmeldung die Nutzung der verknüpften Tabellen, auch wenn beim Verknüpfen aus Sicherheitsgründen das Passwort nicht gespeichert wurde. Die Klasse DbConnectionInfo <\/b>ermöglicht allerdings nicht nur einen standardisierten Anmeldevorgang. Sie können diese Klasse auch zum Verknüpfen der Tabelle einsetzen und die erforderlichen Verbindungseinstellungen daraus abfragen (s. Listing 16). Für diese Prozedur ist es nicht mehr erforderlich, die Zusammensetzung des Connectionstrings zu kennen, da dies vollständig von der Klasse DbConnectionInfo <\/b>übernommen wird. Weiterhin liefert diese Klasse die Information, ob das Benutzerpasswort gespeichert werden soll. Ein möglicher Anwendungsfall dazu ist im Formular frmConfig_LinkTables <\/b>zu sehen.<\/p>\n Listing 16: Verknüpfen mit einer Tabelle<\/p>\n Datenzugriff<\/b><\/p>\n Sollten Sie für den Datenzugriff ADODB-Recordsets verwenden, müssen Sie sich nicht mehr um den OLEDB<\/b>-Connectionstring kümmern, sondern können diesen ebenso von der DbConnectionInfo<\/b>-Instanz anfordern.<\/p>\n Besonders beim häufigen Einsatz von ADODB-Datenzugriffen ist eine Hilfsprozedur ähnlich dem CurrentDbC<\/b>-Vorschlag von Michael Kaplan hilfreich, die eine ADODB-Connection liefert (s. Listing 17).<\/p>\n Listing 17: Diese Funktion liefert die aktuelle Verbindung.<\/p>\n Auch in dieser Prozedur kümmert sich die DbConnection<\/b>-Instanz um die passenden Verbindungsparameter. Weitere Beispiele zum Datenzugriff finden Sie in den Modulen modADO <\/b>und modODBC<\/b>.<\/p>\n Optimierungsmöglichkeiten<\/p>\n Wie Sie sehen, kann diese DbConnection<\/b>-Klasse vielseitig eingesetzt werden. Trotzdem werden Sie beim Einsatz dieser Struktur immer wieder Verbesserungen einbauen. Wenn Sie Ihre Code-Anpassungen unter Berücksichtigung modularer Anwendungsentwicklung in gekapselter Form durchführen, werden Sie nach einiger Zeit eine sehr umfangreiche, aber gut strukturierte Codebibliothek erhalten, die Sie für den Einsatz eines Access-Frontends für aktive DBMS nicht mehr missen möchten.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Für den Einsatz der hier vorgestellten Lösung haben wir einige weitere Anregungen:<\/p>\n\n
\n
![\"Funktionsweise.wmf\"](\"..\/fileadmin\/_temp_\/2009_03\/ODBC-web-images\/Funktionsweise_opt.jpeg\")
<\/p>\n![\"TAB_usys_DbmsConnection.png\"](\"..\/fileadmin\/_temp_\/2009_03\/ODBC-web-images\/TAB_usys_DbmsConnectio_opt.jpeg\")
<\/p>\n![\"FRM_frmConfig_DBMS.png\"](\"..\/fileadmin\/_temp_\/2009_03\/ODBC-web-images\/FRM_frmConfig_DBMS_opt.jpeg\")
<\/p>\nPrivate Sub setLayoutMode()\r\n ...\r\n lngConnectionMode = Nz(Me!dbmsConnectionMode, -1)\r\n ' dbmsConnectionMode ... Datenfeld aus usys_DbmsConnection\r\n ...\r\n Me.txtDbmsServer.Enabled = _\r\n ((Nz(Me!XdbmsServer, 255) And lngConnectionMode) = lngConnectionMode)\r\n ' txtDbmsServer ... Steuerelement im Formular\r\n ' XdbmsServer... Ja\/Nein-Feld aus der Tabelle usys_DbmsConnection_X\r\n Me.txtDbmsPort.Enabled = _\r\n ((Nz(Me!XdbmsPort, 255) And lngConnectionMode) = lngConnectionMode)\r\n ...\r\n End Sub<\/pre>\n
Public Function CheckConnection(Optional ByRef errMsg As String = vbNullString) As Boolean\r\n Dim checkOk As Boolean\r\n On Error GoTo HandleErr\r\n checkOk = checkAdoConnection(OleDbConnectionstring, errMsg)\r\n If checkOk Then 'ODBC testen (außer ADO-Check schlug bereits fehl)\r\n checkOk = checkOdbcConnection(OdbcConnectionstring, errMsg)\r\nEnd If\r\nCheckConnection = checkOk\r\n...\r\nEnd Function<\/pre>\n
\n\n
\n \n\n \n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n \n\n
\n \n\n \n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n \n\n
\n \n\n \n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n Private Sub cmdCheckConnection_Click()\r\n Dim strCID As String\r\n Dim oDbConnectionInfo As DbConnectionInfo\r\n Dim errMsg As String\r\n On Error GoTo HandleErr\r\n If Me.Dirty Then Me.Dirty = False\r\n strCID = Nz(Me!CID, vbNullString)\r\n If Len(strCID) = 0 Then Exit Sub\r\n Set oDbConnectionInfo = New DbConnectionInfo\r\n oDbConnectionInfo.CID = strCID ' Übergabe der Verbindungskennung\r\n If oDbConnectionInfo.CheckConnection(errMsg) = True Then\r\n MsgBox \"Verbindungsaufbau war erfolgreich\"\r\n Else\r\n If Len(errMsg) > 0 Then errMsg = vbNewLine & vbNewLine _\r\n & errMsg\r\n MsgBox \"Verbindung konnte nicht hergestellt werden.\" _\r\n & errMsg\r\n End If\r\n Set oDbConnectionInfo = Nothing\r\n ...\r\n End Sub<\/pre>\n<\/p>\n
Public Property Get OleDbConnectionstring() As String\r\nOn Error GoTo HandleErr\r\nIf Len(m_OledbConnectionString) = 0 Then\r\n setConnectionStrings\r\nEnd If\r\nOleDbConnectionstring = m_OledbConnectionString\r\n...\r\nEnd Property<\/pre>\n
Private Sub setConnectionStrings(Optional ByVal bWithConnectionCheck As Boolean = True)\r\n Dim myConnectionStrings As DbmsConnectionStrings\r\n Dim errMsg As String\r\n On Error GoTo HandleErr\r\n If Not m_DbmsInfoReaded Then\r\n readDBMSprop\r\n If m_LoginCancelled Or ((Len(m_DBSERVER) + Len(m_DBNAME)) = 0) Then\r\n Exit Sub\r\n End If\r\n ElseIf m_LoginCancelled Then\r\n Exit Sub\r\n End If\r\n ...\r\n myConnectionStrings = Me.ConnectionStrings\r\n m_OledbConnectionString = myConnectionStrings.OleDbConnectionstring\r\n m_OdbcConnectionString = myConnectionStrings.OdbcConnectionstring\r\n m_DatabaseFile = myConnectionStrings.DatabaseFile\r\n ...\r\n End Sub<\/pre>\n
Private Sub readDBMSprop(Optional ByVal withoutLoginForm As Boolean = False)\r\n ...\r\n m_DBMSNAME = Nz(rst.Fields(\"DBMS\"), vbNullString)\r\n ...\r\n m_UseLoginForm = Nz(.Fields(\"dbmsUseLoginForm\"), False)\r\n ...\r\n 'm_LoginForm über Property LoginForm zugänglich machen und im\r\n 'LoginForm selbst setzen:\r\n Set g_TempRef = Me\r\n DoCmd.OpenForm g_conApplicationLoginFormName, acNormal, , , acFormEdit, acDialog, _\r\n m_DBMSNAME & \"@\" & m_DBUSER\r\n Set g_TempRef = Nothing\r\n ...\r\n End Sub<\/pre>\n
Public Property Get ConnectionStrings() As DbmsConnectionStrings\r\n...\r\nSelect Case m_DBMSNAME\r\nCase \"MSSQL\"\r\nConnectionStrings = ConnectionStrings_MSSQL\r\nCase \"MySQL\"\r\nConnectionStrings = ConnectionStrings_MySQL\r\nCase Else\r\nErr.Raise ErrorNumbers.ERRNR_NODBMS, \"DbConnectionInfo.ConnectionStrings\", _\r\n\"Für '\" & m_DBMSNAME & \"' können [...]\"\r\nEnd Select\r\n...\r\nEnd Property<\/pre>\n
Private Function ConnectionStrings_MSSQL() As DbmsConnectionStrings\r\n ...\r\n strSrvCon = m_DBSERVER\r\n If Len(m_PORT) > 0 Then\r\n strSrvCon = strSrvCon & \",\" & m_PORT\r\n End If\r\n ...\r\n strOLEDB = \"Provider=\" & m_DBOLEDBPROVIDER & \";Data Source=\" & _\r\n strSrvCon & \";Initial Catalog=\" & m_DBNAME & strOLEDB\r\n ...\r\n tempConnectionStrings.OleDbConnectionstring = strOLEDB\r\n tempConnectionStrings.OdbcConnectionstring = \"ODBC;\" & strODBC\r\n ConnectionStrings_MSSQL = tempConnectionStrings\r\n ...\r\nEnd Function<\/pre>\n
![\"FRM_frmLogin.png\"](\"..\/fileadmin\/_temp_\/2009_03\/ODBC-web-images\/FRM_frmLogin_opt.jpeg\")
<\/p>\nPublic Event Logon( ByVal LoginName As String, _\r\nByVal Password As String, ByRef Cancel As Boolean)\r\nPrivate Sub cmdLogin_Click()\r\n Dim strLoginName As String\r\n Dim strLoginPassword As String\r\n Dim bolCancel As Boolean\r\n On Error GoTo HandleErr\r\n strLoginName = Me.txtUID & vbNullString\r\n strLoginPassword = Me.txtPwd & vbNullString\r\n If Len(strLoginName) * Len(strLoginPassword) = 0 Then\r\n MsgBox \"Bitte Loginnamen und Kennwort angeben\"\r\n If Len(strLoginName) = 0 Then\r\n Me.txtUID.SetFocus\r\n Else\r\n Me.txtPwd.SetFocus\r\n End If\r\n Exit Sub\r\n End If\r\n RaiseEvent Logon(strLoginName, strLoginPassword, _\r\n bolCancel)\r\n If bolCancel Then\r\n Me.txtPwd.SetFocus\r\n Exit Sub\r\n End If\r\n ...\r\n End Sub<\/pre>\n<\/p>\n
Private Sub m_LoginForm_Logon(ByVal LoginName As String, _\r\n ByVal Password As String, Cancel As Boolean)\r\n Dim errMsg As String\r\n On Error GoTo HandleErr\r\n m_DBUSER = LoginName\r\n m_DBUSERPWD = Password\r\n Call setConnectionStrings(False)\r\n If checkAdoConnection(m_OledbConnectionString, errMsg) _\r\n = False Then\r\n If Len(errMsg) > 0 Then errMsg = vbNewLine _\r\n & vbNewLine & errMsg\r\n MsgBox \"Verbindung konnte nicht hergestellt werden\" _\r\n & errMsg\r\n Cancel = True\r\n Exit Sub\r\nEnd If\r\n...\r\nEnd Sub<\/pre>\n
Public Function StartApplication() As Boolean\r\n ...\r\n 'Verbindung zu Server herstellen\/Login-Berechtigung\r\n 'prüfen\r\n Do While bolAllowStart = False\r\n bolAllowStart = CurrentConnectionInfo.CheckConnection\r\n If bolAllowStart = False Then\r\n If MsgBox(\"Anmeldung ist fehlgeschlagen\", _\r\n vbRetryCancel, CurrentApplicationName _\r\n & \" - Login\") = vbCancel Then\r\n Application.Quit acQuitSaveNone\r\n Exit Function\r\n Else\r\n 'Daten neu einlesen\r\n CurrentConnectionInfo.ClearConnectionInfo\r\n End If\r\n End If\r\nLoop\r\n...\r\nEnd Function<\/pre>\n<\/p>\n
Private m_DbConnectionInfo As DbConnectionInfo\r\nPublic Property Get CurrentConnectionInfo() _\r\nAs DbConnectionInfo\r\nIf m_DbConnectionInfo Is Nothing Then\r\nSet m_DbConnectionInfo = New DbConnectionInfo\r\nEnd If\r\nSet CurrentConnectionInfo = m_DbConnectionInfo\r\nEnd Property<\/pre>\n
Private WithEvents m_DbConnectionInfo As DbConnectionInfo\r\nPublic Property Get ConnectionInfo() As DbConnectionInfo\r\nIf m_DbConnectionInfo Is Nothing Then\r\n Set m_DbConnectionInfo = New DbConnectionInfo\r\nEnd If\r\nSet ConnectionInfo = m_DbConnectionInfo\r\nEnd Property<\/pre>\n
Private Sub m_DbConnectionInfo_DbmsConnectionChanged( ByVal newCID As String)\r\n...\r\n'Aktuelle Verbindung in Titelleiste anzeigen\r\nIf Len(newCID) = 0 Then\r\n SetApplicationTitelbar CurrentApplicationName\r\nElse\r\n SetApplicationTitelbar CurrentApplicationName & \" (\" & newCID & \" | \" _\r\n & CurrentConnectionInfo.DbServer & \".\" & UCase$(CurrentConnectionInfo.DbName) & _\r\n \" | User: \" & CurrentConnectionInfo.DbUser(True) & \")\"\r\nEnd If\r\n...\r\nEnd Sub<\/pre>\n
Private m_AccessUtilsApplicationInstancer As JPSLAccUtilInstancer\r\nPublic Property Get CurrentConnectionInfo() As DbConnectionInfo\r\nIf m_AccessUtilsApplicationInstancer Is Nothing Then\r\n Set m_AccessUtilsApplicationInstancer = New JPSLAccUtilInstancer\r\nEnd If\r\nSet CurrentConnectionInfo = m_AccessUtilsApplicationInstancer.ConnectionInfo\r\nEnd Property<\/pre>\n
Public Sub LinkTable(ByVal SourceTableName As String, _\r\nOptional ByVal sLinkedTableName As String = vbNullString, _\r\nOptional ByVal bRemoveSchemaName As Boolean = True)\r\n...\r\nSet dbs = CurrentDbC\r\nSet tdf = dbs.CreateTableDef(strTdfName)\r\nWith tdf\r\ntdf.SourceTableName = SourceTableName\r\ntdf.Connect = CurrentConnectionInfo.OdbcConnectionstring\r\nIf CurrentConnectionInfo.SavePassword Then\r\nIf (.Attributes And dbAttachSavePWD) = 0 Then\r\n .Attributes = dbAttachSavePWD\r\nEnd If\r\nEnd If\r\nEnd With\r\ndbs.TableDefs.Append tdf\r\n...\r\nEnd Sub<\/pre>\n
Private m_AdodbConnection As ADODB.Connection\r\nPublic Property Get CurrentConnection() As ADODB.Connection\r\nIf (m_AdodbConnection Is Nothing) Then\r\n Set m_AdodbConnection = New ADODB.Connection\r\n m_AdodbConnection.Open _\r\n CurrentConnectionInfo.OleDbConnectionstring, _\r\n CurrentConnectionInfo.DbUser, _\r\n CurrentConnectionInfo.DbUserPassword\r\nEnd If\r\nSet CurrentConnection = m_AdodbConnection\r\nEnd Property<\/pre>\n