Næsten alle nyttige computerprogrammer kræver en database af en slags. Microsoft erkendt dette faktum tidligt og gjorde Microsoft Access-database motor til rådighed til brug med programmer udviklet i Visual Basic , begyndende med VB 3. . En VB 6-programmet kan bruge Access Database Engine gennem en komponent kaldet " Microsoft Data Access Objects " eller DAO . Udnytte denne komponent, kan du forespørge , indsæt , opdatere og slette i Access-database. Ting du skal
Visual Basic 6.0
Microsoft Access ( Office 97 eller senere)
Microsoft Data Access Objects ( gratis download fra Microsoft.com )
Vis Flere Instruktioner
< br > 1
Start et nyt standard-EXE -projekt i Visual Basic 6 ( VB) ved at starte VB og vælge " Standard EXE " fra det nye projekt vindue, der vises . Under Projekt menuen, vælg " Referencer". På listen over tilgængelige referencer , find punktet " Microsoft DAO xxx Object Library ", hvor xxx er versionsnummeret (3,6 for eksempel). Klik på afkrydsningsfeltet ved siden af indrejse og klik på OK.
2
Åbn den Access -database. For at gøre dette , dimension et objekt af typen database. For eksempel : Hej
Dim db som Database
derefter bruge standard arbejdsområdet for at åbne en databasefil . For eksempel : Hej
Set db = Workspaces (0) OpenDatabase . ( "C: \\ temp \\ congress.mdb " )
db objekt er nu en fuldt initialiseret database klar til at blive forespørges eller opdateret.
3
Åbn en postsæt fra databasen og gentage gennem posterne. For at gøre dette , dimension et Recordset objektet og bruge databasen objektet at initialisere det : Hej
Dim rs som RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )
I dette eksempel tabellen " Cong105 " bliver åbnet som Dynaset . En Dynaset i dette tilfælde betyder , at postsættet bliver opdateres - records kan tilføjes , opdateres og slettes. En postsættet kan også åbnes som dsOpenReadOnly , hvilket gør postsættet read- only.The postsættet åbnes behøver ikke at være hele tabellen . En SQL ( Structured Query Language ) udsagn kan bruges til at åbne kun en delmængde af tabellen . For eksempel : Hej
Set rs = db.OpenRecordset ( " select * from cong105 hvor home_state = ' NEW YORK '" dbOpenDynaset )
Dette vil forespørge Cong105 tabellen kun de poster med hjemstat "New York ". gentage gennem postsættet og læs værdier ved hjælp af MoveNext og EOF metoder postsættet . For eksempel, hvis form har en tekstboks ved navn Tekst1 (med Multiline ejendom sat til true og scrollbars sat til lodret) : Hej
Text1.Text = "" While Not rs.EOFText1.Text = Text1.Text & ; ! rs Titel & " !" & rs fname & " " & rs lname & vbCrLfrs.MoveNextWend
4
Tilføj en post til en rekord sat ved hjælp af TilføjNy og opdatering metoder . Ring til TilføjNy metode til at oprette en tom linje i datasættet . Sæt værdierne for felterne i tomme record og derefter kalde Update metode til at redde de nye værdier. For eksempel:
rs.AddNewrs FName = "Test" rs lname = "Test Sidste" rs opdatering
5
opdatere en eksisterende post ved hjælp af de redigere og opdatere metoder ! . Ring til Edit metode til at placere nuværende rekord i redigeringstilstand. Indstil værdierne af felterne og derefter kalde Update metode til at gemme ændringerne. For eksempel: !
Rs.Editrs lname = rs lname & " . Jr " rs opdatering