Question

用vba 从EXCEL单元格里读取一个日期同sql 2005 数据库中的日期型记录作比较写sql语句的时候出问题了

关键代码如下：
Dim strcnn As String
Dim dat As Date, dat2 As Date, name As String, code As String
Dim i, j, TotalRows, TotalColumns As Integer
j = 0
strcnn = "Provider=SQLOLEDB;User ID=sa;password=LPB;Initial Catalog=DB_JQL2;Data Source=192.168.10.6"
Sheet1.Range("A2:F65536").Clear
dat = Worksheets("Sheet1").Cells(2, 9).Value
dat2 = Worksheets("Sheet1").Cells(2, 11).Value
code = Worksheets("Sheet1").Cells(4, 9).Value
If Not IsDate(dat) Or Not IsDate(dat2) Then
MsgBox "开工日期或完工日期错误，请检查后重新输入", vbCritical, "日期错"
Exit Sub
End If
cnn.Open strcnn '打开数据库
Dim SQLStr As String '要执行的SQL语句
SQLStr = "select QTY,OPN_DD,FIN_DD from MF_MO where OPN_DD> 'dat' and FIN_DD< 'dat2'"
cnn.Execute SQLStr
其中OPN_DD 和 FIN_DD 在数据库中都是日期型的
执行的时候出错了，提示：“运行时错误 '-2147214931 (80040e07)' 从字符串向datetime 转换时失败。”单步执行时黄色的错误标志停留在
cnn.Execute SQLStr

我觉得错误出在SQL语句上：SQLStr = "select QTY,OPN_DD,FIN_DD from MF_MO where OPN_DD> 'dat' and FIN_DD< 'dat2'" 这样对吗，如果不对应该怎么写呢？恳请各位高手指点

Answer 1

SQLStr = "select QTY,OPN_DD,FIN_DD from MF_MO where OPN_DD> 'dat' and FIN_DD< 'dat2'这样写不对要改成下面这样
SQLStr = "select QTY,OPN_DD,FIN_DD from MF_MO where CONVERT(varchar(100), OPN_DD,23)> '" & dat & "' and CONVERT(varchar(100), FIN_DD,23)< '" & dat2 & "'"
其中
CONVERT(varchar(100), GETDATE(), 23) 是把日期转换成 2006-05-16 格式的字符串

Answer 2

不知道。，问别人吧