Start een nieuw standaard-EXE -project in Visual Basic 6 ( VB ) door te beginnen VB en het selecteren van " Standard EXE " uit het nieuwe project venster dat verschijnt . Onder het menu Project , selecteer " Referenties . " In de lijst met beschikbare referenties , zoek de vermelding " Microsoft DAO xxx Object Library", waarbij xxx is het versie nummer ( 3.6 bijvoorbeeld) . Klik op het selectievakje naast het item en klik op OK . Kopen van 2

Open de Access-database . Om dit , afmeting doe een object van het type database. Bijvoorbeeld :

Dim db
als Database

Gebruik dan de standaard werkruimte naar een database- bestand te openen . Bijvoorbeeld :

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

De db object is nu een volledig geïnitialiseerd databank klaar om te worden opgevraagd of bijgewerkt .
3

Open een record uit de database en het doorlopen van de records. Om deze , dimensie een Recordset-object te doen en gebruik maken van de database- object om het te initialiseren :

Dim rs
als RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset ) op Twitter

In dit voorbeeld , de table " Cong105 " wordt geopend als een Dynaset . Een Dynaset in dit geval betekent dat de record zal worden bijgewerkt - records kunnen worden toegevoegd , bijgewerkt en verwijderd . Een recordset kan ook worden geopend als dsOpenReadOnly , waardoor de record read - only.The recordset wordt geopend hoeft niet de hele tabel te zijn . Een SQL ( Structured Query Language) -instructie kan worden gebruikt om alleen een subset van de tabel te openen . Bijvoorbeeld :

Set rs = db.OpenRecordset ( " select * from cong105 waar home_state = ' NEW YORK ' " , dbOpenDynaset ) op Twitter

Dit zal de Cong105 tafel bevragen voor alleen de records met een thuisstaat van ' New York '. Doorloop de recordset en lees de waarden met de MoveNext en EOF methoden van de recordset . Bijvoorbeeld als de vorm heeft van een tekstvak met de naam Text1 ( met de multiline eigenschap ingesteld op true en schuifbalken ingesteld op Verticaal ) :

Text1.Text = " Nieuws" Terwijl Niet rs.EOFText1.Text = Text1.Text & ; ! rs Title & " " ! & rs Fname & " " & rs lNaam & vbCrLfrs.MoveNextWend
4

Voeg een record om een ​​record te stellen met behulp van de AddNew en update methodes . Roep de methode AddNew naar een lege record in de recordset te maken . Stel de waarden voor de velden van de lege plaat en dan bellen met de methode Update om de nieuwe waarden op te slaan . Bijvoorbeeld :

rs.AddNewrs
FName = "Test " rs lNaam = "Test Last " rs update
5

Update een bestaande record met het bewerken en methoden update ! . Roep de methode Bewerken om het huidige record te plaatsen in edit mode . Stel de waarden van de velden en dan bellen met de methode Update om de wijzigingen op te slaan . Bijvoorbeeld : !

Rs.Editrs
lNaam = rs lNaam & " . Jr. " rs -update