Access: DAO - Datenbank
Allgemeines
Teil von
Access: DAO - Datenbank | ||||
Allgemeines |
Das DAO-Datenbanksystem von Access ist älter als ADO, gilt aber als robust und zuverlässig. | Statt "Recordset" benutze ich lieber das Wort "Tabelle". Die Tabellenzeile entspricht dann einem Datensatz. | ||
| Datenbank deklarieren | Dim dbs As DAO.Database | dbs wird als DAO-Datenbank deklariert | ||
| Tabelle deklarieren | Dim Patdat As DAO.Recordset | Patdat wird als Recordset (Tabelle) deklariert | ||
| Datenbank öffnen | Set dbs = CurrentDb | Datenbank dbs ist die aktuelle Datenbank | ||
| Tabelle öffnen | Set Patdat = dbs.OpenRecordset("Pat", dbOpenDynaset) | Patdat wird mit der Tabelle Pat der aktuellen Datenbank verknüpft. | ||
| Dynaset | Set Patdat = dbs.OpenRecordset("Pat", dbOpenDynaset) | Dynaset erlaubt lesen und schreiben. | Jeder neue Datensatz wird immer am Ende der Tabelle angezeigt. | Die richtige Sortierung der Tabelle wird erst beim nächsten Öffnen sichtbar. Die Sortierung kann mit "Requery" erzwungen werden. |
| Datensatz öffnen | PatDat.edit | Immer vor dem Speichern von Werten | ||
| Variable | DirRst![Name] | Um auf Werte einer Tabelle zugreifen zu können, wird der Variablenname in eckigen Klammern geschrieben. Der Tabellenname wird mit einem ! davorgesetzt. | ||
| Wert eintragen | Di![Name] = "meinName" | In der Variablen "Name" der Tabelle "Di" wird der Wert der "meinName" gespeichert. | ||
| Wert lesen | Da = DirRst![DirN] | Der Werte der Variablen DirN des aktuellen Datensatzes wird auf die Variable Da übertragen. | ||
| Wert abfragen | If DirRst![Tiefe] = 1 Then | Der Werte der Variablen Tiefe wird für eine If-Abrage verwendet. | ||
| Wert übertragen | Di![Name] = Dat![N] | In der Variablen Name der Tabelle Di wird der Wert der Variablen N der Tabelle Dat gespeichert. | ||
| Datensatz speichern | PatDat.update | immer nach dem Abspeichern von (mehreren) Werten (bei ADO nicht erforderlich) | ||
| Close | PatDa.close | Tabelle schließen | ||
| dbs.close | Datenbank schließen | |||
| RecordCount | PatZahl = PatDat.RecordCount | Die Zahl der Datensätze wird in "PatZahl"gespeichert. | ||
| AllTables | Liste aller Tabellen | Dim Tabs As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each Tabs In dbs.AllTables Debug.Print Tabs.Name Next Tabs | ||
Teil von |
Access: Visual Basic | MS Access | RDBMS, relationales Datenbank - Management System | Datenbanken |
| ||||
Impressum Zuletzt geändert am 23.06.2022 16:59