访问 VBA SQL where 子句问题答案

【问题标题】：Access VBA SQL where clause issue访问 VBA SQL where 子句问题
【发布时间】：2013-09-27 21:51:35
【问题描述】：

我需要一些帮助。当我运行以下查询时，如果我在 where 中包含 Pkg 编号部分，我将不会得到任何结果。当我在 Access 中运行查询时，它工作正常。变量的例子包号 1_282 回复 201301

Dim db As Database 'generic database object
Dim rst As Recordset 'this is going to hold the query result
Set db = CurrentDb
Dim PKG As Double
Dim rptDT As Double
Dim wireDT As Date

Set rst = db.OpenRecordset("SELECT Max(tbl_Revision.Revision_Number) as Revision_Number FROM tbl_Revision" & _
" where (tbl_Revision.RUN_YR_MO=" & rptDT & ")" & _
" and (tbl_Revision.Package_Number=" & PKG & ")")

getRevision = rst!Revision_Number + 1

【问题讨论】：

tbl_Revision.Package_Number 是什么类型？
package_number 是表格中的文本字段。

标签： sql ms-access vba

【解决方案1】：

如果你想让 1_282 工作，PKG 不能是 Double。所以让它成为一个字符串。您还必须添加引号：

" where (tbl_Revision.RUN_YR_MO='" & rptDT & "')" & _

【讨论】：

" 和 (tbl_Revision.Package_Number=" & PKG & ")")