<\/p>\n
Mit der Access-Datenbank ins Internet Das ist ein alter Traum von Access-Entwicklern. Mit Office 2010 wurden die Webdatenbanken eingeführt, die das Ablegen einer Datenbank im Internet erlauben sollten, mit Access 2013 und Office 365 schaffte Microsoft auch die Möglichkeit des Hostings einer solchen Webdatenbank auf Microsoft Servern. Wir schauen uns die Zusammenhänge an und erstellen eine kleine Beispiel-App – auf die Sie schließlich auch noch per Desktop-Datenbank zugreifen können.<\/b><\/p>\n
Um die nachfolgenden Beispiele zu reproduzieren, benötigen Sie ein Office 365-Konto. Ich habe bei der Vorbereitung zu diesem Beitrag zunächst über Microsoft und dann über Google versucht, herauszufinden, in welchen Office 365-Paketen die mit Access 2010 eingeführten Access Services zu finden sind. Herausgekommen ist nur wenig. Also habe ich einfach einmal einen kostenlosen Test von Office 365 gestartet – allerdings habe ich gedacht, dass es zumindest die Variante für Unternehmenskunden sein sollte.<\/p>\n
Dies alles starten Sie über den Link http:\/\/office.microsoft.com\/de-de\/<\/b> (s. Bild 1).<\/p>\n
![\"Start](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_001.png\")
<\/p>\n
Bild 1: Start des Tests von Office 365<\/span><\/b><\/p>\n Dort richten Sie nun zunächst einen Account ein und erhalten eine passende E-Mail-Adresse – zum Beispiel info@acciu.onmicrosoft.com<\/b>.<\/p>\n Diese notieren Sie sich für später – wir benötigen diese noch. Sie werden auf der Webseite nun zum eigens für Sie eingerichteten Bereich weitergeleitet. <\/p>\n Dort können Sie eine Reihe Dinge erledigen – zum Beispiel das mit dieser Variante von Office 365 verbundene Office-Paket herunterladen, mit dem Kalender oder mit der Online-Variante von Outlook arbeiten oder Kontakte verwalten. <\/p>\n Aber glauben Sie nicht, dass Sie irgendwo Informationen über Webdatenbanken oder Access Services finden – zumindest mir ist dies nicht gelungen.<\/p>\n Aber immerhin haben wir ja nun einen Office 365-Account, mit dem wir ein wenig herumexperimentieren können. Dazu benötigen Sie allerdings Access 2013. Sie haben es nicht Kein Problem: Mit dem Office 365-Test können Sie es sich auf den Rechner installieren.<\/p>\n Anschließend öffnen Sie Access 2013 und wir schauen uns an, was es in Sachen Webdatenbanken zu bieten hat. Der Startbildschirm sieht wie in Bild 2 aus. Hier ist bereits zu erkennen, dass es Microsoft mit der Online-Nutzung ein wenig ernster meint als bei der Vorgänger-Version – Sie können sich gleich im Startbildschirm anmelden.<\/p>\n Bild 2: Startbildschirm von Access 2013<\/span><\/b><\/p>\n Aber wo meldet man sich überhaupt an Probieren wir doch einfach mal die bei Einrichten des Office 365-Testzugangs erstellte E-Mail-Adresse aus und geben diese nach dem Anklicken von Melden Sie sich an, um Office optimal zu nutzen <\/b>in den Dialog aus Bild 3 ein. Dies ruft die Anzeige eines weiteren Dialogs hervor, in den Sie nun noch das Kennwort für das angegebene Konto angeben (s. Bild 4).<\/p>\n Bild 3: Anmeldung mit Kennwort<\/span><\/b><\/p>\n Bild 4: Anmelden bei Office 365<\/span><\/b><\/p>\n Bevor wir uns nun an die Entwicklung einer ersten eigenen Webanwendung begeben, wollen wir uns anhand eines der Templates ansehen, was uns erwartet.<\/p>\n Auf der Startseite von Access finden Sie bereits einige Vorlagen. Welche aber liefern eine Webdatenbank Alle, die kein leeres Blatt, sondern ein Blatt mit einem stilisierten Globus als Symbol verwenden. Wir wollen uns zunächst einmal die Kontakte-Datenbank ansehen. Klicken Sie daher auf den entsprechenden Eintrag, um einen weiteren Dialog mit Details zu der zu erstellenden Datenbank einzugeben (s. Bild 5).<\/p>\n Bild 5: Erstellen einer ersten Webanwendung<\/span><\/b><\/p>\n Hier geben Sie zunächst den Namen der Webdatenbank ein, in unserem Beispiel aiuKontaktePersoenlich<\/b>. Anschließend wählen Sie den Speicherort aus – Sie haben die Wahl zwischen dem Bereich Persönliche Apps <\/b>oder Teamwebsite<\/b>.<\/p>\n Wir wählen zunächst den Eintrag Persönliche Apps bei aiu <\/b>aus, den übrigen Eintrag testen wir gleich mit einer anderen Beispieldatenbank. Den Speicherort, der hier mit einer Subdomain der Adresse sharepoint.com <\/b>angegeben wird, behalten wir ebenfalls bei und klicken auf die Schaltfläche Erstellen<\/b>.<\/p>\n Access macht sich dann an die Arbeit und erstellt … keine Webdatenbank, sondern eine App (s. Bild 6)! Nach einer kurzen Wartezeit bietet Access an, eine Tabelle zur App hinzuzufügen.Dies lassen wir zunächst aus und klicken links auf Kontakte<\/b>, um direkt einen Blick auf das Formular Kontakte <\/b>zu werfen, das zur Dateneingabe über den Browser dienen soll (s. Bild 7).<\/p>\n Bild 6: Formular der ersten App<\/span><\/b><\/p>\n Bild 7: Herunterladen der Vorlage und Erstellen der App<\/span><\/b><\/p>\n Hier gibt es nun bereits einiges zu sehen – zum Beispiel neue Ribbon-Einträge speziell für die App-Erstellung, eine ungewohnte Formularansicht und mehr. Bevor wir uns diesen Elementen zuwenden, wollen wir jedoch wissen, wie diese Anwendung funktioniert.<\/p>\n Dazu bietet sich ein Mausklick auf die Schaltfläche App starten <\/b>an. Es öffnet sich der Internet Explorer und ruft wiederum die Benutzerdaten ab, also die soeben über Office 365 eingerichtete E-Mail-Adresse sowie das Kennwort. Nach dieser Eingabe landen wir dann auch gleich auf dem soeben noch unter Access begutachteten Formular, nur diesmal im Internet Explorer (s. Bild 8).<\/p>\n Bild 8: Access-App im Internet Explorer<\/span><\/b><\/p>\n Hier können Sie nun bereits Kontakte eingeben, und diese durch einen Klick auf die Speichern<\/b>-Schaltfläche sichern. Die eingegebenen Kontakte werden links in einer Art Liste ausgegeben.<\/p>\n Durch einfaches Anklicken der Einträge der Liste zeigen Sie rechts die Details des jeweiligen Kontakts an. Sie können neue Kontakte erstellen, vorhandene ändern oder auch löschen. Außerdem gibt es ein Feld zum Filtern der Kontakte.<\/p>\n Von Office 365 zur App<\/b><\/p>\n Bevor wir uns ansehen, wie Sie eine App mit Access selbst erstellen, wollen wir noch erfahren, wie Sie die bereits erstellte App über den Browser finden. Dazu melden Sie sich erneut bei office365.com <\/b>oder einer anderen der zahlreichen Microsoft-Adressen an. Sollte die Frage auftauchen, ob Sie sich mit einem Microsoft-Konto oder einem Organisationskonto anmelden wollen, wählen Sie die zweite Variante. Sie landen auf einer Internetseite mit einer hübschen übersicht, die allerdings erstmal kein Wort von Apps enthält (s. Bild 9). Dahin gelangen Sie erst, wenn Sie oben rechts auf Ihren Namen klicken und aus dem Auswahlmenü den Eintrag über mich <\/b>auswählen. Dann gelangen Sie zu einer anderen Ansicht, die auf der linken Seite einen Eintrag namens Apps<\/b> enthält. Ein Klick auf diesen Eintrag zeigt alle aktuell vorhandenen Apps an – unter anderem auch die mit Access erstellte App aiuKontakte <\/b>(s. Bild 10). Mit einem Klick auf das Symbol öffnen Sie die App wieder im Browser.<\/p>\n <\/p>\n Bild 9: Die mit Access entwickelte App in der übersicht<\/span><\/b><\/p>\n Bild 10: übersicht über das Office 365-Konto<\/span><\/b><\/p>\n Dort findet sich rechts oben eine interessante Schaltfläche – mit dieser öffnen Sie ein Menü, das als einzigen Eintrag In Access anpassen anbietet<\/b> (s. Bild 11).<\/p>\n Bild 11: Option, die App in Access anzuzeigen<\/span><\/b><\/p>\n Ein Klick auf diesen Eintrag zeigt im unteren Bereich des Browser-Fensters den Dialog aus Bild 12 an. Hier erfahren wir zumindest schon einmal, dass Access-Apps mit der Dateiendung .accdw <\/b>gespeichert werden. Aber was bei dieser Gelegenheit auffällt: Die lokal erstellte Datenbank wurde überhaupt noch nicht lokal gespeichert! Sie brauchten nur einen Online-Speicherort festzulegen, der aber im entsprechenden Dialog vorbelegt wurde. Also wollen wir die Datenbank doch einmal lokal speichern.<\/p>\n Bild 12: Möglichkeit, die Anwendung lokal unter Access zu öffnen<\/span><\/b><\/p>\n Die .accdw<\/b>-Datei landet dann schließlich im Download-Ordner, sofern Sie kein anderes Verzeichnis angeben. Vor dem öffnen der Datenbank zeigt Access die Meldung aus Bild 13 an. Nach dem Bestätigen wird die Datenbank nach einer kleinen Verzögerung geöffnet.<\/p>\n Bild 13: Hinweis beim öffnen einer Access-App<\/span><\/b><\/p>\n Berechtigungen<\/b><\/p>\n Angenommen, wir hätten eine App programmiert, mit der mehrere Benutzer arbeiten sollen. Wie gelingt dies Dazu müssen Sie zunächst entsprechende Benutzer und Benutzergruppen anlegen.<\/p>\n Dies erledigen Sie über die Startseite Ihrer Office 365-Präsenz, und zwar über den Eintrag Organisation verwalten|Benutzer und Gruppen<\/b>, der nach einem Klick auf Administrator <\/b>erscheint.<\/p>\n Hier finden Sie eine Plus-Schaltfläche, mit der Sie einen neuen Benutzer anlegen können – und zwar mit dem Dialog aus Bild 14.<\/p>\n Bild 14: Anlegen eines neuen Benutzers<\/span><\/b><\/p>\n Auf den folgenden Seiten legen Sie noch fest, ob der Benutzer Administratorrechte erhalten soll, an welchem Ort er sich befindet und welche Lizenz diesem Benutzer zugewiesen werden soll. Das gestestete Office 365 Small Business Premium<\/b>-Paket enthält zehn Lizenzen, sodass Sie damit zehn Benutzern Zugriff auf Ihre Daten bieten können.<\/p>\n Schließlich können Sie die Zugangsdaten und weitere Informationen per E-Mail an sich selbst und den neuen Benutzer versenden. Anscheinend können Sie auf diese Weise zwar anderen Benutzern den Zugriff auf die Datenbank erlauben, aber eine differenzierte Bearbeitung der Zugriffsrechte ist hier nicht zu erkennen.<\/p>\n Berichte<\/b><\/p>\n Wenn Sie sich die Ribbon-Befehle einer Webdatenbank ansehen, finden Sie dort kaum eines der klassischen Elemente – und, wenn Sie genauer hinsehen, auch keine Möglichkeit, Berichte zu erstellen (s. Bild 15).<\/p>\n Bild 15: Mögliche Aktionen beim Programmieren der Datenbank<\/span><\/b><\/p>\n Wenn Sie Berichte über die in der App enthaltenen Daten erstellen möchten, ist dies nur über einen Umweg möglich: Sie verwenden dazu die lokale Installation von Access 2013 und erstellen die Berichte mit den gewohnte Werkzeugen. Allerdings greifen Sie dann direkt auf die Tabellen auf dem SQL Server zu, auf die auch die App zugreift. Um diesen Schritt durchzuführen, aktivieren Sie bei geöffneter Webdatenbank den Backstage-Bereich und klicken dann auf die Schaltfläche Berichte erstellen <\/b>(s. Bild 16). Es erscheint ein Datei speichern<\/b>-Dialog, mit dem Sie den Dateinamen für die lokal zu speichernde Datei angeben können.<\/p>\n Bild 16: Schaltfläche zum Erstellen von Berichten<\/span><\/b><\/p>\n Auf dem neu eingerichteten System mit Windows 7 und Office 2013 wird man dann jedoch erstmal ausgebremst: Es fehlen offensichtlich die SQL Server 2012 Native Client<\/b>-Treiber (s. Bild 17). Der Dialog bietet die Möglichkeit, eine Download-Seite mit der fehlenden Komponente anzuzeigen.Diese öffnen Sie und laden die Komponente herunter (der Dateiname lautet sqlncli.msi <\/b>– achten Sie auf die richtige Version, also 32-bit oder 64-bit).<\/p>\n Bild 17: Für den Zugriff fehlt anscheinend noch eine Komponente.<\/span><\/b><\/p>\n Führen Sie die Installationsdatei aus, um den Treiber zu installieren. Klicken Sie dann erneut auf die Schaltfläche Berichte erstellen<\/b>, lädt Access die Datenbank herunter und speichert diese als .accdb<\/b>-Datenbank im angegebenen Verzeichnis.<\/p>\n Die Datenbank wird gleich im Anschluss geöffnet und zeigt die verknüpften Tabellen im Navigationsbereich an. Mit einem Doppelklick öffnen Sie die bisher einzige vorhandene Tabelle Kontakte<\/b>. Die enthaltenen Daten können Sie nicht nur als Grundlage für einen Bericht verwenden, Sie können auch auf die Daten zugreifen und somit scheinbar ganz normal damit arbeiten (s. Bild 18).<\/p>\n Bild 18: Lokale Datenbank mit Verknüpfungen auf die Tabellen des SQL Servers<\/span><\/b><\/p>\n Beim Versuch, die Daten zu bearbeiten, ist diese Vorstellung jedoch schnell beendet: Die Daten sind schreibgeschützt und können somit nur angeschaut, nicht aber editiert werden.<\/p>\n Ein Blick in die Tabelle MSysObjects <\/b>zeigt, dass für die ODBC-Verknüpfung auch keine der bisher angelegten Benutzerdaten verwendet wurden:<\/p>\n Aber ist das wirklich schon das Ende vom Lied Es wäre doch wirklich toll, wenn wir zusätzlich zu den eingeschränkten Apps noch jeweils eine Desktop-Datenbank erstellen könnten – die nicht nur das Reporting, sondern auch das Bearbeiten der Daten erlaubt. Und das gelingt tatsächlich: Wenn Sie im Backstage-Bereich der heruntergeladenen Webdatenbank auf die Schaltfläche Verwalten<\/b> klicken, erscheinen einige Optionen, mit denen Sie die Berechtigungen anpassen können (s. Bild 19).<\/p>\n Bild 19: Aktivieren des schreibenden Zugriffs auf die Datenbank<\/span><\/b><\/p>\n Klicken Sie hier zuerst auf den Eintrag Von jedem Standort <\/b>und warten Sie, bis die änderungen gespeichert wurden. Anschließend klicken Sie noch auf Lese-\/Schreibverbindung aktivieren<\/b>. Die aktivierten Optionen werden durch einen entsprechenden Hintergrund markiert. Wenn Sie nun versuchen, in der .accdb<\/b>-Datenbank mit der verknüpften Tabelle schreibend auf die Daten zuzugreifen, gelingt dies allerdings immer noch nicht – Sie müssen anscheinend eine neue Verknüpfung erstellen, da die in der Reporting-Datenbank gespeicherte Verknüpfung nur für den lesenden Zugriff auf die Tabellen taugt. Dazu müssen Sie allerdings zuerst die Verbin-dungs-eigenschaften in Erfahrung bringen, die nach einem Klick auf die Option Ver–wal-ten|In-for-mationen zu Lese-\/Schreibverbindun-gen an-zeigen <\/b>per Dialog angezeigt werden (s. Bild 20).<\/p>\n Bild 20: Verbindungseigenschaften<\/span><\/b><\/p>\n Tabellen verknüpfen<\/b><\/p>\n Diese Informationen reichen, um eine Verknüpfung etwa per VBA herzustellen – dabei wollen wir nicht extra eine DSN anlegen und stellen die Verbindungszeichenfolge per VBA-Code zusammen.<\/p>\n Den Beginn macht eine Prozedur, welche eine weitere Prozedur für jede Tabelle einmal aufruft – dabei können Sie dann auch verschiedene Datenbanken ansprechen und entsprechende Verbindungszeichenfolgen übergeben. Wir begnügen uns bei der Prozedur aus Listing 1 zunächst mit einer einzigen Tabelle und einer Zeichenfolge.<\/p>\n Listing 1: Aufruf der Prozedur zum Verknüpfen einer Tabelle<\/span><\/b><\/p>\n Die Prozedur deklariert vier Variablen für die Informationen, die wir aus dem Dialog mit den Verbindungseigenschaften gewonnen haben. Diese tragen Sie als Werte der Variaben ein. In der Praxis werden Sie diese Daten gegebenenfalls in einer Tabelle speichern und diese von der Prozedur aus einlesen.<\/p>\n Hier allerdings stellen Sie die Parameter zu einer Verbindungszeichenfolge zusammen, die den ersten Parameter beim Aufruf der Prozedur TabelleVerknuepfen <\/b>darstellt. Als zweiten Parameter übergeben Sie den Namen der zu verknüpfenden Tabelle, in diesem Beispiel Kontakte<\/b>. <\/p>\n Die Prozedur TabelleVerknuepfen<\/b> schließlich finden Sie in Listing 2. Diese löscht zunächst eine eventuell vorhandene Tabelle gleichen Namens. Dann erstellt die CreateTable<\/b>-Methode, die als ersten Parameter den Namen der zu erstellenden Tabelle und als dritten Parameter den Originalnamen der Tabelle erwartet, eine Verknüpfung in der aktuell geöffneten Datenbank.<\/p>\n Listing 2: Prozedur zum Verknüpfen mit einer Tabelle<\/span><\/b><\/p>\n Die Connect<\/b>-Eigenschaft bestücken Sie mit der Verbindungszeichenfolge und die Append<\/b>-Methode fügt die neu erzeugte Tabellenverknüpfung an die Auflistung der vorhandenen Tabellen an.<\/p>\n Schließlich aktualisiert die Refresh-DatabaseWindow<\/b>-Methode das Datenbankfenster beziehungsweise den Navigationsbereich.<\/p>\n Das Ergebnis sehen Sie in Bild 21. Erfreulicherweise gelingt das Einrichten der Verknüpfung nicht nur mit Access 2013, sondern auch mit älteren Varianten – im Beispiel etwa mit einer .mdb<\/b>-Datei und Access 2010. Sie benötigen nur einen aktuellen Treiber für den Zugriff auf den SQL Server – siehe oben.<\/p>\n Bild 21: Eine per ODBC verknüpfte Tabelle<\/span><\/b><\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Mit Office 365 erhalten Sie für einige Euro im Monat ein komplettes Office 2013-Paket, eine Reihe Online-Features wie eine Webseite, eine Teamseite und eine Verwaltung für Kontakte, Termine et cetera und außerdem die Möglichkeit, Access-Webdatenbanken in Form einer App online zu stellen.<\/p>\n So können Sie online auf die dazu vorgesehenen Daten zugreifen. Noch interessanter wird dies, weil die Daten nunmehr in einer SQL Server-Datenbank gespeichert werden und Sie von einer herkömmlichen Desktop-Datenbank per Verknüpfung auf die Tabellen der Datenbank zugreifen können.<\/p>\n In weiteren Beiträge schauen wir uns die Erstellung von Webdatenbanken im Detail an.<\/p>\n","protected":false},"excerpt":{"rendered":" Facebook hat zum Zeitpunkt der Erstellung dieses Beitrags bereits mehr als 25 Millionen aktive Nutzer allein in Deutschland. Gute Chancen also, dass Sie unter den Nutzern sind – und Zeit, sich einmal mit der Programmierschnittstelle von Facebook zu beschäftigen. Was viele nämlich nicht wissen: Es gibt durchaus Alternativen zum Browser für den Zugriff auf Facebook. Was auch hier und da nötig ist – nicht überall bietet die Benutzeroberfläche die Möglichkeiten, die sich die Benutzer erhoffen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662013,66042013,44000026],"tags":[],"class_list":["post-55000896","post","type-post","status-publish","format-standard","hentry","category-662013","category-66042013","category-Interaktiv"],"yoast_head":"\n![\"Startbildschirm](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_002.png\")
<\/p>\n![\"Anmeldung](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_004.png\")
<\/p>\n![\"Anmelden](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_003.png\")
<\/p>\n![\"Erstellen](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_005.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_007.png\")
<\/p>\n![\"Herunterladen](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_006.png\")
<\/p>\n![\"Access-App](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_008.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_010.png\")
<\/p>\n![\"übersicht](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_009.png\")
<\/p>\n![\"Option,](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_011.png\")
<\/p>\n![\"Möglichkeit,](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_012.png\")
<\/p>\n![\"Hinweis](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_013.png\")
<\/p>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_014.png\")
<\/p>\n![\"Mögliche](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_016.png\")
<\/p>\n![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_017.png\")
<\/p>\n![\"Für](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_015.png\")
<\/p>\n![\"Lokale](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_018.png\")
<\/p>\nDescription=AutoGenerated;\r\nDRIVER=SQL Server Native Client 11.0;\r\nSERVER=d44ilaua8v.database.windows.net;\r\nUID=db_76251c6c_50b6_467e_bd4e_978316b3634b_ExternalReader@d44ilaua8v; \r\nPWD=zryrX_4767KA3KK;\r\nAPP=Microsoft Office 15;\r\nDATABASE=db_76251c6c_50b6_467e_bd4e_978316b3634b;<\/pre>\n
![\"Aktivieren](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_019.png\")
<\/p>\n![\"Verbindungseigenschaften\"](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_020.png\")
<\/p>\nPublic Sub <\/span>TabelleVerknuepfenTest()\r\n Dim <\/span>strServer As String<\/span>\r\n Dim <\/span>strDatabase As String<\/span>\r\n Dim <\/span>strUser As String<\/span>\r\n Dim <\/span>strPassword As String<\/span>\r\n Dim <\/span>strVerbindungszeichenfolge As String<\/span>\r\n strServer = \"d44ilaua8v.database.windows.net\"\r\n strDatabase = \"db_76251c6c_50b6_467e_bd4e_978316b3634b\"\r\n strUser = \"db_76251c6c_50b6_467e_bd4e_978316b3634b_ExternalWriter\"\r\n strPassword = \".MAuJLCuvFhWs3O\"\r\n strVerbindungszeichenfolge = \"ODBC;DRIVER={SQL Server Native Client 11.0};SERVER=\" & strServer _\r\n & \";DATABASE=\" & strDatabase & \";UID=\" & strUser & \";PWD=\" & strPassword\r\n TabelleVerknuepfen strVerbindungszeichenfolge, \"Kontakte\"\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>TabelleVerknuepfen(strVerbindungszeichenfolge As String<\/span>, strTabelle As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Set<\/span> db = CurrentDb\r\n On Error Resume Next<\/span>\r\n db.TableDefs.Delete strTabelle\r\n On Error GoTo<\/span> 0\r\n Set<\/span> tdf = db.CreateTableDef(strTabelle, 0, strTabelle)\r\n tdf.Connect = strVerbindungszeichenfolge\r\n db.TableDefs.Append tdf\r\n Application.RefreshDatabaseWindow\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Eine](\"..\/fileadmin\/_temp_\/2013_04\/pic_896_021.png\")
<\/p>\n