[求助]标准表达式中数据类型不匹配?

asdf26

我在编写access程序时，遇到如下问题：

    Dim con As Object

    Dim rs As New ADODB.Recordset

    Set con = Application.CurrentProject.Connection

    strSQL = "select * from 水电记录表 where 水电记录表.抄表日期 = " & "'" & Forms!增加年月!请输入年月 & "'"

    rs.Open strSQL, con, adOpenKeyset, adLockBatchOptimistic

程序执行到最后有下划线的这句话报错，信息为：“标准表达式中数据类型不匹配”

水电记录表中的“抄表日期”为日期型字段，窗体中“Forms!增加年月!请输入年月”也是日期型，strSQL = "select * from 水电记录表 where 水电记录表.抄表日期 = '2005年09月' "

我认为是条件语句where的问题，可是不知道怎样改写才能让程序通过，请前辈给予指点，谢谢啦！

LucasLynn

日期型数据不是用引号，而是#，比方说：



抄表日期=#2005-01-02#

asdf26

我也知道日期格式#2005-09-01#，可是在strSQL字符串中怎样组织呢？

我把"'" 改成了"#"，还是不行啊！

到底怎样写呢？

asdf26

具体语法怎么写呀？

sgrshh29

如果你能确认窗体上的日期是日期型的,可以这样写了试试:strSQL = "select * from 水电记录表 where" & "水电记录表.抄表日期 = " & Forms!增加年月!请输入年月不过从你的strsql中的Forms!增加年月!请输入年月来看,不像是日期型的,导致与水电记录表.抄表日期类型不匹配.

LucasLynn

以下是引用asdf26在2005-9-17 16:47:00的发言：



具体语法怎么写呀？

strSQL = BuildCriteria("select * from 水电记录表 where 水电记录表.抄表日期",dbDate,Forms!增加年月!请输入年月)

从语法上来说这样就正确了，但是从程序上来说，前面sgrshh29提出的很有道理，虽然没有看过你的窗体控件怎么命名，但是感觉你的Forms!增加年月!请输入年月确实不象是日期型的，好好检查一下。

asdf26

谢谢！我的窗体上的控件是文本框，我在格式和有效性上做了限制：“9999\年99\月”，另外，我在水电记录表的日期型字段上也做了格式限制：“yyyy年mm月”。根据您的启发，我在程序中加了一个日期型变量"dateLS"来记载"Forms!增加年月!请输入年月"的值，并且将strSQL替换成如下格式：dim dateLS as datedateLS = Forms!增加年月!请输入年月strSQL = "select * from 水电记录表 where 水电记录表.抄表日期=" & dateLSrs.SQL=strSQL......程序通过了，但是结果却错了！因为rs（注：recordset）永远为空，即：rs.recordcount=0,我很郁闷！请教大虾指点迷津！

asdf26

版主：你好！BuildCriteria是什么函数？我没见过。帮助上面也查不到。

五拱柳林生

strSQL = "select * from 水电记录表 where 水电记录表.抄表日期 = #" & cstr(cdate(Forms!增加年月!请输入年月)) & "#"



我想是可行的。

LucasLynn

以下是引用asdf26在2005-9-18 14:42:00的发言：



版主：你好！

BuildCriteria是什么函数？我没见过。帮助上面也查不到。

Application类的一个方法。