Nästan alla användbara datorprogram kräver en databas av något slag . Microsoft erkände detta faktum tidigt och gjorde Microsoft motorn Access- databas tillgänglig för användning med program som utvecklats i Visual Basic , börjar med VB 3 . Ett VB 6 program kan använda Engine Access-databas via en komponent som kallas " Microsoft Data Access Objects " eller DAO . Med hjälp av denna komponent , kan du fråga , infoga , uppdatera och radera i databasen . Saker du behöver Review, Visual Basic 6.0
Microsoft Access ( Office 97 eller senare ) katalog Microsoft Data Access Objects ( gratis nedladdning från Microsoft.com )
Visa fler instruktioner
1
Starta ett nytt Standard-EXE- projekt i Visual Basic 6 ( VB ) genom att starta VB och välja " Standard EXE " från det nya projektet fönstret som visas . Under Projekt , välj " Referenser . " I listan över tillgängliga referenser , lokalisera posten " Microsoft DAO xxx Object Library ", där xxx är versionsnummer ( 3.6 för exempel) . Klicka på kryssrutan bredvid posten och klicka på OK .
2
Öppna Access-databas . För att göra detta , dimension ett objekt av typen databas . Till exempel :
Dim db som databas
Använd sedan standardarbetsytan att öppna en databasfil . Till exempel :
Set db = Arbetsytor ( 0 ) OpenDatabase . ( " C : \\ temp \\ congress.mdb " ) katalog
db objektet är nu ett helt initierad databas redo att tillfrågas eller uppdateras . Addera 3
Öppna en postmängd från databasen och iterera igenom posterna . För att göra detta , dimension ett Recordset-objekt och använda databasen objekt för att initiera det :
Dim rs som RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset ) katalog
I detta exempel tabellen " Cong105 " grad öppnas som en Dynaset . En Dynaset i detta fall innebär att postmängden ska uppdateras - register kan läggas till, uppdateras och raderas . En postmängd kan också öppnas som dsOpenReadOnly , vilket gör postuppsättning read- only.The postmängd öppnas inte behöver vara hela tabellen. En SQL ( Structured Query Language ) uttalande kan användas för att öppna endast en delmängd av tabellen . Till exempel :
Set rs = db.OpenRecordset ( " select * from cong105 där home_state = " New York " " , dbOpenDynaset ) katalog
Detta gör sökningar i Cong105 bord för bara de poster med hemstat " New York . " iterera igenom postmängd och läsa värden med MoveNext och EOF metoder postmängden . Till exempel om formuläret har en textruta som heter Text1 ( med multiline egenskap till true och rullningslister som till Vertical ) :
Text1.Text = " " Även om inte rs.EOFText1.Text = Text1.Text & ; ! rs Titel & " " ! & rs fname & " " & rs lname & vbCrLfrs.MoveNextWend
4
Lägg till en post i ett register som använder SparNy och uppdatering metoder . Ring SparNy metoden för att skapa en tom skiva i postuppsättningen . Ställ in värdena för fälten i den tomma posten och sedan anropa metoden Update för att spara de nya värdena . Till exempel :
rs.AddNewrs fname = " Test " rs lname = " Test Senaste " rs Update
5
Uppdatera en befintlig post med hjälp av Edit och metoder Uppdatering ! . Ring Redigera metoden att placera den aktuella posten i redigeringsläge . Ställ in värdena för fälten och sedan anropa metoden Update för att spara ändringarna . Till exempel : !
Rs.Editrs lname = rs lname & " . Jr " RS Update
