Ikke vise de seneste oplysninger i din database ansøgning kan være et problem, hvis de viste data bliver brugt til at træffe vigtige beslutninger . Du kan bruge en liste kontrol til at vise oplysninger fra en database tabel ved hjælp af en forespørgsel. De " Requery " ejendom opfrisker forespørgslen anvendes i listen for at fremvise de nyeste oplysninger . Det er god praksis at opdatere dataene i en kontrolgruppe programmatisk i stedet for genstart af programmet for at opdatere dine data. Ting du skal
Northwind database
Vis Flere Instruktioner
1
Åbn databasen Northwind , klik på "Opret "-menuen og klikke på " Form Design " i " Forms " rude. Klik på " Design "-fanen og vælg " List Box" i " Controls " ruden . Klik på " Form" i " Detail" område og trække med musen , mens du holder museknappen nede for at tegne en ny liste box kontrol. Klik på " Button " og bruge den samme teknik til at tegne en ny knap på formularen.
2
Højreklik på nye liste box kontrol og klik på "Egenskaber". Klik på "Format " fanebladet og indtast "5 " ved siden af " Kolonne Count ".
3
Klik "Data" fanen, og kopiere og indsætte SQL-kode nedenfor ved siden af " . . . . række kilde " : Hej
SELECT Customers.Company Kunder [ Efternavn ], Kunder [ Fornavn ] , Kunder [E- mail-adresse] , Kunder [ Stilling ] FROM Kunder ;
4
højreklikke din nye knap på formularen, og klik på "Egenskaber ". Klik på " Event" -fanen og vælg " [ Hændelsesprocedure ] " ud for " Ved klik ". Klik på ellipsen at oprette en ny " button_click " procedure og åbn Microsoft Visual Basic vindue
5
Kopier og indsæt koden nedenfor ind i knap procedure for at oprette to variabler: .
< P > Dim DBS som database
Dim strSQL As String
6
Kopier og indsæt koden nedenfor til at definere den aktuelle database som database til at bruge : Hej
Set dbs = CurrentDb
7
Kopier og indsæt koden nedenfor til at indsætte en ny kunde i " kunder" table : Hej
strSQL = " INSERT INTO Kunder ( Company, [ Efternavn ], [ Fornavn ] , [E- mail-adresse] , [ Stilling ] ) "
strSQL = strSQL &" VALUES ( ' Compnay 1 ', ' Smith ', ' John ', ' johnsmith @ yahoo . com ',' manager '); "
dbs.Execute ( strSQL )
8
Kopier og indsæt følgende linje kode til at opdatere forespørgslen på listen kontrol og vise den ny kunde tilføjede : Hej
List0.Requery
9
Skift tilbage til Microsoft Access , og klik på "Vis" -ikonet. Klik på knappen for at udføre din kode . Rul ned på listen, og du vil se den nye kunde tilføjet.