Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come creare una query in Access VBA

Sapere come creare velocemente una query in Microsoft Access e quindi utilizzarlo con Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo . Access è un database relazionale che è incluso nella suite Microsoft Office . Una query viene utilizzato per recuperare i dati da una tabella di database . VBA è un linguaggio di programmazione di computer che viene utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office . In pochi passi è possibile creare una subroutine utilizzando VBA per eseguire query sui dati della tabella Employees del database Northwind . Cose che ti serviranno
Microsoft Office Access
Show More Istruzioni
1

Aprire il database di Access Northwind . Il database Northwind è incluso nella suite Microsoft Office .
2

clic su "Crea " e selezionare " query ". Selezionare la scheda " Tabelle " , selezionare "Dipendenti" e quindi fare clic su "Aggiungi ". Selezionare " Chiudi".
3

doppio clic su " Società", " Cognome" e "Nome" per aggiungere i campi . Selezionare " Visualizzazione SQL " nel riquadro "Risultati" . Premere il tasto " Ctrl " e "C" per copiare la query di selezione .
4

Clicca su "Strumenti database" e poi selezionare " Visual Basic ". Digitare quanto segue per creare un nuovo sottoprogramma : " . Inserire"

createVBAQuery Private Sub ( ) per

Press
5

digitare quanto segue per dichiarare le variabili :

Dim strSQL As String

Dim rst come Recordset

Dim dbs As Database

Set dbs = CurrentDb
6

Press "Ctrl" e "V" per incollare la query di selezione all'interno della subroutine . Aggiungi " strSQL = " all'inizio della query e aggiungere le virgolette finali alla fine della query come segue : . .

StrSQL = "SELECT Employees.Company , Lavoratori [ Cognome ] , Lavoratori [ Nome ] FROM Impiegati ; ».
7

digitare quanto segue per aprire la query di selezione e visualizzare i risultati

Set rst = dbs.OpenRecordset ( strSQL ) per

RST . MoveLast

rst.MoveFirst

Fate pur non rst.EOF

Debug.Print rst.Fields ( 0 ) . Value & "

 

Programmazione © www.354353.com