Datenbankzugriff in Visual Basic

Oft sollen Daten auf Dauer gesichert und nach und nach ergänzt werden. Ein Beispiel wären Aktienkurse. Wenn es um mehrere Kurse geht, die zur graphischen Darstellung und Analyse herangezogen werden sollen, dann bietet sich eine Datenbank an. (Anmerkung für "normale" Studenten: Excel ist keine Datenbank, obwohl man auch mit Excel Daten sammeln kann; Bildlich gesprochen, mit einem Bett auf Rädern kann man auch fahren, mit einem Auto ist man schneller! Die Microsoft-Datenbank heißt Access und ist durchaus ihren Aufgaben gewachsen). Der Zugriff auf Datenbanken wird von einem Assistenten unterstützt, dessen Hilfe man ruhig in Anspruch nehmen sollte. Die wenigen Schritte am Beispiel einer Access-Datenbank zur Verwaltung von sagen wir Datum, Dax und einer Beispielaktie namens Wildau. Was hier beschrieben wird, ist nur der aller-aller-einfachste Zugriff, wir haben alle mal als Baby begonnen!

Datenbank anlegen

Hat nix mit Visual Basic zu tun, muß aber hier zunächst sein. In Stichpunkten:

Acces starten,

Erstellung "Leerer Datenbank" klicken, dann OK,
geeigneten Namen vergeben, sagen wir "Depot.mdb" (.mdb ist die Kennung von Access-Datennanken),
geeigneten Pfad wählen(empfohlen wird die Speicherung im Ordner, der das werdende Programm enthält), "Erstellen klicken".
Nun auf dem Kartenstapel nur die Taste "Neu" drücken,
dann Entwurfsansicht wählen, (wer hier "Tabellen-Assistent" wählt, ist auch gut aufgehoben, dem muß ich nicht weiter helfen!), OK.

Sie sehen vor sich die Entwurfstabelle.

Feldnamen sind die Namen der späteren Tabellenspalten. Diese sollen hier heißen: "Datum", "DAX", "Wildau".
Also in die erste Zeile

unter "Feldname" eintragen: Datum,
unter "Felddatentyp" nach dem Anklicken "Datum/Uhrzeit" auswählen. Fertig Zeile 1.

In die zweite Zeile eintragen: DAX, Felddatentyp wird hier Zahl.

Wer nicht später nachbessern will, klickt unten auf dem Kärtchen "Allgemein" auf den Eintrag Feldgröße: "Long Integer" und ändert in "Single"
und Dezimalstellen: "Automatisch" in "2".

Die dritte Zeile erhält die Einträge "Wildau", "Währung".
Zum Schluß die Zeile l "Datum" markieren und in der Kopfzeile des Programms den Schlüssel ("Primärschlüssel" ist die ToolTip-Anzeige) drücken (das Datum als Schlüsselfeld markieren).
Jetzt die Entwurfansicht schließen (obere linke Ecke des Entwurfsfensters "Schließen" oder das Kreuz in der rechten oberen Ecke klicken.

Die 'am Entwurf von Tabelle1 vorgenommenen Änderungen' sollten sie speichern wollen ("Ja"),
der Tabellenname soll werden: "Kurse". jetzt folgt OK,

Datenbank schließen; gratuliere mir und Ihnen, es ist geschafft!

Datenbankzugriff zur Datenpflege

Hier bekommen wir Hilfe. Visual Basic bietet einen Assistenten.

Visual Basic starten, Standard-Exe anlegen, (oder das schon in Arbeit befindliche Projekt öffnen, egal).

Im Menü unter "Add-Inns" den "Add-Inn-Manager..." wählen.
In der Liste "VB Form Data Wizard" ankreuzen, OK.
Es erscheint "Add-Inn-Menü" jetzt der "Datenformularassistent...". Den brauchen wir. Klick.

Jetzt kommt der langweilige Dialog:

Karte "Einführung" Weiter> klicken.
"Datenbanktyp", Access ist vorgewählt Weiter>,
"Datenbank", hier mit "Durchsuche" die Datenbank "Depot.mdb" auswählen. Benötigt werden nur Tabellen (Abfragen abwählen!).Weiter>.
"Formular", wir wählen hier "Einzelner Datensatz", "Weiter>".
"Datensatzquelle" ist unsere einzige Tabelle "Kurse" . Als verfügbare Felder werden nun angezeigt: Datum, DAX, Wildau. Alle auswählen, "Weiter>".
"Steuerelementauswahl" alle gelten lassen, "Fertig!".

Sie sehen auf dem Bildschirm dies:

Der Programmcode, automatisch generiert, im Codebereich dieses neuen Fensters lautet:

Option Explicit

Private Sub cmdHinzufügen_Click()
datPrimaryRS.Recordset.AddNew
End Sub

Private Sub cmdLöschen_Click()
With datPrimaryRS.Recordset
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
End With
End Sub

Private Sub cmdNeulesen_Click()
'Dies wird nur für Mehrbenutzeranwendungen benötigt
datPrimaryRS.Refresh
End Sub

Private Sub cmdAktualisieren_Click()
datPrimaryRS.UpdateRecord
datPrimaryRS.Recordset.Bookmark = datPrimaryRS.Recordset.LastModified
End Sub

Private Sub cmdSchließen_Click()
Screen.MousePointer = vbDefault
Unload Me
End Sub

Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
'An dieser Stelle würde Code zur Fehlerbehandlung stehen
'Wenn Sie Fehler ignorieren möchten, kommentieren Sie die nächste Zeile aus
'Wenn Sie die Fehler auffangen möchten, fügen Sie an dieser Stelle Code ein, um Fehler zu behandeln
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 'Fehler verwerfen
End Sub

Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'Hierdurch wird die aktuelle Datensatzposition für Dynasets und Snapshots angezeigt
datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub

Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
'An dieser Stelle steht Code zur Überprüfung von Eingaben
'Dieses Ereignis wird ausgelöst, wenn die folgenden Aktionen stattfinden
Select Case Action
    Case vbDataActionMoveFirst
    Case vbDataActionMovePrevious
    Case vbDataActionMoveNext
    Case vbDataActionMoveLast
    Case vbDataActionAddNew
    Case vbDataActionUpdate
    Case vbDataActionDelete
    Case vbDataActionFind
    Case vbDataActionBookmark
    Case vbDataActionClose
      Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub

Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub

Bitte zunächst nichts ändern! Aber studieren und begreifen! Sie können testweise ihre Datenbank aus Visual Basic heraus bedienen, sollten sie auch mit einigen gültigen Datensätzen füllen. Sie ist im Rahmen des generierten Codes voll einsatzfähig.
Aber, wir sind noch nicht fertig! Denn, Sie wollen evtl. gar nicht dieses Fenster, Sie wollen selbst gestalten, Sie wollen auf die Daten zugreifen, sie evtl. graphisch darstellen.... ich weiß. Nur Geduld.

Niemand hindert Sie, das automatisch generierte Formular nach Wunsch zu gestalten. Nicht benötigte Steuerelemente fliegen raus. Intelligenztest: Was passiert, wenn sie "datPrimaryRS" rausschmeißen? Übrigens können im Code die nicht benötigten Aktivitäten ebenfalls gelöscht werden. (Solange man versteht, was man löscht!).
Wir sind fertig. Hier im Beispiel wurde der Zugriff auf einen einzelnen, Datensatz programmiert, der allerdings durch "Blättern" frei wählbar ist. Alternativ hätten Sie auch die komplette Tabelle anzeigen können.

Datenbank frei handhaben

Zuerst muß der der Zugriff ermöglicht werden.

Database

Recordset

visible = false

Datum

DAX

Wildau

Beispiel-Deklarationen, die zum Zugriff nötig sind:
Dim db As Database
Dim dy As Recordset
Dim meinTag As Date, neuTag As Date, DAX As Single, Wildau As Currency
Dim xvon As Date, xbis As Date

Datenbank öffnen, Variable für Record definieren
Set db = DBEngine.Workspaces(0).OpenDatabase("h:\rmueller\geld\Depot.mdb") 'hier ein fiktiver Pfad!
Set dy = db.OpenRecordset("Kurse", dbOpenDynaset) 'Recordset zur Tabelle "Kurse" öffnen

Datumsgrenzen der Eintragungen:
dy.MoveFirst
xvon = dy.Fields("Datum").Value
dy.MoveLast
xbis = dy.Fields("Datum").Value

Lesen der Variablen des ersten Datensatzes:
dy.MoveFirst
meinTag = dy.Fields("Datum").Value
DAX = dy.Fields("DAX").Value
Wildau = dy.Fields("Wildau").Value

Lesen von frei gewählten Werten: Dax vom 12.12.88 (vorausgesetzt es gibt ihn in der Datenbank!)
dy.MoveFirst
For meinTag = xvon To xbis
If meinTag = dy.Fields("Datum") Then
    dy.MoveNext
    If dy.Fields("Datum") = CDate(12.12.88) Then
       DAX = dy.Fields("DAX")
       Exit For
    End If
End If
Next

Verändern der Werte des letzten vorhandenen Datensatzes:
dy.Edit                                'Änderungen ankündigen
dy.MoveLast                            'gewünschten Satz wählen, hier den letzten
dy.Fields("Datum").Value = neuTag      'veränderten Datumswert angeben
dy.Fields("DAX").Value = neuDAX        'DAX-Wert verändern
dy.Fields("Wildau").Value = neuWildau 'Wert der Aktie "Wildau" verändern
dy.Update                              'Werte sichern (in Datenabnk schreiben)

Datensatz aus dem Programm heraus hinzufügen:
dy.AddNew
dy.Fields("Datum").Value = Date        'heutiges Datum (oder Datumsvariable mit gewünschtem Wert)
dy.Fields("DAX").Value = DAX           'heutiger DAX-Wert oder ...
dy.Fields("Wildau").Value = Wildau
dy.Update
dy.close                              'Datenbank schließen