dim sSQL as string
dim rds as ADODB.Recordset
sSQL = "Select * from 维修记录表 where  返还日期 <= #" & Format(Date, "yyyy-mm-dd") & "#"
Set rds = New ADODB.Recordset
rds.Open Trim$(sSQL), cnn, adOpenKeyset, adLockOptimistic其中,cnn 是已经打开的连接。执行的时候出错说“至少有一个参数没有被指定值”。
我想是where 子句的格式错了,但改了许多遍还是不成功。劳烦大家帮我看看问题出在哪,谢谢拉!
注:返还日期的格式是ACCESS中的短格式,如2004-7-12,而不是2004-07-12

解决方案 »

  1.   

    测试了一下
    两种没有问题
    sSQL = "Select * from 维修记录表 where  返还日期 <= #" & Format(Date, "yyyy-mm-dd") & "#"
    sSQL = "Select * from 维修记录表 where  返还日期 <= #" & Date & "#"返还日期的格式是ACCESS中的短格式,如2004-7-12,而不是
    短格式默认的是2004-07-12,不知你的咋会是2004-7-12????
      

  2.   

    ACCESS中日期的短格式是如2004-7-12,而不是2004-07-12(事实上,我想要的是这种格式),中格式是04-07-12。如果SQL语句没问题的话,那rds.Open Trim$(sSQL), cnn, adOpenKeyset, adLockOptimistic 会有什么问题呢,报错说这条语句至少有一个参数没有被指定值?????
      

  3.   

    现在发现不是SQL语句的问题,问题应该是rds.open这条语句的问题,我已经另发贴子了,谢谢你的回答:)
      

  4.   

    应该是Format的问题吧,我发觉很多内置的SQL函数在Access没有用处