Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Software Database >> .

Come eseguire una query di un database in Access 2007

La possibilità di eseguire query da database diversi da quello che si sta usando può rendere l'applicazione di Access più dinamico , è possibile eseguire questa operazione utilizzando Visual Basic, Applications Edition (VBA ) . In VBA , è possibile utilizzare il metodo " OpenDatabase " per definire il percorso e il nome del database che si desidera interrogare . Dopo aver definito il database, è possibile utilizzare l'oggetto " Recordset " per visualizzare i risultati della query . Cose che ti serviranno
Northwind 2007 database di
Mostra più istruzioni
1

lancio Access 2007 , fare clic su " Database vuoto " e quindi fare clic sul pulsante "Crea" . Selezionare "Strumenti database" e poi cliccare su " Visual Basic ".
2

Creare una nuova procedura digitando il seguente codice :

QueryDatabase Private Sub ( ) economici
3

creare tre nuove variabili digitando il seguente codice VBA :

Dim rst come Recordset

Dim dbs As Database Dim

sqlstr As String

4

Definire il database che si interrogherà inserendo il seguente codice:

Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " ) economici 5

Creare una stringa SQL digitando il seguente codice per creare una query :

sqlstr = " . . ordini SELECT [ Nome della nave ] , ordini [ indirizzo della nave ] "

sqlstr = sqlstr & "FROM ordini "

sqlstr = sqlstr & " GROUP BY ordini [Nome della nave ] , Ordini [ indirizzo della nave ] , . ».
6

Copia e incolla il seguente codice per aprire la query attraverso un " Recordset " e visualizzare i risultati nella finestra immediata:

Set rst = dbs.OpenRecordset ( sqlstr ) per

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( " Nome della nave " ) . Valore

Debug.Print rst.Fields ( " l'indirizzo della nave " ) . valore

rst.MoveNext

loop
7

Fine vostra procedura digitando il seguente codice :

rst.Close

dbs.Close

End Sub

 

software © www.354353.com