hvordan man kan erstatte en værdi i en adgang forespørgsel

Indlæg af Hanne Mølgaard Plasc     opdateret: 2011-10-04

Vide, hvordan man erstatte værdier i en Microsoft Access- database forespørgsel kan gøre din forespørgsler mere fleksibel . Access er en relationel database system der almindeligvis anvendes til mindre databaser . Visual Basic for Applications , eller VBA , er et computer-programmeringssprog udviklet af Microsoft til at automatisere rutineopgaver i Access og andre Microsoft Office- programmer . En forespørgsel bruges til at hente data fra en database tabel . I VBA kan du bruge variabler til at erstatte værdier i en forespørgsel
1 .
Start Microsoft Office Access og vælge " 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 .
Kopier og indsæt koden nedenfor ind i din modul . Koden vil skabe en tabel , føje data til den , og derefter søge i data ved hjælp af en variabel .
Private Sub substituteQueryVal ( )

Dim db Som Database
Dim rcrdSet Som Recordset
Dim strSQL As String
Dim Xcntr As Integer
Dim substituteVAl Som String

substituteVAl=" C # "

Set db=CurrentDb
strSQL=" CREATE TABLE querySubstituteVal ( indx , sprog TEKST , svært TEXT ) "
DoCmd . RunSQL ( strSQL )

strSQL=" INSERT INTO querySubstituteVal ( indx , sprog , svært ved at ) "
strSQL=strSQL " VALUES ( 1 , » C « , »5. ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )


strSQL=" INSERT INTO querySubstituteVal ( indx , sprog , svært ved at ) "
strSQL=strSQL " VALUES (2 , ' C # ' , ƈ ');"

DoCmd. SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO querySubstituteVal ( indx , sprog , svært ) "
strSQL=strSQL " VALUES (3 , ' VB ' , Ɖ ');"

DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" SELECT querySubstituteVal. Language , querySubstituteVal. Difficulty "

strSQL=strSQL " Fra querySubstituteVal "
strSQL=strSQL " WHERE (( ( querySubstituteVal. Language )=' " ( substituteVAl ) "'));"


Set rcrdSet=db. OpenRecordset ( strSQL )
rcrdSet. MoveLast
rcrdSet. MoveFirst

For Xcntr=0 Til rcrdSet. RecordCount-1

MsgBox " Sværhedsgrad til " rcrdSet . Felter ( " sprog " ) . Value " er " _
rcrdSet. Fields ( " problemer " ) . Value

rcrdSet. MoveNext
Næste Xcntr

rcrdSet. Close
db. Close


End Sub
3 .
Kør din subrutine ved at trykke " F5 ".


Previous:hvordan du indsætter metadata i flash video Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change