|
Queries |
| 2.19 Creare ed eseguire una query Pass_through temporanea |
| Alessandro Baraldi |
|
Il codice VBA della funzione che segue è stato tratto dall'articolo 210323 di Microsoft Knowledge Base, e serve a creare ed eseguire una query pass_through temporanea.
Function ExecuteSPT (sqltext As String, connectstring As String)
' Scopo: Esegue query pass-through temporanea.
' Argomenti della funzione: sqltext: Stringa SQL da eseguire.
' connectstring: Connection string, deve seguire il predicato "ODBC;".
Dim mydb As DAO.Database, myq As DAO.QueryDef
Set mydb = DBEngine.Workspaces(0).Databases(0)
'Crea un oggetto QueryDef temporaneo che non verrą salvato.
Set myq = mydb.CreateQueryDef("")
'Imposta la proprietą ReturnsRecords a False allo scopo di usare
'il metodo Execute.
myq.returnsrecords = False
myq.connect = connectstring
myq.sql = sqltext
myq.Execute
myq.Close
End Function
NOTA La funzione di cui sopra fa riferimento alla libreria Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, è necessario aggiungere al database i riferimenti a Microsoft DAO 3.6 Object Library. |