关于SELECT语句中的类型匹配问题
数据库为SQLSERVER2000,其他程序可运行,有问题的部分如下:
With adors
If .State = 1 Then .Close
strSQL = "Select * from djqsr where 生产日期 between '# "+DTPicker1.Value + "# ' and '# " + DTPicker2.Value + "# ' "
.CursorLocation = adUseClient
.Open strSQL, adocn, adOpenDynamic, adLockOptimistic, 2
End With
错误提示:实时错误 '13 ',类型不匹配.
黄色光标覆盖STRSQL行代码.
请大侠们给点提示!
谢谢
[解决办法]
try
Dim FirstDate As Date
Dim LastDate As Date
FirstDate = DTPicker1.Value
LastDate = DTPicker2.Value
With adors
If .State = 1 Then .Close
strSQL = "Select * from djqsr where 生产日期 between ' "+Format(FirstDate, "YYYYMMDD ") + " ' and ' " + Format(LastDate, "YYYYMMDD ") + " ' "
.CursorLocation = adUseClient
.Open strSQL, adocn, adOpenDynamic, adLockOptimistic, 2
End With
參考
http://www.vbgood.com/viewthread.php?tid=34216
[解决办法]
另外，可以看看這個帖子，
http://www.80diy.com/home/20010108/20/56495.html
