<\/p>\n
Im Beitrag RDBMS-Tools: Verbindungen verwalten haben wir ein Formular vorgestellt, mit dem Sie die Verbindungszeichenfolgen für eine oder mehrere Verbindungen konfigurieren können. Da wäre es doch praktisch, wenn wir auf ähnliche Weise ein Formular bauen, mit dem Sie auch noch die in der angesprochenen Datenbank enthaltenen Tabellen anzeigen und für Verknüpfungen oder Importe auswählen können. Dies erledigen wir im vorliegenden Beitrag.<\/b><\/p>\n
Das Formular zum Verknüpfen von Tabellen soll eng mit dem Formular zum Erstellen von Verbindungszeichenfolgenden aus dem Beitrag RDBMS-Tools: Verbindungen verwalten <\/b>(www.access-im-unternehmen.de\/976<\/b>) zusammenarbeiten.<\/p>\n
Das bedeutet, dass es erstens die Verbindungszeichenketten zur Auswahl anbieten soll, die Sie mit dem Formular des genannten Beitrags zusammengestellt haben. Dazu greift es demzufolge auf die Tabelle tblVerbindungszeichenfolgen <\/b>zu (s. Bild 1).<\/p>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2015_02\/pic_977_001.png\")
<\/p>\n
Bild 1: Auswahl der Verbindungszeichenfolge<\/span><\/b><\/p>\n Nachdem wir so die Verbindungszeichenfolge auswählen und somit den Server und die Datenbank festgelegt haben, aus der die Tabellen verknüpft werden sollen, soll das Formular die enthaltenen Tabellen anzeigen (s. Bild 2).<\/p>\n Bild 2: Anzeige der Tabellen der gewählten Verbindungszeichenfolge<\/span><\/b><\/p>\n Da etwa Datenbanken von CMS- oder Shopsystemen mitunter eine große Menge Tabellen enthalten, haben wir noch eine kleine Suchfunktion zum Formular hinzugefügt.<\/p>\n Wenn Sie in das Textfeld Filter <\/b>einen Wert eingeben, zeigt die Liste mit den Tabellen nur noch die passenden Einträge an – und diese wird nach der Eingabe eines jeden einzelnen Zeichens aktualisiert.<\/p>\n Bild 3 zeigt beispielsweise, wie die Liste nur noch die Einträge anzeigt, welche die Zeichenfolge s_user <\/b>enthalten.<\/p>\n Bild 3: Filtern der angezeigten Tabellen<\/span><\/b><\/p>\n Aus dem Listenfeld können Sie einen oder mehrere Einträge auswählen und die gewählten Tabellen dann mit einem Mausklick auf die Schaltfläche mit dem Text Tabellen verknüpfen <\/b>als Verknüpfung in der Datenbank anlegen.<\/p>\n Das Ergebnis finden Sie schließlich in Bild 4.<\/p>\n Bild 4: Verknüpfung einiger Tabellen<\/span><\/b><\/p>\n Formular erstellen<\/b><\/p>\n Schauen wir uns nun an, wie das Formular zum Verknüpfen von Tabellen aufgebaut ist. Das Formular frmTabellenVerknuepfen <\/b>sieht im Entwurf wie in Bild 5 aus.<\/p>\n Bild 5: Entwurf des Formulars frmTabellenVerknuepfen<\/span><\/b><\/p>\n Die Steuerelemente sind sämtlich ungebunden. Auch die Listen- und Kombinationsfelder werden erst zur Laufzeit gefüllt.<\/p>\n Da das Formular keine Datensätze anzeigen soll, stellen Sie die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>sowie Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Für ausreichend Platz im Listenfeld zur Anzeige der Tabellen legen wir für seine Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils den Wert Beide <\/b>fest. Auf diese Weise wächst und schrumpft das Listenfeld, wenn der Benutzer die Größe des Formulars ändert.<\/p>\n Kombinationsfeld beim Laden einstellen<\/b><\/p>\n Wenn der Benutzer das Formular öffnet, soll das Kombinationsfeld bereits alle Einträge der Tabelle tblVerbindungszeichenfolgen<\/b> anzeigen. Dazu stellen wir die Eigenschaft Datensatzherkunft <\/b>auf die folgende SQL-Abfrage ein:<\/p>\n Nun soll das Kombinationsfeld allerdings auch noch direkt einen Datensatz auswählen. Welcher das ist, hängt von der Art des öffnens ab.<\/p>\n Wenn der Benutzer das Formular einfach öffnet, soll es einfach die in der Tabelle tblVerbindungszeichenfolgen <\/b>als aktiv markierte Verbindungszeichenfolge selektieren. Mit dem öffnungsargument kann man dem Formular jedoch auch die ID der anzuzeigenden Verbindungszeichenfolge übergeben. Ein solcher Aufruf würde wie folgt aussehen:<\/p>\n Dieser Aufruf soll beispielsweise die Verbindungszeichenfolge mit dem Wert 1 <\/b>im Feld VerbindungszeichenfolgeID <\/b>liefern.<\/p>\n Damit dies gelingt, statten wir das Ereignis, das beim Laden des Formulars ausgelöst wird, mit der Ereignisprozedur aus Listing 1 aus.<\/p>\n <\/p>\n Listing 1: Ereignisprozedur beim Laden des Formulars<\/span><\/b><\/p>\n Diese prüft, ob das über die Eigenschaft OpenArgs <\/b>abfragbare öffnungsargument einen Wert enthält.<\/p>\n Ist dies der Fall, stellt die Prozedur einfach den Wert des Kombinationsfeldes auf diesen Wert ein. Anderenfalls versucht sie, mit einem DLookup<\/b>-Aufruf die ID der Verbindungszeichenfolge zu ermitteln, deren Feld Aktiv <\/b>den Wert -1 <\/b>enthält und die somit als aktive Verbindungszeichenfolge ausgewählt wurde.<\/p>\n Dies liefert, wenn keiner der Datensätze als aktiv markiert ist, den Wert 0<\/b>. Dies prüft die folgende If…Then<\/b>-Bedingung.<\/p>\n Hat lngVerbindungszeichenfolgeID <\/b>danach noch den Wert 0<\/b>, stellt die Prozedur diese Variable einfach auf die ID des ersten Datensatzes ein, den die Tabelle tblVerbindungszeichenfolgen <\/b>liefert.<\/p>\n Den Wert von lngVerbindungszeichenfolgeID <\/b>weist die Prozedur schließlich dem Kombinationsfeld <\/b>zu.<\/p>\n Tabellen einlesen<\/b><\/p>\n Die Tabellen sollen gleich nach dem Anzeigen des Formulars noch nicht eingelesen werden, sondern erst, wenn sich der Benutzer bewusst für die richtige Verbindung entschieden hat. Das geschieht entweder, wenn er nach dem öffnen eine andere Verbindung auswählt oder für die aktuell ausgewählte Verbindung auf die Schaltfläche cmdAktualisieren <\/b>klickt.<\/p>\n Ein Klick auf diese Schaltfläche löst die folgende Prozedur aus, die wiederum die Routine TabellenEinlesen <\/b>aufruft:<\/p>\n Die Auswahl eines Eintrags im Kombinationsfeld löst die folgende Prozedur aus. Deren einzige Anweisung ruft die ebenfalls die Routine TabellenEinlesen <\/b>auf und weist das Ergebnis der Recordset<\/b>-Eigenschaft zu:<\/p>\n Die Routine TabellenEinlesen <\/b>finden Sie in Listing 2. Sie verwendet die Funktion Verbindungszeichenfolge<\/b>, um die Verbindungszeichenfolge aus den Daten der Tabelle tblVerbindungszeichenfolgen <\/b>zusammenzustellen – und zwar für die Verbindungszeichenfolge mit der ID aus dem Kombinationsfeld cboVerbindung<\/b>.<\/p>\n Listing 2: Einlesen der Tabellen in ein Recordset<\/span><\/b><\/p>\n Die Funktion Verbindungszeichenfolge <\/b>wird im Beitrag RDBMS-Tools: Verbindungen verwalten <\/b>erläutert.<\/p>\n Die Prozedur prüft dann innerhalb einer If…Then<\/b>-Bedingung, ob die Verbindung zu dieser Datenbank aufgebaut werden kann.<\/p>\n Die hier verwendete Funktion VerbindungTesten <\/b>erläutern wir ebenfalls im oben genannten Beitrag. Gelingt der Verbindungsaufbau, erstellt die Prozedur ein neues, temporäres QueryDef<\/b>-Objekt. Diesem übergibt sie eine Abfrage, welche ein standardmäßig von den meisten RDBMS-Systemen unterstütztes Objekt namens INFORMATION_SCHEMA.TABLES <\/b>ausliest, als Datenquelle.<\/p>\n Außerdem legt sie die Verbindungszeichenfolge für die Eigenschaft Connect <\/b>fest und gibt mit dem Wert True <\/b>für die Eigenschaft ReturnRecords <\/b>an, dass die Abfrage eine Auswahlabfrage ist (und nicht etwa eine Aktionsabfrage).<\/p>\n Dann öffnet sie mit der OpenRecordset<\/b>-Methode ein Recordset auf Basis der Abfrage aus qdf <\/b>und übergibt das Ergebnis an die Eigenschaft Recordset <\/b>des Listenfeldes.<\/p>\n Außerdem übergibt sie es noch an die Variable rst-Ungefiltert<\/b>, die wir im Kopf des Klassenmoduls wie folgt deklarieren:<\/p>\n Tabellenverknüpfungen erstellen<\/b><\/p>\n Wenn der Benutzer nun einen oder mehrere Einträge des Listenfeldes markiert hat, kann er mit einem Klick auf die Schaltfläche cmdTabellenVerknuepfen <\/b>die entsprechenden Verknüpfungen zur Datenbank hinzufügen.<\/p>\n Die dadurch ausgelöste Ereignisprozedur finden Sie in Listing 3.<\/p>\n Listing 3: Herstellen der Verknüpfung zu den ausgewählten Tabellen<\/span><\/b><\/p>\n Die Prozedur liest wieder die Verbindungszeichenfolge über die Funktion Verbindungszeichenfolge <\/b>ein. Funktioniert die Verbindung, durchläuft sie in einer For…Next<\/b>-Schleife alle markierten Einträge des Listenfeldes. Diese ermittelt sie über die Auflistung ItemsSelected <\/b>des Listenfelds. Innerhalb der Schleife schreibt die Prozedur jeweils den Namen der Tabelle des aktuellen Eintrags in die Variable strTabelle<\/b>.<\/p>\n Diese verwendet sie beim Aufruf der Funktion VerknuepfungErstellen<\/b>, die wir bereits im Beitrag RDBMS-Tabellen per VBA verknüpfen <\/b>(www.access-im-unternehmen.de\/974<\/b>) vorgestellt haben.<\/p>\n Dieser übergibt sie die Verbindungszeichenfolge, den Namen der zu erstellenden Verknüpfung, den Namen der zu verknüpfenden Tabelle und einen Boolean<\/b>-Wert, der darüber entscheidet, ob Benutzername und Kennwort in der Datenbank gespeichert werden.<\/p>\n Diesen Wert legen Sie mit dem Kontrollkästchen chkMitBenutzerdaten <\/b>fest.<\/p>\n Das Speichern dieser Daten in der Datenbank bedeutet, dass Benutzername und Kennwort im Klartext in der Systemtabelle MSysObjects <\/b>hinterlegt werden. Nach dem Durchlaufen dieser Schleife finden Sie alle angegebenen Verknüpfungen im Navigationsbereich der Datenbank vor.<\/p>\n Verbindungszeichenfolgen editieren<\/b><\/p>\n Damit Sie gleich vom Formular aus den Dialog zum Verwalten der Verbindungszeichenfolgen öffnen können, legen wir neben dem Kombinationsfeld cboVerbindung <\/b>eine Schaltfläche namens cmdVerbindungszeichenfolgen <\/b>an. Diese löst bei Mausklick die folgende Prozedur aus:<\/p>\n Sie schließt eine eventuell bereits geöffnete Instanz des Formulars und öffnet dieses neu, wobei die aktuelle Verbindungszeichenfolge direkt angezeigt werden soll. Daher übergibt sie die ID des entsprechenden Datensatzes mit dem öffnungsargument an das Formular.<\/p>\n Tabellen filtern<\/b><\/p>\n Um den Komfort der Lösung zu erhöhen, haben wir dieser noch ein Textfeld zum Filtern der im Listenfeld angezeigten Tabellen hinzugefügt.<\/p>\n Als Vorbereitung haben wir bereits ein Recordset namens rstUngefiltert <\/b>deklariert und beim Einlesen der Tabellen der aktuellen Quelldatenbank mit den Tabellennamen gefüllt.<\/p>\n Damit nun mit jedem Zeichen, das der Benutzer in das Textfeld txtFilter <\/b>eingegibt, die angezeigten Tabellen nach dem entsprechenden Begriff gefiltert werden, hinterlegen wir eine Ereignisprozedur für das Ereignis Bei änderung <\/b>des Textfeldes.<\/p>\n Dieses sieht wie folgt aus und stellt zunächst die Filter<\/b>-Eigenschaft des Recordsets auf einen Ausdruck ein, der das Feld TABLE_NAME <\/b>mit dem angegebenen Vergleichsstring abgleicht.<\/p>\n Dieser wird dabei von Sternchen-Platzhaltern (*<\/b>) eingefasst, damit das Ergebnis alle Einträge liefert, die den Filter an beliebiger Stelle enthalten.<\/p>\n Die Filter<\/b>-Eigenschaft allein sorgt jedoch nicht für das Filtern der gewünschten Einträge. Dafür müssen Sie ein neues Recordset mit der Methode OpenRecordset <\/b>von rstUngefiltert <\/b>erstellen.<\/p>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2015_02\/pic_977_002.png\")
<\/p>\n![\"Filtern](\"..\/fileadmin\/_temp_\/2015_02\/pic_977_003.png\")
<\/p>\n![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2015_02\/pic_977_004.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_02\/pic_977_005.png\")
<\/p>\nSELECT VerbindungszeichenfolgeID, Verbindungszeichenfolge, Bezeichnung FROM tblVerbindungszeichenfolgen;<\/pre>\n
DoCmd.OpenForm \"frmTabellenVerknuepfen\", OpenArgs:=1<\/pre>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>lngVerbindungszeichenfolgeID As Long<\/span>\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n Me!cboVerbindung = Me.OpenArgs\r\n Else<\/span>\r\n lngVerbindungszeichenfolgeID = Nz(DLookup(\"VerbindungszeichenfolgeID\", \"tblVerbindungszeichenfolgen\", \"Aktiv = -1\"))\r\n If <\/span>lngVerbindungszeichenfolgeID = 0 Then<\/span>\r\n lngVerbindungszeichenfolgeID = Nz(DLookup(\"VerbindungszeichenfolgeID\", \"tblVerbindungszeichenfolgen\"))\r\n End If<\/span>\r\n Me!cboVerbindung = lngVerbindungszeichenfolgeID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAktualisieren_Click()\r\n Set<\/span> Me!cboVerbindung.Recordset = TabellenEinlesen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboVerbindung_AfterUpdate()\r\n Set<\/span> Me!cboVerbindung.Recordset = TabellenEinlesen\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>TabellenEinlesen() As <\/span>DAO.Recordset\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strVerbindungszeichenfolge = Verbindungszeichenfolge(False, Me!cboVerbindung)\r\n If <\/span>VerbindungTesten(strVerbindungszeichenfolge) = True<\/span> Then<\/span>\r\n Set<\/span> qdf = db.CreateQueryDef(\"\")\r\n With<\/span> qdf\r\n .SQL = \"SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE IN (''BASE TABLE'', ''VIEW'') \" _\r\n & \"ORDER BY TABLE_TYPE, TABLE_NAME\"\r\n .Connect = strVerbindungszeichenfolge\r\n .ReturnsRecords = True<\/span>\r\n End With<\/span>\r\n Set<\/span> Me!lstTabellen.Recordset = qdf.OpenRecordset\r\n Set<\/span> rstUngefiltert = Me!lstTabellen.Recordset\r\n Else<\/span>\r\n MsgBox<\/span> \"Keine gültige Verbindung.\"\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nDim <\/span>rstUngefiltert As <\/span>DAO.Recordset<\/pre>\nPrivate Sub <\/span>cmdTabellenVerknuepfen_Click()\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n strVerbindungszeichenfolge = Verbindungszeichenfolge(False, Me!cboVerbindung)\r\n If <\/span>VerbindungTesten(strVerbindungszeichenfolge) Then<\/span>\r\n For i = 0 To Me!lstTabellen.ItemsSelected.Count - 1\r\n strTabelle = Me!lstTabellen.ItemData(Me!lstTabellen.ItemsSelected(i))\r\n VerknuepfungErstellen strVerbindungszeichenfolge, strTabelle, strTabelle, Me!chkMitBenutzerdaten\r\n Next<\/span> i\r\n Else<\/span>\r\n MsgBox<\/span> \"Verbindung konnte nicht hergestellt werden.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdVerbindungszeichenfolgen_Click()\r\n On Error Resume Next<\/span>\r\n DoCmd.Close acForm, \"frmVerbindungszeichenfolgen\"\r\n On Error GoTo<\/span> 0\r\n DoCmd.OpenForm \"frmVerbindungszeichenfolgen\", _\r\n WindowMode:=acDialog, OpenArgs:=Me!cboVerbindung\r\nEnd Sub<\/span><\/pre>\n