<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Im Beitrag Datenbankzugriff mit ADO haben Sie bereits einiges über das neue Objektmodell von Access 2000 erfahren. Es ist der Nachfolger des Objektmodells DAO und integriert zusätzlich die Fähigkeiten von RDO. Doch damit nicht genug: Es bietet außerdem die Möglichkeit, Daten in einem zusätzlichen Steuerelement namens Microsoft Datagrid Control anzuzeigen, ungebundene Datensatzgruppen zu erzeugen und mit Datenklassenmodulen zu arbeiten. Im vorliegenden Beitrag erfahren Sie im Einzelnen, was es mit den genannten Features auf sich hat.<\/b><\/p>\n
Das Microsoft Datagrid Control dient zur Anzeige von Daten in tabellenähnlichem Format. Wenn Sie bereits einmal eine Auflistung von Daten in einem Formular anzeigen wollten, haben Sie wahrscheinlich eine Vorstellung von den unterschiedlichen Möglichkeiten.<\/p>\n
Die Beispiele im vorliegenden Beitrag beziehen sich auf die unterschiedlichen Tabellen der Nordwind-Datenbank. Dabei erstellen die meisten Prozeduren eine Verbindung zu der Datenbank. Damit Sie mit Ihrer Beispieldatenbank problemlos die vorgegebenen Prozeduren verwenden können, erstellen Sie bitte in dem gleichen Verzeichnis, in dem sich auch Ihre Beispieldatenbank befindet, eine Kopie der Nordwind-Datenbank. <\/p>\n
Datenlisten mit einem Endlosformular anzeigen<\/b><\/p>\n
Sie können einerseits die Daten mit Hilfe entsprechender Steuerelemente im Detailbereich des Formulars anordnen. Wenn Sie außerdem die Eigenschaft Standardansicht auf den Wert Endlosformular einstellen, erhalten Sie den gewünschten Effekt (siehe Bild 1). Der Nachteil liegt darin, dass Sie weitere Steuerelemente nur ober- oder unterhalb von der Datensatzliste im Kopf- oder Fußbereich anlegen können.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Datensatzliste im Detailbereich<\/span><\/b><\/p>\n Datenlisten in der Datenblattansicht anzeigen<\/b><\/p>\n Das funktioniert auch, in dem Sie einfach die gewünschten Felder aus der Feldliste in den Detailbereich des Formulars ziehen und die Eigenschaft Standardansicht auf den Wert Datenblattansicht einstellen (siehe Bild 2). Auch hier gibt es einen Nachteil: Sie können im Formular gar keine weiteren Steuerelemente mehr anlegen, da es diese nicht anzeigt. Die Alternative ist, das Formular als Unterformular in einem anderen Formular anzulegen und dort die gewünschten Steuerelemente zu platzieren.<\/p>\n <\/b><\/p>\n Bild 2: Datensätze in der Datenblattansicht<\/span><\/b><\/p>\n Daten per Listenfeld anzeigen<\/b><\/p>\n Die dritte Möglichkeit ist der Einsatz des Listenfeldes. Mit einem Listenfeld lassen sich zwar Daten anzeigen und auch einzelne Datensätze auswählen, aber es ist kein Hinzufügen, Löschen oder Bearbeiten der Daten möglich.<\/p>\n Daten mit dem Microsoft DataGrid-Steuerelement anzeigen<\/b><\/p>\n Eine neue Möglichkeit ist die Anzeige von Datenlisten in einem separaten Steuerelement – dem Microsoft DataGrid-Steuerelement.<\/p>\n Das Microsoft DataGrid-Steuerelement ist Bestandteil von Office 2000 Developer sowie von einigen Visual Basic-Paketen. Sie können es problemlos einsetzen, wenn Sie eines der Pakete installiert haben. <\/p>\n Um die Funktionsweise des DataGrid-Steuerelements zu testen, erstellen Sie zunächst ein neues Formular. Gehen Sie dann folgendermaßen vor:<\/p>\n <\/p>\n <\/b><\/p>\n Bild 3: Dialog zur Auswahl eines ActiveX-Steuerelements<\/span><\/b><\/p>\n Bevor Sie weitere Schritte unternehmen, sollten Sie dem Steuerelement zunächst einen sinnvollen Namen zuweisen, z.B. ocxDataGrid.<\/p>\n Speichern Sie außerdem das Formular unter dem Namen frmArtikelDataGrid.<\/p>\n Nun sollen Sie das neue Steuerelement mit Daten füllen. Im Beispiel soll das DataGrid alle Artikel der Tabelle Artikel anzeigen.<\/p>\n üblicherweise verfügen Steuerelemente über eine oder mehrere Eigenschaften, mit denen man die anzuzeigenden Daten festlegen kann. Wenn Sie die Eigenschaften des DataGrid-Steuerelements anzeigen und in das Register Daten wechseln, finden Sie keine derartige Eigenschaft (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Daten-Eigenschaften des DataGrid-Steuerelements<\/span><\/b><\/p>\n Statt dessen benötigen Sie eine Prozedur zum Zuweisen der gewünschten Daten. Das Formular soll die Prozedur beim Laden aufrufen. Sie müssen die Prozedur also für die Ereigniseigenschaft Beim Laden des Formulars hinterlegen.<\/p>\n Damit später keine Probleme auftreten, sollten Sie beim Entladen des Formulars – also z.B. wenn Sie es schließen oder in die Entwurfsansicht wechseln – die gesetzten Objektvariablen wieder löschen. Legen Sie daher für die Ereigniseigenschaft Beim Entladen die folgende Prozedur an:<\/p>\n Schließlich fehlt noch die Deklaration der beiden Objektvariablen für die Verbindung und für die Datensatzgruppe. Deklarieren Sie die beiden Variablen am Besten im Kopf des Formularmoduls:<\/p>\n Wenn Sie das Formular nun in der Formularansicht anzeigen, haben Sie bereits ein ordentliches Ergebnis (siehe Bild 5).<\/p>\n <\/b><\/p>\n Bild 5: Ein mit Daten gefülltes DataGrid<\/span><\/b><\/p>\n Leider können Sie in dieser Form nicht auf die entsprechenden Einträge der Tabellen Lieferanten und Kategorien zugreifen. Dadurch zeigt das DataGrid-Steuerelement nur die Datensatznummern der entsprechenden Tabellen an.<\/p>\n Wenn Sie statt der Datensatznummern die Bezeichnungen der Kategorie und des Lieferanten anzeigen möchten, müssen Sie eine geeignete Abfrage erstellen. Die Abfrage soll die Tabellen Artikel, Kategorien und Lieferanten enthalten. Sie haben zwei Möglichkeiten, die gewünschte Abfrage zu verwenden. Entweder Sie erstellen einen geeigneten SQL-String und setzen ihn direkt in die Open-Anweisung ein oder Sie erstellen die Abfrage in der Nordwind-Datenbank selbst und verweisen von der Open-Anweisung aus auf die Abfrage.<\/p>\n Um den gewünschten SQL-Befehl zu erhalten, müssen Sie kein SQL-Profi sein. Gehen Sie einfach folgendermaßen vor:<\/p>\n Nachdem Sie die Anweisung in die Zwischenanlage kopiert haben, können Sie die Nordwind-Datenbank schließen.<\/p>\n Nun müssen Sie die Anweisung noch in die entsprechende Zeile der Prozedur Form_Load einsetzen:<\/p>\n Ersetzen Sie den Befehl<\/p>\n durch die folgende Anweisung, wobei Sie statt dem Platzhalter <SQL-Anweisung> den entsprechenden String einsetzen:<\/p>\n Leider treten mitunter Fehler bei der Bearbeitung langer SQL-Anweisungen auf. Daher sollten Sie im vorliegenden Fall eine Alternative wählen: Legen Sie einfach eine neue Abfrage mit den gewünschten Feldern der drei Tabellen in der Nordwind-Datenbank an und speichern Sie die unter dem Namen qryArtikel. Dementsprechend ersetzen Sie den Platzhalter <SQL-Anweisung> durch den String „qryArtikel“.<\/p>\n Das angezeigte Ergebnis sieht nun schon ansprechender aus (siehe Bild 6). Leider ist die Spaltenüberschrift etwas misslungen.<\/p>\n <\/b><\/p>\n Bild 6: Anzeige der Artikel mit Kategorie und Lieferant<\/span><\/b><\/p>\n Die überschrift einer Spalte können Sie mit einer einfachen Zuweisung des gewünschten Wertes ändern. Dazu verwenden Sie die Caption-Eigenschaft der gewünschten Spalte. In der Regel sind die Spalten des DataGrid-Steuerelements in der vorliegenden Reihenfolge durchnummeriert. Die Nummerierung beginnt dabei mit der Nummer 0.<\/p>\n Im vorliegenden Fall müssen Sie also die Spalten 2 und 3 anpassen. Dazu fügen Sie der Prozedur Form_Load des Formulars die folgenden zwei Zeilen hinzu:<\/p>\n Nun stimmen auch die überschriften der angezeigten Spalten(siehe Bild 7).<\/p>\n <\/b><\/p>\n Bild 7: Das DataGrid mit den richtigen Spaltenüberschriften<\/span><\/b><\/p>\n Sie können auch noch einige andere Eigenschaften der unterschiedlichen Spalten anpassen. Um die Anpassung der Eigenschaften zu testen, legen Sie einige neue Schaltflächen in dem Formular an.<\/p>\n Im ersten Beispiel sollen Sie mit Hilfe eines Kombinationsfeldes und einer Schaltfläche einzelne Spalten des DataGrids ein- und ausblenden.<\/p>\n Erstellen Sie dazu zunächst ein Kombinationsfeld namens cmbSpalten. Setzen Sie <\/p>\n Wenn Sie auf eines oder mehrere Felder einer markierten Spalte zugreifen wollen, verwenden Sie die Columns-Eigenschaft dazu.<\/p>\n","protected":false},"excerpt":{"rendered":" Seit Access 2000 steht für den Datenbankzugriff ein neues Objektmodell zur Verfügung. Das neue Modell heißt kurz ADO (Active Data Objects) und ist nicht mit DAO (Data Access Objects), dem bisherigen Objektmodell zur verwechseln. Vielmehr handelt es sich um ein Objektmodell, das die bisherigen Modelle RDO (Remote Data Objects) und DAO samt seiner Erweiterung ODBC-Direct miteinander verbindet. Mit dem neuen Modell kann man also gleichzeitig auf die Jet-Engine- als auch auf SQL SQL-Server-Datenbanken zugreifen. Im diesem Beitrag lernen Sie das neue Objektmodell sowie die Objektmodell sowie die wichtigsten Methoden für den Datenzugriff mit ADO kennen.<\/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":[66012001,662001,44000035,44000013],"tags":[],"class_list":["post-55000006","post","type-post","status-publish","format-standard","hentry","category-66012001","category-662001","category-Datenzugriff_programmieren","category-Programmiertechnik"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic002.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic003.png\")
<\/p>\nDataGrid-Steuerelement mit Daten füllen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic004.png\")
<\/p>\nPrivate Sub Form_Load()\r\n \r\n Set rst = New ADODB.Recordset\r\n Set con = New ADODB.Connection\r\n \r\n con.Provider = \"Microsoft.jet.oledb.4.0\"\r\n con.CursorLocation = adUseClient\r\n con.Open CurrentProject.Connection\r\n \r\n Set rst.ActiveConnection = con\r\n rst.CursorType = adOpenStatic\r\n rst.LockType = adLockOptimistic\r\n \r\n rst.Open \"qryArtikel\", , , , adCmdTable\r\n \r\n Set ocxDataGrid.DataSource = rst\r\n \r\n Set Me.Recordset = rst\r\n \r\nEnd Sub<\/pre>\n
Private Sub Form_Unload(Cancel As Integer)\r\n Set rst = Nothing\r\n con.Close\r\n Set con = Nothing\r\nEnd Sub<\/pre>\n
Dim con As ADODB.Connection\r\nDim rst As ADODB.Recordset<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic005.png\")
<\/p>\nrst.Open \"Artikel\", , , , adCmdTable<\/pre>\n
rst.Open \"<SQL-Anweisung>\", , , , adCmdTable<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic006.png\")
<\/p>\nändern einer Spaltenüberschrift<\/h3>\n
ocxDataGrid.Columns(2).Caption = \"Kategorie\"\r\nocxDataGrid.Columns(3).Caption = \"Lieferant\"<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{F9F575AD-4250-4595-9EA0-91EA8C0DBB26}\/pic007.png\")
<\/p>\nEin- und Ausblenden einer Spalte<\/h3>\n
Zugriff auf die einzelnen Felder einer Zeile<\/h3>\n