Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
S’applique à : Access 2013, Office 2013
Syntaxe
expression . Préparer
expression Variable représentant un objet QueryDef.
Remarques
La propriété Prepare permet soit de créer une procédure stockée temporaire à partir de la requête et de l'exécuter ensuite, soit d'exécuter la requête directement. Par défaut, la propriété Prepare est définie sur dbQPrepare. Toutefois, vous pouvez la définir sur dbQUnprepare pour empêcher toute préparation de la requête. Dans ce cas, elle est exécutée à l'aide de l'API SQLExecDirect.
La création d'une procédure stockée peut ralentir l'opération initiale, mais augmente les performances de toutes les références ultérieures à la requête. Toutefois, certaines requêtes ne peuvent pas être exécutées sous la forme d'une procédure stockée. Dans ce cas, vous devez définir la propriété Prepare sur dbQUnprepare.
Si Prepare est défini sur dbQPrepare, cela peut être remplacé lorsque la requête est exécutée en définissant l’argument options de la méthode Execute sur dbExecDirect.
Remarque
[!REMARQUE] L'API SQLPrepare ODBC est invoqué dès que la propriété DAO SQL est définie. Par conséquent, pour améliorer les performances à l'aide de l'option dbQUnprepare, vous devez définir la propriété Prepare avant de définir la propriété SQL.
Exemple
Cet exemple utilise la propriété Prepare pour spécifier qu'une requête doit être exécutée directement plutôt que de passer par la création préalable d'une procédure stockée sur le serveur.
Sub PrepareX()
Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim qdfTemp As QueryDef
Dim rstTemp As Recordset
' Create ODBCDirect Workspace object and open Connection
' object.
Set wrkODBC = CreateWorkspace("", _
"admin", "", dbUseODBC)
' Note: The DSN referenced below must be configured to
' use Microsoft Windows NT Authentication Mode to
' authorize user access to the Microsoft SQL Server.
Set conPubs = wrkODBC.OpenConnection("Publishers", , , _
"ODBC;DATABASE=pubs;DSN=Publishers")
Set qdfTemp = conPubs.CreateQueryDef("")
With qdfTemp
' Because you will only run this query once, specify
' the ODBC SQLExecDirect API function. If you do
' not set this property before you set the SQL
' property, the ODBC SQLPrepare API function will
' be called anyway which will nullify any
' performance gain.
.Prepare = dbQUnprepare
.SQL = "UPDATE roysched " & _
"SET royalty = royalty * 2 " & _
"WHERE title_id LIKE 'BU____' OR " & _
"title_id LIKE 'PC____'"
.Execute
End With
Debug.Print "Query results:"
' Open recordset containing modified records.
Set rstTemp = conPubs.OpenRecordset( _
"SELECT * FROM roysched " & _
"WHERE title_id LIKE 'BU____' OR " & _
"title_id LIKE 'PC____'")
' Enumerate recordset.
With rstTemp
Do While Not .EOF
Debug.Print , !title_id, !lorange, _
!hirange, !royalty
.MoveNext
Loop
.Close
End With
conPubs.Close
wrkODBC.Close