Come accedere ed eseguire una query di seleziona in VBA

Microsoft Office Access consente ai programmatori di utilizzare Visual Basic, Applications Edition (VBA ) per creare applicazioni in Access . VBA è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in applicazioni Microsoft Office. Access è un sistema di database relazionale comunemente usato per i database più piccoli . Una query di selezione consente di recuperare i dati da una tabella di database . Un recordset è utilizzato per leggere i contenuti restituiti dalla query di selezione . In pochi passi è possibile scrivere codice VBA per creare una tabella e di visualizzarne il contenuto tramite una query di selezione . Istruzioni
1

Aprire Microsoft Office Access , fare clic su " Database vuoto ", quindi selezionare "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2

Copia e incolla il seguente codice nel nuovo modulo :

runSelectQuery Private Sub ( ) per

dim db As Database dim

rcrdSet come Recordset

dim strSQL As String dim

Xcntr As Integer

Set db = CurrentDb

strSQL = " CREATE TABLE selectQueryData ( NumField NUMERO , inquilino TESTO , TESTO Apt) ; "

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO selectQueryData ( NumField , inquilino , Apt ) "

strSQL = strSQL & " VALUES ( 1 , ' Giovanni ', ' A '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO selectQueryData ( NumField , inquilino , Apt ) "

strSQL = strSQL & " VALUES ( 2 , ' Susie ' , 'B' ) ; "

DoCmd . SetWarnings False

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO selectQueryData ( NumField , inquilino , Apt ) "

strSQL = strSQL & " VALUES ( 3 , ' Luis ',' C '); ".

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

strSQL =" Select * from selectQueryData selectQueryData "

strSQL = strSQL & "WHERE selectQueryData.Tenant = ' Luis '; "

rcrdSet = db.OpenRecordset ( strSQL ) per

rcrdSet.MoveLast

rcrdSet . MoveFirst

Xcntr = 0 Per rcrdSet.RecordCount - 1

MsgBox " inquilino : " & rcrdSet.Fields ( " inquilino" ) Value & " , vive in apt : " & _ < . br

rcrdSet.Fields > ( " Apt " ) . Valore

rcrdSet.MoveNext

Avanti Xcntr

rcrdSet.Close

db.Close

End Sub
3

Premere " F5 " per eseguire la subroutine . Il programma crea una tabella , inserire i dati nella tabella e utilizzare una query di selezione per visualizzare i dati di una riga particolare .

• Come installare le stampanti con VBScript 
• Come per tornare a Form1 da Form2 in Visual Basic