请教通过excel对access增删改查问题

jian82372387

请教我需要将excel文件作为前台文件放置多台电脑使用，access数据库放在固定一台电脑，如何在sheet1那里B2单元格填写主机的IP地址，从而可以将con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\电动车台账.accdb"这个连接路径不需要改动就可以其他电脑可以直接使用，还有一个需求如何在sheet2表中写按照J1-J4所填写的条件查询出数据库里面符合条件的数据

opiona

ADO+ACCESS/MySQL/MSSQL 增修改删 示例
https://club.excelhome.net/thread-1635846-1-1.html

实现局域网内多用公用 就将MDB文件放到一个共享文件夹
ThisWorkbook.Path & "\电动车台账.accdb"
Str_coon ="Provider=Microsoft.Ace.OLEDB.12.0;Data Source=\\192.168.1.103\共享文件夹名\Info.mdb"  
192.168.1.103 也可以是共享文件夹所在电脑的用户名

shiruiqiang

https://club.excelhome.net/forum ... =1412070&extra=

网络文件（IP地址前为双反斜杠,例如：\\192.168.0.1\文件夹\文件.accdb）

jian82372387

shiruiqiang 发表于 2024-3-9 22:13
https://club.excelhome.net/forum.php?mod=viewthread&tid=1412070&extra=

网络文件（IP地址前为双反斜 ...

请问第二个需求按条件查询，能帮忙解决一下吗？

opiona

实现查询

QQ14885553.rar (100.32 KB, 下载次数: 6)

2024-3-10 14:10 上传

点击文件名下载附件

1.     Set SHX = Worksheets("查询")
   
2.     BL查询方式 = False '//模糊查询   = True '//精确查询, =false  '//模糊查询
   
3.    
   
4.     Rem 查询
   
5.     StrSQL = "SELECT * "
   
6.     StrSQL = StrSQL & " FROM [1栋电动车台账]"
   
7.     StrSQL = StrSQL & " WHERE 1=1"
   
8.     If SHX.Range("J3").Value <> "" Then
   
9.         StrSQL = StrSQL & " AND DATEDIFF('D','" & SHX.Range("J3").Value & "',填写日期)>=0"
   
10.     End If
    
11.     If SHX.Range("J4").Value <> "" Then
    
12.         StrSQL = StrSQL & " AND DATEDIFF('D',填写日期,'" & SHX.Range("J4").Value & "')>=0"
    
13.     End If
    
14.    
    
15.     If BL查询方式 = True Then
    
16.         If SHX.Range("J1").Value <> "" Then
    
17.             StrSQL = StrSQL & " AND 房号='" & SHX.Range("J1").Value & "'"
    
18.         End If
    
19.         If SHX.Range("J2").Value <> "" Then
    
20.             StrSQL = StrSQL & " AND 联系电话='" & SHX.Range("J2").Value & "'"
    
21.         End If
    
22.     Else
    
23.         If SHX.Range("J1").Value <> "" Then
    
24.             StrSQL = StrSQL & " AND INSTR(房号,'" & SHX.Range("J1").Value & "')>0"
    
25.         End If
    
26.         If SHX.Range("J2").Value <> "" Then
    
27.             StrSQL = StrSQL & " AND INSTR(联系电话,'" & SHX.Range("J2").Value & "')>0"
    
28.         End If
    
29.     End If

复制代码