Fast alle nützliche Computerprogramme eine Datenbank mit irgendeiner Art benötigen . Microsoft hat diese Tatsache schon früh und machte die Microsoft Access -Datenbank-Engine für den Einsatz mit Programmen in Visual Basic entwickelt , beginnend mit VB 3 . Ein VB 6 Programm kann die Access Database Engine durch eine Komponente namens "Microsoft Data Access Objects " oder DAO verwenden . Mit Hilfe dieser Komponente können Sie Abfragen, Einfügen , Aktualisieren und Löschen in der Access-Datenbank . Things You
Visual Basic 6.0
Microsoft Access ( Office 97 oder höher)
Microsoft Data Access Objects (kostenloser Download von Microsoft.com )
brauchen anzeigen Weitere Anweisungen

1

starten Sie ein neues Standard EXE-Projekt in Visual Basic 6 (VB) , indem Sie VB und wählen Sie " Standard EXE " aus dem neuen Projekt -Fenster, das erscheint. Unter dem Menü Projekt , wählen Sie " Referenzen . " In der Liste der verfügbaren Verweise , suchen Sie den Eintrag " Microsoft DAO xxx Object Library ", wobei xxx die Versionsnummer (3.6 zum Beispiel) . Aktivieren Sie das Kontrollkästchen neben dem Eintrag und klicken Sie auf OK .
2

Öffnen Sie die Access-Datenbank. Um dies zu tun , Dimension ein Objekt vom Typ Datenbank . Zum Beispiel: Dim db

als Database

Dann nutzen Sie die Standard-Arbeitsbereich , um eine Datenbank -Datei zu öffnen . Zum Beispiel:

db = Workspaces (0) Set OpenDatabase . ("C: \\ temp \\ congress.mdb " )

db Objekt ist nun ein vollständig initialisiert Datenbank bereit oder abgefragt werden aktualisiert.
3

öffnen ein Recordset aus der Datenbank und durchlaufen den Aufzeichnungen . Um diese , Dimension ein Recordset-Objekt zu tun und die Datenbank Objekt, um es zu initialisieren:

Dim rs as RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )

In diesem Beispiel ist die Tisch " Cong105 " wird als Dynaset geöffnet . Ein Dynaset bedeutet in diesem Fall , dass das Recordset aktualisierbar sein wird - Datensätze können hinzugefügt, aktualisiert und gelöscht werden. Ein Recordset kann auch als dsOpenReadOnly geöffnet werden , so dass das Recordset schreibgeschützt only.The Recordset geöffnet wird muss nicht die gesamte Tabelle. Eine SQL (Structured Query Language) -Anweisung kann verwendet werden, um nur einen Teil der Tabelle zu öffnen. Zum Beispiel:

rs = db.OpenRecordset ( " select * from cong105 wo home_state = ' NEW YORK ' " , dbOpenDynaset )

die Cong105 Tabelle nur für die Datensätze mit einer Abfrage wird Heimatstaat " New York. " durch das Recordset durchlaufen und lesen Sie die Werte mit den MoveNext und EOF Methoden des Recordsets . Zum Beispiel , wenn das Formular ist ein Textfeld namens Text1 (mit Multiline -Eigenschaft auf true und Scrollbalken auf Vertical) :

Text1.Text = "" While Not rs.EOFText1.Text = Text1.Text & ; ! rs Titel & " !" & rs Fname & "" & rs LName & vbCrLfrs.MoveNextWend
4

hinzufügen eines Datensatzes zu einem Datensatz mit den AddNew und Update-Methoden . Rufen Sie die AddNew Methode, um einen leeren Datensatz im Recordset erstellen. Legen Sie die Werte für die Felder der leeren Datensatz und rufen Sie dann die Update-Methode , um diese neuen Werte zu speichern. Zum Beispiel:

rs.AddNewrs FName = "Test" rs LName = "Test Last" rs aktualisieren
5

Aktualisieren eines vorhandenen Datensatz mit den Edit-und Update-Methoden ! . Rufen Sie den Edit-Methode , um den aktuellen Datensatz in den Bearbeitungsmodus zu platzieren. Legen Sie die Werte der Felder und rufen Sie dann die Update-Methode , um die Änderungen zu speichern. Zum Beispiel: !

Rs.Editrs LName = rs LName & " . Jr" rs -Update