VBA将参数添加到新查询def

时间:2016-02-05 14:28:40

标签: vba ms-access dao

此代码可以正常工作:

<a href="tst.com">here</a>

但是,当我尝试通过创建Dim db As DAO.Database, rs As DAO.Recordset, qd As DAO.QueryDef Set db = CurrentDb Set qd = db.QueryDefs("query1") qd.Parameters("[cou]").Value = "BE" Set rs = qd.OpenRecordset Do Until rs.EOF Debug.Print rs!title, rs!country_fk rs.MoveNext Loop rs.Close 而不是使用现有结果来获得相同的结果时,我在querydef行上收到错误。

qd.Parameters

我注意到Set db = CurrentDb Set qd = db.CreateQueryDef qd.SQL = "PARAMETERS [cou] Text ( 255 ); SELECT TOP 10 Title, Country_fk FROM dbo_Client WHERE Country_fk=[cou];" qd.Parameters("[cou]").Value = "BE" Set rs = qd.OpenRecordset Do Until rs.EOF ... = 0且不允许qd.Parameters.Count 有解决方案吗THX

1 个答案:

答案 0 :(得分:1)

如果您给routes.MapHttpRoute一个名字,那么您的第二个示例应该有效。如果您希望它是临时的QueryDef,请使用空字符串作为名称...

QueryDef