2011-06-03 55 views

回答

7

我得到了以下工作:

Dim db As DAO.Database 
Dim qry As DAO.QueryDef 

Set db = CurrentDb 

Set qry= db.QueryDefs("NameOfMyStoredQuery") 

qry.Parameters(0) = FirstParamValue 
qry.Parameters(1) = SecondParamValue 
qry.Parameters(2) = ThirdParamValue 

qry.Execute 
+2

你也應該能夠使用的參數名稱 – 2011-06-03 22:37:26

+4

還要考慮'qry.Execute dbFailOnError'並添加錯誤處理程序到你的過程。 – HansUp 2011-06-03 22:39:41