如何从 Excel 向 Access 写入正确的 SQL 请求而不会出错？

如何解决如何从 Excel 向 Access 写入正确的 SQL 请求而不会出错？

我想从 Excel 到 Access 运行 sql 查询，如下所示。运行代码时，出现“条件表达式中的数据类型不兼容”错误。请问你有什么提示可以让我摆脱这种情况吗？

问候

Sub test()
  Dim myDate As Date
  Dim myCUID As String
  Dim i As Long
  Dim cnt As Object,rst As Object

  Set rst = CreateObject("ADODB.Recordset")
  Set cnt = CreateObject("ADODB.Connection")

  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.Path & "\ATD_monitoring_basePro.accdb';"

  'Open connection to the database
  cnt.Open strConnection

  'Begin transaction processing
  cnt.BeginTrans

  myDate = WorkSheets("Bla").Range("A1").Value
  myCUID = "XXXX1234"
  sqlCmd = "SELECT COUNT(*) FROM Table1 WHERE Date= '" & myDate & "' AND CUID='" & myCUID & "';"
  rst.Open sqlCmd,cnt

  'Close the ADO objects
  cnt.Close
  Set rst = nothing
  Set cnt = nothing
  On Error GoTo 0

End Sub

解决方法

在 Access 中，日期必须用 with open("file.txt") as f: for line in f: print(line) 包裹并格式化为 #。

试试这个：

mm/dd/yyyy