反复读取access很卡顿

b76234567

我想写这么个函数  1.数据都存在一个access数据库里

2.写个函数 例如 function GetAge(name as string)
3.连接数据库 把数据读出来 关闭数据库...关闭连接

上面的模仿网上的教程写好了，但是如果同时读多个人的发现很卡，我怀疑是反复连接、关闭数据库引起的，我这方面还是小白，请各位老师指教

附上代码

1. Function 填入(name As String, item As String)
   
2.     '定义变量
   
3.     Dim rsCon As ADODB.Connection
   
4.     Dim rsData As ADODB.Recordset
   
5.     Dim szConnect As String
   
6.     Dim szSQL As String
   
7.     Dim value As String
   
8.     '连接数据
   
9.     Set rsCon = New ADODB.Connection
   
10.     Set rsData = New ADODB.Recordset
    
11.     szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    
12.                 "Data Source=C:\Users\Sui\Desktop\Excel\数据库.accdb"
    
13.    
    
14.     szSQL = "select " & item & " from 人员信息 where(姓名='" & name & "')"
    
15.     rsCon.Open szConnect
    
16.     rsData.Open szSQL, rsCon, adOpenKeyset, adLockOptimistic
    
17.     '读取数据
    
18.     If Not rsData.EOF Then
    
19.         value = rsData.Fields.item(0)
    
20.     Else
    
21.         MsgBox "读取失败"
    
22.     End If
    
23.     '关闭数据库 清楚缓存
    
24.     rsData.Close
    
25.     Set rsData = Nothing
    
26.     rsCon.Close
    
27.     Set rsCon = Nothing
    
28.     填入 = CStr(value)
    
29. End Function

复制代码

vbload999

access本来就是桌面级的数据库，多人读肯定卡，我试过5个进程读同一个库，每个大概卡1秒多
多线程并发的，建议用mysql，
至于sqllite，没用过，感觉不如mysql，mysql有服务端的

zpy2

读多人，是多人同时并发吗？如果卡是不是一种是换mssql server,还有或者换成如图iis三层结构。

opiona

rsData.Open szSQL, rsCon, adOpenKeyset, adLockOptimistic
adLockOptimistic 改成： adLockReadOnly  
缺省的上锁类型，只读方式上锁允许多个用户同时读取同样的数据，但不能改变数据。

例如：RS.Open StrSQL, CN, 1, 1

ivccav

最消耗资源的是创建连接对象的过程。因此可把rsCon定义为公共变量，


这样在频繁连接数据库时，就能避免频繁创建连接对象，节约时间。


Set rsCon = Nothing是从内存中清除连接对象，这句不能有。

1. Public rsCon As ADODB.Connection
   
2. 
   
3. Sub OpenConnection()
   
4.     Dim szConnect As String
   
5.     Set rsCon = New ADODB.Connection
   
6.     szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
   
7.                 "Data Source=C:\Users\Sui\Desktop\Excel\数据库.accdb"
   
8.     rsCon.Open szConnect
   
9.     rsCon.Close
   
10. End Sub
    
11. 
    
12. Function 填入(name As String, item As String)
    
13.     Dim rsData As ADODB.Recordset
    
14.     Dim szSQL As String
    
15.     Dim value As String
    
16.     Set rsData = New ADODB.Recordset
    
17.     szSQL = "select " & item & " from 人员信息 where(姓名='" & name & "')"
    
18.    
    
19.     If rsCon Is Nothing Then Call OpenConnection
    
20.     If rsCon.State = 0 Then rsCon.Open
    
21.    
    
22.     rsData.Open szSQL, rsCon, adOpenKeyset, adLockOptimistic
    
23.     If Not rsData.EOF Then
    
24.         value = rsData.Fields.item(0)
    
25.     Else
    
26.         MsgBox "读取失败"
    
27.     End If
    
28. 
    
29.     rsData.Close
    
30.     rsCon.Close
    
31.     Set rsData = Nothing
    
32.     填入 = CStr(value)
    
33. End Function
    
34. 
    

复制代码

b76234567

opiona 发表于 2018-5-24 09:26
rsData.Open szSQL, rsCon, adOpenKeyset, adLockOptimistic
adLockOptimistic 改成： adLockReadOnly  
...

多谢指教！

b76234567

ivccav 发表于 2018-5-24 09:41
最消耗资源的是创建连接对象的过程。因此可把rsCon定义为公共变量，

多谢指教！ 我也考虑到这个问题了，我试试看。另外再请教两个问题
1.能不能打开excel自动连接好数据库
2.如果最后不擦除内存里的连接 excel关闭后会不会还占着内存？

诱儿元

将创建数据库连接调整到主过程，function用变量传入数据库连接，Function 填入(name As String, item As String，cnn as object)

ivccav

b76234567 发表于 2018-5-24 10:40
多谢指教！ 我也考虑到这个问题了，我试试看。另外再请教两个问题
1.能不能打开excel自动连接好数据库
...

1.能不能打开excel自动连接好数据库

连接资源是很珍贵的资源，为什么要打开文件就连接？一台电脑只能有10个连接（XP系统）。在需要的时候再连接！要想打开文件就连接，在Workbook_Open中调用连接就行了，但是完全没有必要。且用完就应该关闭连接，免得占用资源。

2.如果最后不擦除内存里的连接 excel关闭后会不会还占着内存？

关闭 excel后系统会自动回收内存。