关于任意条件从access数据库中提取数据问题的求助

rio123

如上图根据多个条件中的一个或多个或没有条件，从ACCESS数据库中提取数据，求哪位老师帮忙写个代码，非常感谢！
20190309求助.rar (38.29 KB, 下载次数: 180)

2019-3-9 16:40 上传

点击文件名下载附件

northwolves

1. Sub TEST()
   
2. Dim ARR, SQL$, RST As Object
   
3. ARR = [B2:H3]
   
4. For i = 1 To 7
   
5. If ARR(2, i) > "" Then SQL = SQL & " AND " & ARR(1, i) & " like '%" & ARR(2, i) & "%'"
   
6. Next
   
7. SQL = "SELECT " & Join([transpose(transpose(b5:i5))], ",") & " FROM [物料记录] WHERE " & Mid(SQL, 5)
   
8. [B6:I65536] = ""
   
9. With CreateObject("adodb.connection")
   
10. .Open "Provider=Microsoft.Ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\物料记录.mdb"
    
11. Set RST = .Execute(SQL)
    
12. If Not RST.EOF Then [B6].CopyFromRecordset RST
    
13. .Close
    
14. End With
    
15. MsgBox "ok"
    
16. End Sub
    

复制代码

rio123

northwolves 发表于 2019-3-9 17:36

非常感谢前版主的帮助。当所有查询条件为空时，出现下图的错误。能否实现当查询条件全部为空时，提取所有数据？麻烦您了！

另外一个问题；如果更改查询条件的位置，只提取部分数据，代码如何修改?(本人小白，麻烦i您了！)

20190311求助.rar (40.47 KB, 下载次数: 13)

2019-3-11 08:13 上传

点击文件名下载附件

northwolves

1. Private Sub CommandButton1_Click()
   
2. Dim ARR, SQL$, RST As Object, temp$
   
3. ARR = [B2:H3]
   
4. For i = 1 To 7
   
5. If ARR(2, i) > "" Then temp = temp & " AND " & ARR(1, i) & " like '%" & ARR(2, i) & "%'"
   
6. Next
   
7. SQL = "SELECT " & Join([transpose(transpose(b5:i5))], ",") & " FROM [物料记录] "
   
8. If Len(temp) Then SQL = SQL & " WHERE " & Mid(temp, 5)
   
9. [B6:I65536] = ""
   
10. With CreateObject("adodb.connection")
    
11. .Open "Provider=Microsoft.Ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\物料记录.mdb"
    
12. Set RST = .Execute(SQL)
    
13. If Not RST.EOF Then [B6].CopyFromRecordset RST
    
14. .Close
    
15. End With
    
16. MsgBox "ok"
    
17. End Sub
    

复制代码

northwolves

另外一个问题；如果更改查询条件的位置，只提取部分数据，代码如何修改?(本人小白，麻烦i您了！)

数据格式不规范，那你就一项一项的连起来吧，不仅仅是界面难看的问题

zpy2

For i = 1 To 7
If ARR(2, i) > "" Then SQL = SQL & " AND cstr(" & ARR(1, i) & ") like '%" & ARR(2, i) & "%'"
Next

我记得日期型好像有要 # 定界的，可能要转换一下

rio123

northwolves 发表于 2019-3-11 09:59

谢谢您的帮组；
还有两个问题请您帮忙：1、数据库不是在相同文件夹，放在共享平台上，并设置密码，如：数据库放在“\\190.250.37.21\数据库\物料记录.mdb”，文件打开密码为“123456”，如何读取？
2、仅提取部分数据，如下图


麻烦您了！



20190311求助.rar (1.08 MB, 下载次数: 20)

2019-3-11 12:12 上传

点击文件名下载附件

rio123

zpy2 发表于 2019-3-11 11:02
For i = 1 To 7
If ARR(2, i) > "" Then SQL = SQL & " AND cstr(" & ARR(1, i) & ") like '%" & ARR(2, i ...

谢谢您的热心帮助

zpy2

rio123 发表于 2019-3-11 12:12
谢谢您的帮组；
还有两个问题请您帮忙：1、数据库不是在相同文件夹，放在共享平台上，并设置密码，如： ...

如果在局域网上共享访问数据库，只要将绝对路径更改为 "//计算机名/共享目录名/文件名.MDB" 即可，比如
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=//access911/floder1/1.mdb;User ID='admin';Password='rr';Jet OLEDB:Database Password='1';"

https://blog.csdn.net/bujanbusan/article/details/6537564

rio123

zpy2 发表于 2019-3-11 16:03
如果在局域网上共享访问数据库，只要将绝对路径更改为 "//计算机名/共享目录名/文件名.MDB" 即可，比如 ...

感谢您的热心帮助，但是还是出错，麻烦帮忙修改代码后模拟运行下