hvordan man kan output flere værdier fra en adgang forespørgsel

Indlæg af Jannik Riis     opdateret: 2011-10-07

At lære at output flere værdier fra en forespørgsel kan gøre din computer ansøgning mere dynamisk . Et program du kan bruge til at søge en database tabel er Microsoft Office Access . Access er en relationel database management system anvendes ofte til små lokale databaser . Visual Basic for Applications er en computer programmering sprog, der bruges til at automatisere rutineopgaver i Access og andre Microsoft Office- programmer . En forespørgsel bruges til at hente information fra en database tabel
1 .
Start Microsoft Office Access 2010 og vælg " Tom database "og derefter klikke på " Opret ". Klik på " Databaseværktøjer "og vælg " Visual Basic ". Klik på " Indsæt "-feltet og vælg " Modul ".
2 .
Tryk på " Ctrl " og " A " og tryk " Delete " for at slette alle eksisterende kode .

3 .
Kopier og indsæt koden nedenfor ind i din modul . Subrutinen vil oprette en ny tabel , føje poster til det, og så forespørgslen flere felter . Forespørgslen vil output flere værdier for disse områder og vise dem gennem en besked boks .

Private Sub accessMultipleQueryValues ( )

Dim dbs som database
Dim rst Som Recordset
Dim strSQL As String
Dim X As Integer

Set dbs=CurrentDb

strSQL=" CREATE TABLE multipleValues ( Felt1 TEKST , Felt2 TEKST , Field3 TEXT ) "
DoCmd. RunSQL ( strSQL )


strSQL=" INSERT INTO multipleValues ( Felt1 , Felt2 , Field3 ) "
strSQL=strSQL " VALUES ( ' field1Data række 1 ' , ' field2Data række 1 ' , ' field3Data række 1 ' ) , "
DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO multipleValues ( Felt1 , Felt2 , Field3 ) "

strSQL=strSQL " VALUES ( ' field1Data række 2 «,» field2Data række 2 «,» field3Data række 2 ');"

DoCmd. SetWarnings False

DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO multipleValues ( Felt1 , Felt2 , Field3 ) "
strSQL=strSQL " VALUES ( ' field1Data række 3 ' , ' field2Data række 3 ' , ' field3Data række 3 ');"

DoCmd. SetWarnings False
DoCmd . RunSQL ( strSQL )

strSQL=" Vælg multipleValues . * fra multipleValues "
strSQL=strSQL " WHERE multipleValues. Field1=' field1Data række 2 ' ; "

Set rst=dbs. OpenRecordset ( strSQL )
rst. MoveLast
rst. MoveFirst
For X=0 Til rst. RecordCount-1

MsgBox " Felt1 Data : " rst. Fields ( 0 . ) Værdi " , Felt2 Data : " _
rst. Fields (1 ) Value . " Field3 Data : " rst. Fields ( 2 ) . Værdien

rst. MoveNext
Næste X

rst. Close

dbs. Close

End Sub
4 .
Tryk på " F5 " for at køre din subrutine .


Previous:hvordan du installerer Ajax i Microsoft Visual Studio 2005 Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change