hvordan man kan få adgang til en liste i en forespørgsel

Indlæg af Birthe Møller     opdateret: 2011-10-04

Vide, hvordan man adgang til en liste og bruge sine værdier i en forespørgsel kan du spare tid når de udvikler applikationer . Du kan oprette en grafisk brugergrænseflade , eller GUI , i Microsoft Office Access , skal du tilføje en liste kontrol og bruge det i en forespørgsel . Access er en relationel database management system der almindeligvis anvendes til mindre databaser . En forespørgsel bruges til at hente data fra databasetabeller. En liste kontrol giver dig fleksibilitet til at vælge kriterier for yderligere data mining
1 .
Start Microsoft Office Access 2007 og vælg " Tom database " og derefter klikke på " Opret ".
Vælg " Opret "-fanen og vælg " Form Design " for at oprette en ny form . Klik på " List Box " på " Controls " ruden , derefter til venstre-klikke på din form og træk for at oprette en ny liste kontrol . Klik på " Button " på " Controls " ruden og tilføje en ny knap til formularen .
2 .
Højreklik " Command0 "og vælg " Egenskaber ". Klik på " Event "-fanen og vælg " [ Event procedure] "ud for " Ved klik ". Klik på ellipse ( . . . ) top åbne " Microsoft Visual Basic " Window .
3 .
Kopier og indsæt følgende kode under " Private Sub Command0_Click (). "


Dim strSQL As String
strSQL=" CREATE TABLE listBoxTable ( Indx nummer, betegnelse TEXT ) "
DoCmd. RunSQL ( strSQL )


strSQL=" INSERT INTO listBoxTable ( Indx , Beskrivelse ) "
strSQL=strSQL " VALUES (1 , 'computer ' ) ; "
DoCmd. SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO listBoxTable ( Indx , Beskrivelse ) "
strSQL=strSQL " VALUES (2 , ' skrivebord ');"

DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO listBoxTable ( Indx , Beskrivelse ) "

strSQL=strSQL " VALUES (3 , ' stol ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )


strSQL=" Vælg listBoxTable. Indx fra listBoxTable " .
Me. List0. RowSource=strSQL
4
Skift tilbage til Microsoft Access -vinduet , og højre-klik " List0 "og derefter vælge " Egenskaber ". Klik på " Event "-fanen og vælg " [ Event procedure] "ud for " Efter Update . " Klik på ellipsen (. . . ) for at åbne " Microsoft Visual Basic " Window .
5 .
Kopier og indsæt følgende kode under " Private Sub List0_Click (). "


Dim dbs som database
Dim rst Som Recordset
Dim comboString As Integer
Dim SQLstr As String
Dim Jeg As Integer

Set dbs=CurrentDb


For jeg=0 To Me ! List0. ListCount
Hvis Me ! List0. Selected ( I ) Så
SQLstr=" SELECT listBoxTable. Description FRA listBoxTable "

SQLstr=SQLstr " WHERE listBoxTable . Indx=" ( Me! List0. ItemData ( I ) ) " ; "
Set rst=dbs. OpenRecordset ( SQLstr )
rst. MoveLast

rst. MoveFirst
MsgBox " Beskrivelse af dette indeks er: " . rst. Fields ( 0 ) Værdi
rst. Close


End If
Næste Jeg
dbs. Close
6 .
Luk " Microsoft Visual Basic " Window og højre -klik " Form1 "og derefter vælge " Form View ". Klik på " Command0 " for at fylde listen med data .
Vælg en værdi fra listen , og du vil se beskrivelsen for den valgte indeks .


Previous:Visual Basic RPG tutorial Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change