SQL Access VBA Excel

Question

我得到以下代码：

 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，我检查它是否获取了正确的值，并且这样做了，所以我不会得到我做错的事情。

Answer 1

您还需要格式化日期表达式：

 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") & "#"