• 
  

  Tillgång : VBA exekvera frågan

  
  

Microsoft Access är en del av Microsofts Office-paket . Med hjälp av denna programvara kan du skapa enskilda databaser , rapporter och formulär . Tillträde kan du skapa dina egna program med dessa komponenter. Att lägga ännu mer funktionalitet i applikationer och databaser , kan du programmera uppgifter i Visual Basic for Applications (VBA ) . VBA är Microsofts standard utveckling språk för Office -produkter. Språket bygger bort av Visual Basic 6. 0 och använder liknande syntax . En av de många saker du kan göra med detta språk är köra frågor på dina data .
1
köra en fråga och sätta dess resultat i ett rekord för manipulation . . Kopiera och klistra in VBA -koden nedan för att läsa in data från din fråga .



Dim dbMyDatabase Som DAO. Database

Dim rsMyRecords Som DAO . Recordset



Set dbMyDatabase=CurrentDb

Set rsMyRecords=dbMyDatabase. OpenRecordset ( " MyQuery " )
2 .

köra en fråga med ingångsparametrar hjälp av en fråga definition objekt och sedan ladda sina resultat i en post som enligt den kod som exemplet nedan .



Dim dbMyDatabase Som DAO. Database

Dim rsMyRecords Som DAO. Recordset

Dim qdMyParameters Som DAO. QueryDef



Set dbMyDatabase=CurrentDb

Set qdMyParameters=dbMyDatabase. QueryDefs ( " MyQuery " )

qdMyParameters. Parameters ( " MyParameter " )=" värde "

Set rsMyRecords=qdMyParameters. OpenRecordset ( )
3 .
igenom alla rekord tillbaka och utföra en åtgärd . Exemplet nedan ett sätt att göra detta .



Har visserligen inte rsMyRecords. EOF

Debug. Print " innehållet i min kolumn : " rsMyRecords [ MyColumnName ]

rsMyRecords. MoveNext

Loop
4 .
Kör en SQL- fråga i stället för en namngiven Access-frågan och sätta dess resultat i en rad rekord för manipulation . Kopiera och klistra in VBA -koden nedan .



Dim dbMyDatabase Som DAO. Database

Dim rsMyRecords Som DAO. Recordset

Dim strQuery As String



strQuery=" SELECT * FROM MinTabell "

Set dbMyDatabase=CurrentDb

Ställ rsMyRecords=dbMyDatabase . OpenRecordset ( strQuery )
5 .
Kör ett kommando som inte returnerar några poster med denna VBA -kod . Uppdatera och ta bort kommandon är exempel på uttalanden som inte returnerar några poster .



CurrentDb. Execute " MyQueryName "


tips och varningar




EOF står för " i slutet av filen , " vilket i detta fall innebär det inte finns fler journaler tillgängliga för slinga igenom.

Var noga med att frigöra minne från din post uppsättningar genom att ringa på "Stäng " -kommandot .

Previous：nothing Next：mikrochip utvecklingsverktyg

Relaterade artiklar