zurück Home |
Access: Visual Basic |
Allgemeines |
Ein Vorzug von Access ist die Programmierbarkeit mit Access - Visual Basic. |
Programmierumgebung: Für die Programmierung stehen verschiedene Fenster zur Verfügung. |
Visual Basic |
Allen VB-Dialekten gemeinsam sind: Rahmen, Befehlsende, Kommentar, Deklaration, Schleifen und Sprünge |
| Deklarationen |
Dim V1, V2, V3 .... |
Variable sollten Deklariert und durch Kommentar erklärt werden. |
| Dim DB As Database 'Database deklarieren |
Database (Datenbank) ist DB |
| Dim DatRst As Recordset 'Recordset deklarieren |
Recordset (Tabelle) ist DatRst |
| Datenbank |
Dim DB As Database
Dim DatRst As Recordset
Set DB = CurrentDb
Set DirRst = DB.OpenRecordset("Tabelle1", dbOpenDynaset)
|
- Database deklarieren
- Recordset deklarieren
- aktuelle Database aktivieren
- Tabelle 1 mit dem Bezeicher DirRst öffnen
|
| ADO - Datenbank |
Dim cnn As New ADODB.Connection
Dim Lit As New ADODB.Recordset 'Literatur-Datei
Dim Z As New ADODB.Recordset ' Liste der Zeitschriften
Set cnn = CurrentProject.Connection
Lit.Open "litall", cnn, adOpenKeyset, adLockOptimistic
Z.Open "ZeitschF", cnn, adOpenKeyset, adLockOptimistic
|
- ADODB-Verbindung deklarieren
- Recordset (=Tabelle) Lit und Z deklarieren
- Verbindung aktivieren
- Tabelle LitAll mit dem Bezeicher Lit öffnen
- Tabelle ZeitschF mit dem Bezeicher Z öffnen
|
| Datensatz |
DirRst![Name] |
Um auf Werte einer Tabell zugreifen zu können, wird der Variablenname in eckigen Klammern geschrieben. Der Tabellenname wird mit einem ! davorgesetzt. |
| Da = DirRst![DirN] |
Der Werte der Variablen DirN des aktuellen Datensatzes wird auf die Variable Da übertragen. |
| If DirRst![Tiefe] = 1 Then |
Der Werte der Variablen Tiefe wird für eine If-Abrage verwendet. |
| Di![Name] = Dat![N] |
In der Variablen Name der Tabelle Di wird der Wert der Variablen N der Tabelle Dat gespeichert. |
| Datensatz - Zeiger |
Eine Tabelle besteht aus zahlreichen Zeilen (Recordsets). Der Datensatz - Zeiger aktiviert immer nur eine Zeile. (DirRst ist der Name einer Tabelle.) |
| DirRst.MoveFirst |
1. Zeile (Immer nach " öffnen" aktiv) |
| DirRst.MoveNext |
Nächste Zeile |
| DirRst.MovePrevious |
Zeile zurück |
| DirRst.MoveLast |
letzte Zeile |
| Do While Not DirRst.EOF |
Nur ausführen, wenn nicht Tabellenende (End of File) von DirRst |
| If DirRst.BOF then ... |
Wenn 1. Zeile (Beginn of File) |
| File System |
Man kann von Access auf Dateien und Verzeichnisse zugreifen |
| Funktionen |
Zur Berechnung und Manipulation von Daten stehen zahlreiche Funktionen zur Verfügung. Diese sind in allen Visual Basic Dialekten gleich verwendbar. |
| numerische, logische, numerische Funktionen |
Datums- und Zeitfunktionen, Stringfunktionen |
 |