excel多个条件调用ACCESS数据库数据

5662229

请各位老师在我的EXCEL编写一条代码，实现EXCEL在ACCESS数据库内,调取满足所有条件的最后多少行的数据。

EXCELLMY

用ADO加数组试试

microyip

首先你先学一下基础知识，把基础代码弄出来，遇到疑难，把具体情况描述一下，再发帖求助

donghui2363

Sub 数据()
Dim cnn, rs, sql
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
    With cnn
        .Provider = "microsoft.ace.oledb.12.0"
        .ConnectionString = ThisWorkbook.Path & "\数据库.accdb"
        .Open
    End With
    bc = [a2]: scx = [b2]: pz = [c2]
    sql = "select 班次,生产线,品种 from 生产命令单 where 班次='" & bc & "' and 生产线='" & scx & "' and 品种='" & pz & "'"
    rs.Open sql, cnn, 3, 2
    [d2] = rs.RecordCount
    Range("a3").CopyFromRecordset rs
    cnn.Close
    Set cnn = Nothing
End Sub
画个按钮，把代码贴进去

5662229

donghui2363 发表于 2019-12-17 10:44
Sub 数据()
Dim cnn, rs, sql
Set cnn = CreateObject("adodb.connection")

多谢提供代码，对不起我没有表达清楚
是这样，满足三个条件的数据，最新的多少行也是个判断，比如：我需要满足以上三个条件的最新的5条或6条甚至200条（假设有10万条数据的话）。
但不只是显示等于的值，而是显示整个一行所有的值。
请指点

donghui2363

你把代码放到按钮里，如果有新纪录，点一次就会刷过来

5662229

donghui2363 发表于 2019-12-17 12:21
你把代码放到按钮里，如果有新纪录，点一次就会刷过来

不是查它有多上个值是重复的，而是要提取和他相关的最新的某几条数据行。

donghui2363

意思是输入6就从满足条件的记录里选取1-6条记录显示出来？

5662229

对，是最新更新的倒数6条，按顺序显示，而不是全部

donghui2363

那如果你更新的数据只有一条怎么办？