Question

VB sql 标准表达式中数据类型不匹配

Sub test()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim mybook As String
mybook = ThisWorkbook.FullName

With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & mybook
.Open
End With
sql = "select * from [数据源$a2:c] where 检查时间-" & Date & ">60"
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
Worksheets("sheet1").Range("a1").CopyFromRecordset rs
End Sub
提示rs.Open sql, cnn, adOpenKeyset, adLockOptimistic标准表达式中数据类型不匹配

Answer 1

sql = "select * from [数据源$] where 检查时间-" & Date & ">60"

追问

谢谢，但是还是不行哎

追答

sql = "select * from [数据源$] where 检查时间-cast('" & Date & "' as datetime)>60"

Answer 2

SQL Server数据中运算符与表达式