Nesten alle nyttige dataprogrammer krever en database av noe slag. Microsoft anerkjent dette faktum tidlig og gjorde Microsoft Access database motoren tilgjengelig for bruk med programmer utviklet i Visual Basic , og starter med VB tre . En VB 6 program kan bruke Access Database Engine gjennom en komponent kalt " Microsoft Data Access Objects " eller DAO . Utnytte denne komponenten , kan du spørring , sette inn, oppdatere og slette i Access database . Du trenger
Visual Basic 6.0
Microsoft Access ( Office 97 eller nyere)
Microsoft Data Access Objects ( gratis nedlasting fra Microsoft.com )
Vis flere instruksjoner
1.
start et nytt Standard EXE -prosjekt i Visual Basic 6 ( VB ) ved å starte VB og velge " Standard EXE " fra det nye prosjektet vinduet som vises. Under Prosjekt-menyen , velg " Referanser . " I listen over tilgjengelige referanser , finn entry "Microsoft DAO xxx Object Library ", der xxx er versjonsnummeret ( 3.6 for eksempel) . Klikk i boksen ved siden av oppføringen og klikk OK.
2
Åpne Access-databasen . For å gjøre dette , dimensjon et objekt av typen database. For eksempel : en
Dim db som Database
Deretter bruke standard arbeidsområde for å åpne en database fil . For eksempel : en
Sett db = arbeidsområder ( 0 ) OpenDatabase . ( "C : \\ temp \\ congress.mdb ")
db objektet er nå en fullstendig initialisert database klar til å bli spørres eller oppdatert.
3
Åpne en recordset fra databasen og iterere gjennom postene . For å gjøre dette , dimensjon en Recordset objekt og bruke databasen objektet for å klargjøre det : en
Dim rs som RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )
I dette eksemplet table " Cong105 " blir åpnet som en Dynaset . En Dynaset i dette tilfellet betyr at recordset vil være oppdaterbar - poster kan bli lagt til, oppdatert og slettet . En recordset kan også åpnes som dsOpenReadOnly , slik postsettet lese- only.The recordset blir åpnet behøver ikke å være hele tabellen. En SQL (Structured Query Language )-setningen kan brukes for å åpne bare et delsett av bordet. For eksempel : en
Set rs = db.OpenRecordset ( " select * from cong105 hvor home_state = 'NEW YORK ' " , dbOpenDynaset )
p Dette vil spørre Cong105 bord for bare de postene med en hjemstat " New York ". Iterate gjennom postsettet og lese verdiene ved hjelp av MoveNext og EOF metoder for postsettet . For eksempel hvis skjemaet har en tekstboks som heter Tekst1 (med flere linjer eiendommen satt til true og rullefelt satt til loddrett) : en
Text1.Text = " " Mens Ikke rs.EOFText1.Text = Text1.Text & ; ! rs Tittel & " " ! & rs fname & " " & rs lname & vbCrLfrs.MoveNextWend
4
Legge til en post til en rekord satt ved hjelp av AddNew og oppdatering metoder . Ring AddNew metode for å opprette en tom rekord i postsettet . Still inn verdiene for feltene i den tomme posten og deretter ringe Update metode for å lagre de nye verdiene . For eksempel:
rs.AddNewrs fname = "Test " rs lname = "Test Siste " rs Update
5
Oppdater en eksisterende post ved hjelp av Edit og Oppdatering metoder ! . Ring Edit metode for å plassere den nåværende rekorden i redigeringsmodus. Sett verdiene av feltene og deretter ringe Update metode for å lagre endringene . For eksempel : !
Rs.Editrs lname = rs lname & " . Jr " rs Update