{"id":55000574,"date":"2008-04-01T00:00:00","date_gmt":"2021-02-11T21:19:52","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=574"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datenzugriff_per_VBA_vereinfachen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/","title":{"rendered":"Datenzugriff per VBA vereinfachen"},"content":{"rendered":"

\"\"<\/p>\n

Der Datenzugriff etwa per Datensatzgruppe erfordert immer wieder die gleichen Handgriffe: Database-Objekt deklarieren und instanzieren, Recordset-Objekt deklarieren und instanzieren und dann ran an die Daten. Gleiches gilt für das Absetzen von SQL-Anweisungen mit der Execute-Methode oder für das Ausführen von Parameterabfragen. Wir zeigen, wie Sie sich dies merklich vereinfachen können und noch dazu Code einsparen.<\/b><\/p>\n

CurrentDB ersetzen<\/b><\/p>\n

Wenn Sie einmal eine typische Datenbank durchsuchen, werden Sie vermutlich zahllose Aufrufe der CurrentDB<\/b>-Funktion und noch mehr Einsätze der OpenRecordset<\/b>-Methode des Database<\/b>-Objekts finden. Dies ist – wenn auch meist nicht dramatisch – eine Performance-Bremse. Ein Database<\/b>-Objekt mit einem Verweis auf die aktuelle Datenbank erzeugt man am besten nur einmal, und dann erst wieder, wenn der Verweis aus irgendeinem Grund verloren geht.<\/p>\n

Die folgenden beiden Zeilen zur Deklaration der Variablen und zum Zuweisen des Database<\/b>-Objekts sparen Sie künftig ein:<\/p>\n

Dim db As DAO.Database\r\nSet db = CurrentDb<\/pre>\n
Stattdessen verwenden Sie erstens eine öffentliche Variable, die den Verweis auf die aktuelle Datenbank nach seiner Erzeugung speichert:<\/p>\n
Public m_dbs As DAO.Database<\/pre>\n
Zweitens benötigen Sie eine Funktion, die den Wert dieser Variablen ausliest und zurückgibt und die Variable gegebenenfalls erst noch füllt:<\/p>\n
Function dbs() As DAO.Database\r\n    If m_dbs Is Nothing Then\r\n        Set m_dbs = CurrentDB\r\n    End If\r\n    Set dbs = m_dbs\r\nEnd Function<\/pre>\n
Diese beiden Elemente bringen Sie in einem Standardmodul namens mdlEasyDataAccess <\/b>unter. Und drittens setzen Sie diese Funktion nun überall ein, wo Sie sonst auf die Variable verwiesen hätten, die einen Verweis auf das Database<\/b>-Objekt enthält – üblicherweise db <\/b>genannt. Dies sieht dann für das öffnen einer Datensatzgruppe so aus:<\/p>\n
Dim rst As DAO.Recordset\r\nSet rst = dbs.OpenRecordset("tblArtikel", dbOpenDynaset)<\/pre>\n
Eine Deklaration und Zuweisung einer Database<\/b>-Variablen – wie oben db <\/b>– ist nun nicht mehr erforderlich, Sie benötigen nur noch die im oben beschriebenen Standardmodul mdlEasyDataAccess <\/b>erläuterten Elemente.<\/p>\n
OpenRecordset ersetzen<\/b><\/p>\n
Als Nächstes räumen wir mit der altehrwürdigen OpenRecordset<\/b>-Methode auf. Auch wenn das eingefleischten Accesslern längst nicht mehr auffällt, nämlich dass dort IntelliSense nicht richtig funktioniert. Dies wirkt sich so wie in Bild 1 aus: IntelliSense zeigt zwar die Parameterliste, aber nicht die verfügbaren Werte für die einzelnen Parameter an. Nun verwendet man in den meisten Fällen die Konstante dbOpenDynaset <\/b>und die übrigen Parameter fallen gänzlich weg, doch hin und wieder wäre eine Erinnerung an die übrigen Konstanten doch nett. Dies erreichen Sie, indem Sie die folgende Funktion zum Modul mdlEasyDataAccess <\/b>hinzufügen:<\/p>\n
\"pic001.tif\"<\/p>\n
Bild 1: Die OpenRecordset-Methode mit unvollständigem IntelliSense<\/span><\/b><\/p>\n
Function OpenRS(sSQL As String, OpenType _\r\n    As eDAOOpenType) As DAO.Recordset\r\n    Set OpenRS = dbs.OpenRecordset(sSQL, _\r\n    OpenType)\r\nEnd Function<\/pre>\n
Sie lässt die beiden letzten Parameter außer acht, weil diese in der Praxis seltener eingesetzt werden, verwendet aber als Datentyp für den zweiten Parameter namens Type<\/b> diese benutzerdefinierte Enumeration:<\/p>\n
Enum eDAOOpenType\r\neOpenDynaset = DAO.dbOpenDynaset\r\neOpenSnapshot = DAO.dbOpenSnapshot\r\neOpenTable = DAO.dbOpenTable\r\nEnd Enum<\/pre>\n
Weisen Sie dem Recordset-Objekt rst <\/b>seinen Inhalt nun nicht mehr mit der OpenRecordset<\/b>-Methode des Database<\/b>-Objekts zu, sondern mit der Funktion OpenRS<\/b>, dann sieht dies im VBA-Editor wie in Bild 2 aus: Die Konstanten für die Option Type <\/b>werden hier wie gewünscht angezeigt. Sie brauchen hier also gar keinen Verweis mehr auf das aktuelle Database<\/b>-Objekt – die Funktion OpenRS <\/b>bezieht dieses selbstständig über die Funktion dbs<\/b>.<\/p>\n
\"pic002.tif\"<\/p>\n
Bild 2: Die OpenRS-Funktion arbeitet wie OpenRecordset, liefert aber die Konstanten für den Type-Parameter per IntelliSense.<\/span><\/b><\/p>\n
<\/p>\n
Einfache Aktionsabfragen<\/b><\/p>\n
Auch Aktionsabfragen können Sie mit einer simplen Funktion vereinfachen:<\/p>\n
Function DBExecute(strSQL As String, _\r\n    Optional Options As _\r\n    RecordsetOptionEnum = dbFailOnError)\r\n    dbs.Execute strSQL, Options\r\nEnd Function<\/pre>\n
Sie verwendet ebenfalls die Funktion dbs<\/b>, um einen Verweis auf die aktuelle Datenbank zu erhalten, und führt ihre Execute<\/b>-Methode aus.<\/p>\n
üblicherweise ruft man Aktionsabfragen wie folgt auf:<\/p>\n
Dim db As DAO.Database\r\nSet db = CurrentDb\r\ndb.Execute "DELETE FROM tblArtikel " _\r\n"WHERE ArtikelID = 1"<\/pre>\n
Der Einsatz von DBExecute <\/b>vereinfacht dies merklich:<\/p>\n
DBExecute "DELETE FROM tblArtikel " _\r\n"WHERE ArtikelID = 1"<\/pre>\n
Auch diese Funktion unterstützt IntelliSense besser als ihr Vorbild (siehe Bild 3). Dazu ist in diesem Falle lediglich die Deklaration des Parameters als RecordsetOptionEnum <\/b>nötig, der optional ist und standardmäßig mit dbFailOnError <\/b>belegt wird. Dieser Optionswert sorgt dafür, dass beim Auftreten eines Fehlers beim Ausführen der Aktionsabfrage automatisch ein Fehler ausgelöst wird – anderenfalls wird dies unterdrückt.<\/p>\n
\"pic003.tif\"<\/p>\n
Bild 3: Die vereinfachte Variante der Execute-Methode zeigt auch die Konstanten für den einzigen Parameter an.<\/span><\/b><\/p>\n
ID des neuesten Datensatzes<\/b><\/p>\n
Wer mit einer INSERT INTO<\/b>-Abfrage einen neuen Datensatz anlegt, braucht möglicherweise dessen Primärschlüsselwert. Ein typisches Beispiel: Sie importieren Daten aus einer Excel-Tabelle, die Kunden und Bestellungen in einer Zeile enthält. Sie tragen die Bestellinformationen in die Tabelle tblBestellungen <\/b>ein und die Kundeninformationen in tblKunden<\/b>. Dabei legen Sie natürlich zunächst den Kunden an, denn die Tabelle mit den Bestellungen enthält natürlich ein Fremdschlüsselfeld, um der Bestellung einen Kunden aus der Tabelle tblKunden <\/b>zuzuweisen.<\/p>\n
Sie können nun DAO oder ADO verwenden, um den Kunden anzulegen – dann würden Sie einen neuen Datensatz mit AddNew <\/b>anlegen, die einzelnen Feldwerte hinzufügen und den Datensatz mit der Update<\/b>-Methode speichern. Dabei ist es kein Problem, die ID, also den Wert des Primärschlüssels, abzufragen, der normalerweise als Autowert vorliegt und automatisch erzeugt wird. Diese ID verwenden Sie dann als Fremdschlüsselwert beim Anlegen der Bestelldaten.<\/p>\n
Wenn Sie jedoch eine INSERT INTO<\/b>-Anweisung verwenden – beispielsweise mit der oben vorgestellten DBExecute<\/b>-Funktion – kommen Sie nicht so leicht an die ID des neu hinzugefügten Datensatzes.<\/p>\n
Oder etwa doch Ja, das funktioniert: Sie verwenden dazu eine Abfrage, die ohne Angabe einer Herkunftstabelle den Ausdruck @@IDENTITY <\/b>abfragt. Dieser liefert den zuletzt innerhalb der Session hinzugefügten Autowert. Das könnte so aussehen:<\/p>\n
Dim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nSet db = CurrentDb\r\ndb.Execute "INSERT INTO tblKategorien(Kategoriename) VALUES('Beispielkategorie')", dbFailOnError\r\nSet rst = db.OpenRecordset("SELECT @@IDENTITY")\r\nDebug.Print rst.Fields(0).Value<\/pre>\n
Damit Sie diesen Code nicht an mehreren Stellen der Anwendung unterbringen müssen, verwenden Sie die folgende Funktion, die auf den zuvor vorgestellten Funktionen basiert:<\/p>\n
Function LastAddedID()\r\n    LastAddedID = OpenRS("SELECT @@IDENTITY", eOpenSnapshot)(0)\r\nEnd Function<\/pre>\n
Der Aufruf ist denkbar einfach:<\/p>\n
Debug.Print LastAddedID<\/pre>\n
Parameterabfragen vereinfachen<\/b><\/p>\n
Parameterabfragen umgehen viele Entwickler, indem sie einfach die notwendigen SQL-Anweisungen per VBA als String zusammensetzen und diese dann als Argumente etwa für die OpenRecordset<\/b>-Methode verwenden. Das ist zwar scheinbar einfach, unter anderem, weil man so die Logik innerhalb der VBA-Routine zusammenhält, aber man verzichtet somit auf eine sehr praktische und auch noch performantere Variante. Parameterabfragen lassen sich nämlich auch per VBA sehr einfach füllen. Wenn Sie eine einfache Parameterabfrage wie die aus Bild 4 verwenden, geht das zum Beispiel so:<\/p>\n
\"pic004.tif\"<\/p>\n
Bild 4: Beispiel einer Parameterabfrage<\/span><\/b><\/p>\n
Dim db As DAO.Database\r\nDim qdf As DAO.QueryDef\r\nDim rst As DAO.Recordset\r\nDim prm As DAO.Parameter\r\nSet db = CurrentDb\r\nSet qdf = db.QueryDefs("qryArtikelNachName")\r\nSet prm = qdf.Parameters("Suchbegriff")\r\nprm.Value = "ch"\r\nSet rst = qdf.OpenRecordset\r\nDo While Not rst.EOF\r\n    Debug.Print rst!Artikelname\r\n    rst.MoveNext\r\nLoop<\/pre>\n
Dies erzeugt ein QueryDef<\/b>-Objekt, legt dessen Parameter mit dem Wert ch <\/b>fest, öffnet eine Datensatzgruppe auf Basis der Abfrage mit dem angegebenen Suchbegriff und gibt alle enthaltenen Elemente aus. Dies geht viel einfacher mit der Funktion OpenParameterQuery <\/b>aus Listing 1. Mit dieser Funktion können Sie den obigen Code vereinfachen:<\/p>\n
Listing 1: Die Funktion OpenParameterQuery vereinfacht die Verwendung von Parameterabfragen.<\/p>\n
Function OpenParameterQuery(strQueryDef As String, _\r\n    OpenType As eDAOOpenType, _\r\n    ParamArray arrParameter()) As DAO.Recordset\r\n    Dim qdf As DAO.QueryDef\r\n    Dim rst As DAO.Recordset\r\n    Dim strName As String\r\n    Dim strValue As String\r\n    Dim i As Integer\r\n    Set qdf = dbs.QueryDefs(strQueryDef)\r\n    For i = LBound(arrParameter) To UBound(arrParameter)\r\n        strName = Split(arrParameter(i), ":=")(0)\r\n        strValue = Split(arrParameter(i), ":=")(1)\r\n        qdf.Parameters(strName).Value = strValue\r\n    Next i\r\n    Set rst = qdf.OpenRecordset(OpenType)\r\n    Set OpenParameterQuery = rst\r\n    Exit Function\r\nEnd Function\r\nDim rst As DAO.Recordset\r\nSet rst = OpenParameterQuery _\r\n("qryArtikelNachName", dbOpenDynaset, _\r\n"Suchbegriff:=ch")\r\nDo While Not rst.EOF\r\n    Debug.Print rst!Artikelname\r\n    rst.MoveNext\r\nLoop<\/pre>\n
Der Aufruf besteht in der Angabe der Bezeichnung der Abfrage mit den Parametern, der Konstanten für die Art des öffnens sowie einem Parameter-Array mit den Name-Wert-Paaren. Die Funktion liefert ein Recordset auf Basis der zugrunde liegenden Abfrage zurück, das wie jedes andere Recordset durchlaufen werden kann. Wenn eine Parameterabfrage mehrere Parameter hätte, würde der Aufruf so aussehen (in einer Zeile):<\/p>\n
OpenParameterQuery\r\n("Abfragename",\r\ndbOpenDynaset,\r\n"Parameter1:=Wert1",\r\n"Parameter2:=Wert2", ...)<\/pre>\n
Der Vorteil dieser Funktion ist erstens, dass Sie damit eine ganze Menge Codezeilen sparen können.<\/p>\n
Der zweite ist – gerade wenn Sie sonst nicht so oft mit Parameterabfragen arbeiten -, dass Sie sich nicht mit dem QueryDef<\/b>– und dem Parameter<\/b>-Objekt beschäftigen müssen, sondern einfach nur die von der Funktion erwarteten Funktionsparameter einzugeben brauchen.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
DAOVereinfachen.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Der Datenzugriff etwa per Datensatzgruppe erfordert immer wieder die gleichen Handgriffe: Database-Objekt deklarieren und instanzieren, Recordset-Objekt deklarieren und instanzieren und dann ran an die Daten. Gleiches gilt für das Absetzen von SQL-Anweisungen mit der Execute-Methode oder für das Ausführen von Parameterabfragen. Wir zeigen, wie Sie sich dies merklich vereinfachen können und noch dazu Code einsparen.<\/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":[66022008,662008,44000034,44000025],"tags":[],"class_list":["post-55000574","post","type-post","status-publish","format-standard","hentry","category-66022008","category-662008","category-ImportExport","category-VBA_und_Programmiertechniken"],"yoast_head":"\nDatenzugriff per VBA vereinfachen - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Datenzugriff per VBA vereinfachen\" \/>\n<meta property=\"og:description\" content=\"Der Datenzugriff etwa per Datensatzgruppe erfordert immer wieder die gleichen Handgriffe: Database-Objekt deklarieren und instanzieren, Recordset-Objekt deklarieren und instanzieren und dann ran an die Daten. Gleiches gilt für das Absetzen von SQL-Anweisungen mit der Execute-Methode oder für das Ausführen von Parameterabfragen. Wir zeigen, wie Sie sich dies merklich vereinfachen können und noch dazu Code einsparen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-11T21:19:52+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"8\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Datenzugriff per VBA vereinfachen\",\"datePublished\":\"2021-02-11T21:19:52+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/\"},\"wordCount\":1231,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/41548b3c45704bbbbb1968a94d2b817e\",\"articleSection\":[\"2\\\/2008\",\"2008\",\"Import\\\/Export\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/\",\"name\":\"Datenzugriff per VBA vereinfachen - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/41548b3c45704bbbbb1968a94d2b817e\",\"datePublished\":\"2021-02-11T21:19:52+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/41548b3c45704bbbbb1968a94d2b817e\",\"contentUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/41548b3c45704bbbbb1968a94d2b817e\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datenzugriff_per_VBA_vereinfachen\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Datenzugriff per VBA vereinfachen\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Datenzugriff per VBA vereinfachen - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/","og_locale":"de_DE","og_type":"article","og_title":"Datenzugriff per VBA vereinfachen","og_description":"Der Datenzugriff etwa per Datensatzgruppe erfordert immer wieder die gleichen Handgriffe: Database-Objekt deklarieren und instanzieren, Recordset-Objekt deklarieren und instanzieren und dann ran an die Daten. Gleiches gilt für das Absetzen von SQL-Anweisungen mit der Execute-Methode oder für das Ausführen von Parameterabfragen. Wir zeigen, wie Sie sich dies merklich vereinfachen können und noch dazu Code einsparen.","og_url":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-11T21:19:52+00:00","og_image":[{"url":"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"8\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Datenzugriff per VBA vereinfachen","datePublished":"2021-02-11T21:19:52+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/"},"wordCount":1231,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e","articleSection":["2\/2008","2008","Import\/Export","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/","url":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/","name":"Datenzugriff per VBA vereinfachen - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e","datePublished":"2021-02-11T21:19:52+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#primaryimage","url":"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e","contentUrl":"http:\/\/vg08.met.vgwort.de\/na\/41548b3c45704bbbbb1968a94d2b817e"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Datenzugriff_per_VBA_vereinfachen\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Datenzugriff per VBA vereinfachen"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000574","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000574"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000574\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000574"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000574"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000574"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}