我得到了这段代码：
SQLQ = "SELECT * FROM blabla WHERE bsn = '" &
Format(ThisWorkbook.Sheets("QueryResult").Range("B1").Value,
"#########000000000") & "' AND datum= '#" &
ThisWorkbook.Sheets("Initiële berekening").Range("C6").Value & "#'"
Debug.Print SQLQ
objRs.Open SQLQ, con, adOpenStatic
当我运行它时，我从VBA收到一个错误。“条件表达式中的数据类型不匹配”（错误-2147217913（80040e07））
使用debug.print，我检查它是否获取了正确的值，并且确实获取了正确的值，所以我不会得到我做错的事情。
您还需要格式化日期表达式：
SQLQ = "SELECT * FROM blabla WHERE bsn = '" &
Format(ThisWorkbook.Sheets("QueryResult").Range("B1").Value, "#########000000000") & "' AND datum= #" &
Format(ThisWorkbook.Sheets("Initiële berekening").Range("C6").Value, "yyyy\/mm\/dd") & "#"
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句