excel引用access查询时无数据输出!

sumimo

excel引用access查询时存在where语句无数据输出,把where语句删掉l可以正常引用,加上后就无法显示数据!还请各位大大给予帮助和支持!谢谢!Sub cx()
Dim myPath As String
myPath = ThisWorkbook.Path & "\监控数据.accdb"
Set conn = CreateObject("ADODB.CONNECTION")
conn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=excel 12.0;Data Source=" & myPath
End Sub
使用SQL查询 无条件过滤

access无条件过滤

access无条件过滤查询

使用SQL查询 增加条件过滤

access条件过滤

access条件过滤查询

chentonny

你的SQL写在哪里？

sumimo

chentonny 发表于 2019-1-23 19:00
你的SQL写在哪里？

感谢回复,之前发的贴子是查询数据的回显动作,没有写明,现在补上!
Sub CX()
Dim cnn As New ADODB.Connection
    Dim myPath As String
    Dim SQL  As String
    Unload MainForm   
    myPath = ThisWorkbook.Path & "\监控数据.accdb"
    Sheets("全网指标").Select
    Range("A8:l8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeLastCell, 12).ClearContents
    Selection.Clear
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath
SQL = "select * from bsc级数据"
Range("a8").CopyFromRecordset cnn.Execute(SQL)
Set cnn = Nothing
End Sub

sumimo

贴子别沉了呀..呼叫蓝版!

phsu

sumimo 发表于 2019-1-24 08:33
感谢回复,之前发的贴子是查询数据的回显动作,没有写明,现在补上!
Sub CX()
Dim cnn As New ADODB.Conn ...

寫入Where...無法查詢，是否把這段Where的SQL指令寫出來？這樣大家才知道錯在哪裡。

chentonny

还没执行就复制recorderset怎么会有数据？

d6cel

chentonny 发表于 2019-1-27 15:10
还没执行就复制recorderset怎么会有数据？

SQL筛选的记录有部分数值未能显示，是因为excel记录表中数值有什么要求？谢谢，帮忙解答一下。