<\/p>\n
Wer einen SQL-Server (mit Bindestrich als Oberbegriff für Microsoft SQL Server, MySQL et cetera) betreibt, möchte oftmals von einer Access-Datenbank auf die enthaltenen Daten zugreifen. Dazu können Sie die eingebauten Werkzeuge benutzen oder aber selbst programmierte Tools nutzen. In dieser Beitragsreihe stellen wir die Tools vor, die sich in unserem Alltag als nützliche Helferlein erwiesen haben. In diesem Beitrag starten wir mit einem Tool zur Verwaltung von RDBMS-Verbindungen.<\/b><\/p>\n
Das Ziel der Lösung, die wir in diesem Beitrag erarbeiten, ist eine Verwaltung der für eine Datenbank benötigten RDBMS-Verbindungen.<\/p>\n
Für den Benutzer manifestiert sich die Lösung vorrangig in einem Formular, das alle Parameter für die Herstellung einer Verbindung zu einem RDBMS-System wie Microsoft SQL Server oder MySQL zur Auswahl beziehungsweise zur Eingabe bereitstellt.<\/p>\n
Dazu gehören die folgenden Informationen:<\/p>\n
Daraus resultierend soll das Formular eine Verbindungszeichenfolge zusammenstellen und diese mit den übrigen Daten in einer Tabelle speichern. Um die Verbindungzeichenfolge zu nutzen, werden wir in einem weiteren Beitrag entsprechende Methoden vorstellen.<\/p>\n
Speicherort für die Einstellungen<\/b><\/p>\n
Die Einstellungen sollen in zwei Tabellen gespeichert werden. Die erste heißt tblVerbindungszeichenfolgen<\/b>, die zweite tblTreiber<\/b>.<\/p>\n
Für die zweite Tabelle soll keine eigene Benutzeroberfläche in Form eines Formulars erstellt werden – die notwenigen Einträge können im Laufe der Zeit manuell hinzugefügt werden.<\/p>\n
Die Tabelle enthält die in Bild 1 dargestellten Felder.<\/p>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_001.png\")
<\/p>\n
Bild 1: Entwurf der Tabelle tblTreiber<\/span><\/b><\/p>\n Wichtig ist hier vor allem das Feld Treiber<\/b>, das die Zeichenfolge enthält, die für die Eigenschaft Driver <\/b>in die Verbindungszeichenfolge eingefügt wird – also beispielsweise MySQL ODBC 5.2 ANSI Driver <\/b>oder ODBC Driver 11 for SQL Server<\/b>. Außerdem ist für manche Funktionen wichtig, um welchen SQL Server-Typ es sich handelt – dazu nimmt das Feld Typ <\/b>Werte wie zum Beispiel MySQL <\/b>oder MSSQL <\/b>auf (s. Bild 2).<\/p>\n Bild 2: Inhalt der Tabelle tblTreiber<\/span><\/b><\/p>\n Bild 3 zeigt einige Beispieldatensätze für verschiedene Microsoft SQL Server- und MySQL-Treiber.<\/p>\n Bild 3: Entwurf der Tabelle tblVerbindungszeichenfolgen<\/span><\/b><\/p>\n Diese Treibertabelle referenziert die Tabelle tblVerbindungszeichenfolgen <\/b>über das Feld TreiberID<\/b>.<\/p>\n Neben diesem Feld enthält es im Wesentlichen die weiter oben bereits angesprochenen Informationen wie Bezeichnung, Server, Datenbank et cetera. Wichtig ist, dass Sie für das Feld Bezeichnung <\/b>einen eindeutigen Index definieren, da dieses zur Auswahl des jeweiligen Treibers dient und Einträge mit gleicher Bezeichnung daher nicht hilfreich sind.<\/p>\n Neben den genannten Feldern enthält die Tabelle noch ein Feld namens Aktiv<\/b>. Dieses legt erstens die Verbindungszeichenfolge fest, die beim öffnen des Formulars zum Bearbeiten der Zeichenfolgen angezeigt werden soll.<\/p>\n Zweitens werden wir diese Eigenschaft in den Prozeduren nutzen, welche die Verbindungsdaten verwenden.<\/p>\n Ein weiteres Feld heißt Verschluesselt<\/b>. Sie können später im Formular die Eingabe für Benutzername und Kennwort in eine verschlüsselte Version umwandeln, die dann im Feld Verschluesselt <\/b>landet. Hier nutzen wir dann die Features, die im Beitrag Sicherer SQL Server-Zugriff <\/b>(www.access-im-unternehmen.de\/975<\/b>) vorgestellt werden.<\/p>\n Das Formular zum Verwalten der Verbindungen<\/b><\/p>\n Das Formular frmVerbindungszeichenfolgen <\/b>verwendet die Tabelle tblVerbindungszeichenfolgen <\/b>als Datenherkunft<\/p>\n Die meisten der Felder dieser Tabelle finden sich im Entwurf des Formulars wieder (s. Bild 4).<\/p>\n Bild 4: Das Formular frmVerbindungszeichenfolgen in der Entwurfsansicht<\/span><\/b><\/p>\n Das Formular soll nur jeweils einen Datensatz anzeigen, daher blenden wir die Elemente, die sonst etwa zum Blättern durch die Datensätze dienen, aus.<\/p>\n Dazu stellen Sie die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und auch Bildlaufleisten <\/b>auf den Wert Nein <\/b>ein.<\/p>\n Außerdem soll Automatisch zentrieren <\/b>den Wert Ja <\/b>erhalten.<\/p>\n Schnellauswahl einer Verbindungszeichenfolge<\/b><\/p>\n Damit Sie schnell alle vorhandenen Einträge auswählen können, finden Sie im Kopf des Formulars ein Kombinationsfeld namens cboSchnellauswahl<\/b> (s. Bild 5).<\/p>\n Bild 5: Auswahl der verfügbaren Verbindungszeichenfolgen<\/span><\/b><\/p>\n Dieses Kombinationsfeld verwendet die folgende Abfrage als Datensatzherkunft:<\/p>\n Damit es nur das zweite Feld anzeigt, das erste jedoch als gebundene Spalte verwendet, stellen Sie die Eigenschaften Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein.<\/p>\n Damit das Formular nach der Auswahl eines Eintrags des Kombinationsfeldes den entsprechenden Datensatz anzeigt, fügen Sie für das Ereignis Nach Aktualisierung <\/b>die folgende Prozedur zum Klassenmodul des Formulars hinzu:<\/p>\n Die Prozedur stellt den Datensatzzeiger mit der FindFirst<\/b>-Methode auf den Datensatz ein, dessen Feld VerbindungszeichenfolgeID <\/b>den im Kombinationsfeld cboSchnellauswahl <\/b>angegebenen Wert enthält.<\/p>\n Verbindungszeichenfolge beim Laden einstellen<\/b><\/p>\n Wenn der Benutzer das Formular öffnet, soll es gleich eine bestimmte Verbindungszeichenfolge anzeigen. Welche dies ist, hängt davon ab, ob der Benutzer beim öffnen des Formulars etwa mit DoCmd.OpenForm <\/b>die ID einer Verbindungszeichenfolge als öffnungsargument übergibt.<\/p>\n Falls ja, soll die folgende Prozedur die entsprechende Vebindungszeichenfolge anzeigen. Anderenfalls soll die als aktiv gekennzeichnete Verbindungszeichenfolge als Erstes erscheinen. Dazu springt die Prozedur mit der FindFirst<\/b>-Methode auf den Datensatz, dessen Feld Aktiv <\/b>den Wert True <\/b>aufweist:<\/p>\n Schritte bei Anzeigen einer Verbindungszeichenfolge<\/b><\/p>\n Sowohl beim öffnen des Formulars also auch beim Wechseln des Datensatzes über das Kombinationsfeld cboSchnellauswahl <\/b>muss das Formular ein paar Schritte ausführen. Dies erledigen wir über die Prozedur, die durch das Ereignis Beim Anzeigen <\/b>ausgelöst wird. Die Prozedur sieht wie folgt aus:<\/p>\n Die erste Anweisung ruft eine weitere Ereignisprozedur auf, die sonst durch das Aktualisieren der Optionsgruppe zum Auswählen der Authentifizierungsmethode ausgelöst wird – nämlich ogrTrustedConnection_AfterUpdate<\/b>.<\/p>\n Diese schauen wir uns weiter unten an. Zunächst liest die Prozedur die Werte einiger Textfelder in String<\/b>-Variablen ein. Diese werden im Kopf des Klassenmoduls durch die folgenden Anweisungen modulweit deklariert:<\/p>\n Außerdem aktiviert beziehungsweise deaktiviert die Prozedur noch die Schaltfläche cmdAlsStandard<\/b>, die dazu dient, die aktuelle Verbindungszeichenfolge als Standard einzustellen.<\/p>\n Wenn der aktuelle Datensatzbereits die Standardverbindungszeichenfolge enthält, was durch den Wert True <\/b>im Feld Aktiv <\/b>angegeben wird, deaktiviert die Anweisung die Schaltfläche. Anderenfalls aktiviert sie diese, damit der Benutzer die aktuelle Verbindungszeichenfolge als Standard festlegen kann.<\/p>\n Schließlich stellt die Prozedur das Kombinationsfeld zur Auswahl der Verbindungszeichenfolge auf die aktuell angezeigte Verbindungszeichenfolge ein. Wenn der Benutzer diese soeben mit eben diesem Kombinationsfeld ausgewählt hat, ist dies eigentlich nicht notwendig – es schadet aber auch nicht.<\/p>\n Erforderlich ist es aber auf jeden Fall beim öffnen des Formulars und wenn das Formular einen neuen Datensatz anzeigt oder zu einem anderen Datensatz wechselt, weil der vorherige gelöscht wurde.<\/p>\n Eingabe des Servers<\/b><\/p>\n Die Eingabe einer Zeichenkette in das Feld txtServer <\/b>soll ebenfalls eine Ereignisprozedur auslösen, und zwar nach jedem eingegebenen Zeichen. Dies erledigen wir mit dem Ereignis Bei änderung <\/b>des Steuerelements.<\/p>\n Die folgende Prozedur schreibt zunächst den aktuellen Inhalt des Textfeldes aus der Text<\/b>-Eigenschaft in die Variable strServer<\/b>. Dann ruft sie die Funktion VerbindungszeichenfolgeErmitteln <\/b>auf, welche die aus den aktuellen Daten ermittelte Verbindungszeichenfolge in das Textfeld txtVerbindungszeichenfolge <\/b>schreiben soll:<\/p>\n Vorbehaltlich des Inhalts der Funktion VerbindungszeichenfolgeErmitteln<\/b>, die wir uns weiter unten ansehen, erfahren Sie bereits in Bild 6, dass der Servername gleich in ein entsprechendes Element der Verbindungszeichenfolge umgesetzt wird.<\/p>\n Bild 6: Die eingegebenen Daten erscheinen direkt in der Vorschau der Verbindungszeichenfolge.<\/span><\/b><\/p>\n Eingabe des Ports<\/b><\/p>\n Beim zu verwendenden Port sieht es ähnlich aus. Das Textfeld txtPort <\/b>löst die folgende Ereignisprozedur aus, die den Port über die Funktion VerbindungszeichenfolgeErmitteln <\/b>in das Textfeld txtVerbindungszeichenfolge <\/b>schreibt:<\/p>\n Auswahl des Treibers<\/b><\/p>\n Darunter befindet sich bereits das Kombinationsfeld zur Auswahl des Treibers. Die Auswahl eines der Einträge löst die Prozedur cboTreiberID_AfterUpdate<\/b> aus Listing 1 aus.<\/p>\n Listing 1: Einstellen des Treibers<\/span><\/b><\/p>\n Die Prozedur liest zunächst den Wert des Feldes Typ <\/b>für den ausgewählten Eintrag aus der Tabelle tblTreiber <\/b>aus und speichert diesen in der Variablen strTyp<\/b>. Abhängig vom Wert führt die Prozedur dann einen der Zweige der folgenden Select Case<\/b>-Bedingung aus.<\/p>\n Der erste Zweig behandelt den Fall MSSQL<\/b>. Nur der Microsoft SQL Server unterstützt die Windows-Authentifizierung, daher soll nur in diesem Fall eine Auswahl der Authentifizierungsmethode mit der Optionsgruppe ogrTrustedConnection <\/b>möglich sein.<\/p>\n Diese stellt aktiviert die Prozedur dann durch Einstellen der Eigenschaft Enabled <\/b>auf den Wert True<\/b>. Für die übrigen Servertypen (aktuell also nur My-SQL – aber vielleicht fügen Sie ja selbst weitere Einträge zur Tabelle tblTreiber <\/b>und auch zu dieser Select Case<\/b>-Bedingung hinzu) soll die Optionsgruppe ogrTrustedConnection <\/b>deaktiviert und auf den Wert 0 <\/b>(für SQL Server-Authentifizierung<\/b>) eingestellt werden. In diesem Fall soll wiederum das Ereignis ogrTrustedConnection_AfterUpdate <\/b>ausgelöst werden – siehe gleich im Anschluss.<\/p>\n Schließlich schreibt die letzte Anweisung wieder die aktuelle Version der Verbindungszeichenfolge in das Textfeld txtVerbindungszeichenfolge<\/b>.<\/p>\n Nach der Auswahl landet der entsprechende Ausdruck in folgender Form in der Verbindungszeichenfolge:<\/p>\n Authentifizierungsart<\/b><\/p>\n Damit kommen wir endlich zur Optionsgruppe ogrTrustedConnection<\/b>. Diese bietet zwei Optionen an:<\/p>\n Wie bereits weiter oben beschrieben, ist die Option -1 <\/b>nur verfügbar, wenn Sie einen Treiber des Typs MSSQL <\/b>wählen. Die übrigen RDBMS bieten keine Authentifizierung auf Basis des Windows-Benutzerkontos an.<\/p>\n Je nach dem Wert, den Sie für die Optionsgruppe auswählen, können Sie noch den Benutzernamen und das Kennwort für den Zugriff auf das RDBMS-System angeben. Bei der Windows-Authentifizierung ist dies nicht nötig, daher werden die beiden Textfelder txtBenutzername <\/b>und txtKennwort <\/b>in diesem Fall deaktiviert. Gleiches gilt für das Textfeld txtVerschluesselung <\/b>und für die Schaltfläche cmdVerschluesseln<\/b>. Schließlich soll auch nach der Auswahl eines Wertes der Optionsgruppe die Verbindungszeichenfolge aktualisiert werden (s. Listing 2).<\/p>\n Listing 2: Aktivieren und Deaktivieren von Steuerelementen <\/span><\/b><\/p>\n Benutzername und Kennwort eingeben<\/b><\/p>\n Anschließend folgen die beiden Textfelder zum Eingeben von Benutzername und Kennwort. Jede änderung des Benutzernamens führt zum Aufruf der Ereignisprozedur txtBenutzername_Change<\/b>. Diese speichert den aktuellen Inhalt des Feldes txtBenutzername <\/b>in der Variablen strBenutzername <\/b>und aktualisiert anschließend die Verbindungszeichenfolge.<\/p>\n Außerdem leert die Prozedur das Feld txtVerschluesselt<\/b>, das die verschlüsselte Version von Benutzername und Kennwort speichert:<\/p>\n Das ändern des Kennworts löst eine Prozedur aus, die prinzipiell genauso funktioniert wie die beim ändern des Benutzernamens:<\/p>\n Kennwort verschlüsseln<\/b><\/p>\n Möglicherweise möchten Sie, wie im Beitrag Sicherer RDBMS-Zugriff <\/b>(www.access-im-unternehmen.de\/975<\/b>) beschrieben, die Benutzerdaten in verschlüsselter Form in der Datenbank speichern und diese in eine .mde<\/b>– oder .accde<\/b>-Datenbank umwandeln, um ohne Eingabe der Benutzerdaten auf die Tabellen der RDBMS-Datenbank zugreifen zu können.<\/p>\n In diesem Fall müssen Sie Schaltfläche cmdVerschluesseln<\/b> betätigen, was die Ereignisprozedur aus Listing 3 auslöst. Diese Prozedur prüft zunächst, ob strBenutzername <\/b>oder strKennwort <\/b>ein Pipe-Zeichen (|<\/b>) enthalten, und gibt gegebenenfalls den Hinweis aus, dass dies nicht zulässig ist.<\/p>\n <\/p>\n Listing 3: Verschlüsseln von Benutzername und Kennwort<\/span><\/b><\/p>\n Dieses soll nämlich Benutzername und Kennwort voneinander trennen, wenn diese durch die Funktion DecryptString <\/b>mit dem angegebenen Schlüssel (hier aiu2015<\/b>) verschlüsselt werden.<\/p>\n Der verschlüsselte Ausdruck landet dann im Textfeld txtVerschluesselt<\/b>, die beiden Textfelder txtBenutzername <\/b>und txtKennwort <\/b>werden geleert (s. Bild 7).<\/p>\n Bild 7: Vorschau der verschlüsselten Daten<\/span><\/b><\/p>\n Datenbank auswählen<\/b><\/p>\n Damit sind wir zu dem Punkt gelangt, an dem wir den Namen der zu verwendenden Datenbank nicht nur in das Kombinationsfeld cboDatenbanken <\/b>eingeben können, sondern auch aufgrund der eingegebenen Benutzerdaten die Datenbanken des aktuellen RDBMS-Systems auflisten können (sofern der aktuell angegebene Benutzer dazu berechtigt ist).<\/p>\n Das Kombinationsfeld cboDatenbank <\/b>soll durch einen Mausklick auf die Schaltfläche cmdDatenbankEinlesen <\/b>mit den verfügbaren Datenbanken gefüllt werden.<\/p>\n Dazu löst die Schaltfläche die Prozedur aus Listing 4 aus. Die Prozedur prüft zunächst, ob der Benutzer bereits einen Server in das Textfeld txtServer <\/b>eingetragen hat.<\/p>\n Listing 4: Einlesen der verfügbaren Datenbanken<\/span><\/b><\/p>\n Ist dies nicht der Fall, zeigt sie eine entsprechende Meldung an und setzt den Fokus auf dieses Textfeld, bevor die Prozedur beendet wird.<\/p>\n Das gleiche Spiel geschieht mit dem Kombinationsfeld cboTreiberID<\/b>. Enthält dieses ein leere Zeichenkette, fordert die Prozedur den Benutzer zur Auswahl eines Treibers auf und beendet sich selbst.<\/p>\n Danach folgt die Unterscheidung, ob es sich um einen Zugriff mit Windows-Authentifizierung oder ohne handelt. Die folgende If…Then<\/b>-Bedingung führt erst einige Anweisungen für den Fall aus, dass die SQL Server-Authentifizierung verwendet wird (Me.ogrTrustedConnection = False<\/b>).<\/p>\n Sind die Benutzerdaten nicht verschlüsselt (Len(Me!txtVerschluesselt) = 0<\/b>), prüft die Prozedur, ob die beiden Textfelder txtBenutzername <\/b>und txtKennwort <\/b>gefüllt sind. Falls nicht, erscheinen entsprechende Meldungen mit der Aufforderung, diese zu füllen.<\/p>\n Hat die Prozedur all diese Prüfungen durchgeführt, ruft sie die Funktion DatenbankenEinlesen <\/b>auf und weist das Ergebnis – ein Recordset<\/b>-Objekt mit den Datenbanken – der Eigenschaft Recordset <\/b>des Kombinationsfeldes cboDatenbank <\/b>zu (s. Listing 5).<\/p>\n Listing 5: Einlesen der verfügbaren Datenbanken als Recordset<\/span><\/b><\/p>\n Anschließend verschiebt sie den Fokus auf das Kombinationsfeld cboDatenbank <\/b>und klappt die Liste mit der Methode DropDown <\/b>auf (s. Bild 8).<\/p>\n Bild 8: Auswahl der Datenbanken des RDBMS-Systems<\/span><\/b><\/p>\n Funktion zum Einlesen der Datenbanken<\/b><\/p>\n Je nach RDBMS unterscheidet sich das Vorgehen zum Einlesen der vorhandenen Datenbanken. Dies berücksichtigt die Funktion DatenbankenEinlesen<\/b>, indem sie zunächst den Typ des Datenbanksystems aus der vierten Spalte (Index 3<\/b>) des Kombinationsfeldes cboTreiber <\/b>in die Variable strSQL <\/b>einliest.<\/p>\n Diese enthält dann entweder den Wert MSSQL <\/b>oder MySQL<\/b>. Je nach Wert führt die Prozedur in der folgenden Select Case<\/b>-Bedingung unterschiedliche Anweisungen aus. Im Falle von MSSQL <\/b>ruft sie die Funktion VerbindungszeichenfolgeErmitteln <\/b>mit dem Wert Master <\/b>als Parameter auf. Dies liefert eine Verbindungszeichenfolge, welche die Datenbank master <\/b>referenziert. Dann formuliert sie in der Variablen strSQL <\/b>eine Abfrage, die alle Werte des Feldes name <\/b>der Datenbank sys_databases <\/b>liefert.<\/p>\n Im Falle des Typs MySQL <\/b>bezieht sich die Verbindungszeichenfolge auf die Systemdatenbank mysql<\/b>. Die Namen der enthaltenen Tabellen liefert dann keine herkömmliche Select<\/b>-Abfrage, sondern die Anweisung show databases<\/b>.<\/p>\n Die nun aufgerufene Funktion QueryDefErstellen <\/b>erwartet die auszuführende Abfrage aus strSQL <\/b>sowie die Verbindungszeichenfolge aus strVerbindungszeichenfolge <\/b>als Parameter und liefert ein entsprechend ausgestattetes QueryDef<\/b>-Objekt zurück.<\/p>\n Für dieses führt die Funktion die OpenRecordset<\/b>-Methode aus und speichert das Ergebnis als Rückgabewert der Funktion in der Variablen DatenbankenEinlesen<\/b>. Während der Ausführung der OpenRecordset<\/b>-Methode deaktiviert die Funktion temporär die Fehlerbehandlung, weshalb eventuell auftretende Fehler nicht zu einer Fehlermeldung führen.<\/p>\n Solche Fehler fängt die Funktion vielmehr später in einer Prüfung von Err.Number <\/b>ab. Sollte diese Eigenschaft einen Wert ungleich 0 <\/b>liefern, gibt die Funktion eine entsprechende Meldung aus.<\/p>\n Verbindungszeichenfolge zusammenstellen<\/b><\/p>\n Die schon mehrfach erwähnte Funktion VerbindungszeichenfolgeErmitteln<\/b> sieht wie in Listing 6 aus und verwendet zwei optionale Parameter. Der erste heißt strDatenbank <\/b>und erwartet den Namen der zu verwendenden Datenbank.<\/p>\n![\"Inhalt](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_003.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_002.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_004.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_005.png\")
<\/p>\nSELECT VerbindungszeichenfolgeID, Bezeichnung FROM tblVerbindungszeichenfolgen;<\/pre>\n
Private Sub <\/span>cboSchnellauswahl_AfterUpdate()\r\n Me.Recordset.FindFirst \"VerbindungszeichenfolgeID = \" _\r\n & Me!cboSchnellauswahl\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n Me.Recordset.FindFirst _\r\n \"VerbindungszeichenfolgeID = \" & Me.OpenArgs\r\n Else<\/span>\r\n Me.Recordset.FindFirst \"Aktiv=True\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n ogrTrustedConnection_AfterUpdate\r\n strServer = Nz(Me!txtServer)\r\n strBenutzername = Nz(Me!txtBenutzername)\r\n strKennwort = Nz(Me!txtKennwort)\r\n strPort = Nz(Me!txtPort)\r\n strDatenbank = Nz(Me!cboDatenbank)\r\n Me!cmdAlsStandard.Enabled = Nz(Me!Aktiv, 0) = 0\r\n Me!cboSchnellauswahl = Me!VerbindungszeichenfolgeID\r\nEnd Sub<\/span><\/pre>\nDim <\/span>strServer As String<\/span>\r\nDim <\/span>strPort As String<\/span>\r\nDim <\/span>strDatenbank As String<\/span>\r\nDim <\/span>strBenutzername As String<\/span>\r\nDim <\/span>strKennwort As String<\/span><\/pre>\nPrivate Sub <\/span>txtServer_Change()\r\n strServer = Me!txtServer.Text\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_006.png\")
<\/p>\nPrivate Sub <\/span>txtPort_Change()\r\n strPort = Me!txtPort.Text\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboTreiberID_AfterUpdate()\r\n Dim <\/span>strTyp As String<\/span>\r\n strTyp = DLookup(\"Typ\", \"tblTreiber\", \"TreiberID = \" & Me!cboTreiberID)\r\n Select Case strTyp\r\n Case <\/span>\"MSSQL\"\r\n Me!ogrTrustedConnection.Enabled = True<\/span>\r\n Case Else<\/span>\r\n Me!ogrTrustedConnection.Enabled = False<\/span>\r\n Me!ogrTrustedConnection = 0\r\n ogrTrustedConnection_AfterUpdate\r\n End Select<\/span>\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln(Nz(Me!cboDatenbank))\r\nEnd Sub<\/span><\/pre>\nDRIVER={ODBC Driver 11 for SQL Server};<\/pre>\n\n
Private Sub <\/span>ogrTrustedConnection_AfterUpdate()\r\n Me!txtBenutzername.Enabled = Not<\/span> Me!ogrTrustedConnection\r\n Me!txtKennwort.Enabled = Not<\/span> Me!ogrTrustedConnection\r\n Me!txtVerschluesselt.Enabled = Not<\/span> Me!ogrTrustedConnection\r\n Me!cmdVerschluesseln.Enabled = Not<\/span> Me!ogrTrustedConnection\r\n If <\/span>Me.Dirty Then<\/span>\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln(Nz(Me!cboDatenbank))\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtBenutzername_Change()\r\n strBenutzername = _\r\n Me!txtBenutzername.Text\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln\r\n Me!txtVerschluesselt = \"\"\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtKennwort_Change()\r\n strKennwort = Me!txtKennwort.Text\r\n Me!txtVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln\r\n Me!txtVerschluesselt = \"\"\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdVerschluesseln_Click()\r\n Dim <\/span>strVerschluesselt As String<\/span>\r\n If <\/span>InStr<\/span>(1, strBenutzername & strKennwort, \"|\") = 0 Then<\/span>\r\n strVerschluesselt = DecryptString(strBenutzername & \"|\" _\r\n & strKennwort, \"aiu2015\")\r\n Me!txtVerschluesselt = strVerschluesselt\r\n Me!txtKennwort = \"\"\r\n Me!txtBenutzername = \"\"\r\n strBenutzername = \"\"\r\n strKennwort = \"\"\r\n Else<\/span>\r\n MsgBox<\/span> \"Benutzername und Kennwort dürfen nicht das Zeichen ''|'' enthalten.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Vorschau](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_007.png\")
<\/p>\nPrivate Sub <\/span>cmdDatenbankenEinlesen_Click()\r\n If <\/span>Len<\/span>(Nz(Me!txtServer)) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie den Namen der SQL Server-Instanz ein.\"\r\n Me!txtServer.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!cboTreiberID)) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte wählen Sie einen Treiber aus.\"\r\n Me!cboTreiberID.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Me!ogrTrustedConnection = False<\/span> Then<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtVerschluesselt)) = 0 Then<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtBenutzername)) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie einen Benutzernamen ein.\"\r\n Me!txtBenutzername.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtKennwort)) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie ein Kennwort ein.\"\r\n Me!txtKennwort.SetFocus\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Set<\/span> Me!cboDatenbank.Recordset = DatenbankenEinlesen\r\n Me!cboDatenbank.SetFocus\r\n Me!cboDatenbank.Dropdown\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>DatenbankenEinlesen() As <\/span>Recordset\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>strTyp As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n strTyp = Me!cboTreiberID.Column(3)\r\n Select Case strTyp\r\n Case <\/span>\"MSSQL\"\r\n strVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln(\"Master\")\r\n strSQL = \"select name from sys.databases;\"\r\n Case <\/span>\"MySQL\"\r\n strVerbindungszeichenfolge = _\r\n VerbindungszeichenfolgeErmitteln(\"mysql\")\r\n strSQL = \"show databases;\"\r\n End Select<\/span>\r\n Set<\/span> qdf = QueryDefErstellen(strSQL, strVerbindungszeichenfolge)\r\n On Error Resume Next<\/span>\r\n DoCmd.Hourglass True<\/span>\r\n Set<\/span> DatenbankenEinlesen = qdf.OpenRecordset\r\n DoCmd.Hourglass False<\/span>\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> \"Die Verbindung konnte nicht hergestellt werden:\" & vbCrLf<\/span> _\r\n & Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2015_02\/pic_976_008.png\")
<\/p>\nPrivate Function <\/span>VerbindungszeichenfolgeErmitteln(Optional<\/span> strDatenbank _\r\n As String<\/span>, Optional<\/span> bolAnzeige As Boolean<\/span>) As String<\/span>\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>strEntschluesselt As String<\/span>\r\n strTemp = \"ODBC;\"\r\n If <\/span>Not<\/span> IsNull(Me!cboTreiberID) Then<\/span>\r\n strTemp = strTemp & \"DRIVER={\" & Me!cboTreiberID.Column(1) & \"};\"\r\n End If<\/span>\r\n