vba中使用sql语句通配符模糊查找

活体路面吸尘器 · 发表于 2020-7-14 00:21

你试试
Sub 查询()
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
      For i = 2 To Range("b65536").End(xlUp).Row
         s1 = Cells(i, 2)
         s2 = CDate(Cells(i, 3))
         s3 = Cells(i, 4)
         Sql = "select * from [基表$] where 车牌号='" & s1 & "' and " _
            & "路线 like ' %s3% ' and #" & s2 & "#  between cdate(left(通行时间,instr([通行时间],'-')-1)) " _
            & "and cdate(right(通行时间,instr([通行时间],'-')-1))"
         rs.Open Sql, cnn, 1, 3
         If rs.RecordCount = 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 3
         End If
         rs.Close
      Next i
End Sub

这个怎么不对，应该怎样修改

microyip · 发表于 2020-7-14 09:06

microyip · 发表于 2020-7-14 09:18

因为案例涉及到比较时间的问题，用SQL来写比较复杂，不建议使用

活体路面吸尘器 · 发表于 2020-7-19 16:07

microyip 发表于 2020-7-14 09:06

非常感谢，非常感谢

zpy2 · 发表于 2020-7-19 19:39

基表和查询表的通行时间，建议预处理一下，拆分成开始时点和结束时点可能会好处一些。

		自动登录	找回密码
密码			免费注册

[求助] vba中使用sql语句通配符模糊查找

最新热点 /1