ADO 连接自身内存无法释放内存的一种解决方案

ldy · 发表于 2009-7-28 11:00

这个查询语句是特意写成这样的，效率很低，不考虑优化的问题。
同样的代码在不同的环境下运行效果差异非常大。

Sub 查询()
Dim conn As New ADODB.Connection
Dim SQL As String
Dim rc As New ADODB.Recordset
t = Timer
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
SQL = "select a.* from ((select * from [sheet1$]) as a left join (select * from [sheet1$]) as b on a.aa<>b.aa)"
rc.Open SQL, conn, 1, 3
Debug.Print rc.RecordCount
rc.Close
conn.Close
Set rc = Nothing
Set conn = Nothing
MsgBox Timer - t
End Sub

复制代码

ADO连接自身时有个严重的BUG，多次运行查询语句是会造成内存无法释放，并且会内存占用迭加。
所以有经验的人会尽量避免这种情况，分为两个文件，一个储存数据，一个运行代码。
但很多时候，又不得不进行“ADO 连接自身”这样的操作。那如何解决这个问题就成了一个很头痛的事情。
既然分为两个文件，只要不是“ADO 连接自身”就不会有这个BUG，那么我们可以写几句代码骗一骗EXCEL。

Sub 欺骗式查询()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly '转为只读
查询
ThisWorkbook.ChangeFileAccess xlReadWrite
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

复制代码

ThisWorkbook.ChangeFileAccess xlReadOnly
关键代码就这一句，实现了欺骗效果，
其他两句作用屏蔽屏幕刷新，避免出现“只读”字样；禁止提示，避免出现询问对话框
看一下两个程序的运行10次的后效果----内存占用相差 10倍。

ado.rar (40.15 KB, 下载次数: 821)

enmzxf · 发表于 2009-7-28 11:14

好啊，一直疑惑的问题解决了！！！

laoyebin · 发表于 2009-7-28 11:24

好方法，这样以后不用怕多次查询后耗内存了，而且速度也快了好多
刘版厉害

fsyyyy · 发表于 2009-7-28 11:53

学习再学习！谢谢ldy版主！

vb+ado会不会存在这问题？也没怎么留意过，平常都是set nothing 就好了。

飞云楼主 · 发表于 2009-7-28 12:02

谢谢版主，学习了。

thtfzhaobo · 发表于 2009-7-28 13:22

留个脚印，学习

YEST8 · 发表于 2009-8-4 20:31

谢谢版主,努力学习中!

zhaozyuan · 发表于 2009-8-5 13:27

多谢楼主共享

hanter007 · 发表于 2009-8-5 11:41

厉害..难怪有时候发现系统变得很慢..

zhj1978 · 发表于 2009-8-5 13:06

请问版主,如果是连接同一个文件夹的其他EXCEL文件的时候,该怎么写ThisWorkbook.ChangeFileAccess xlReadOnly
例如:CNN.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1;readonly=false';data source=" & ThisWorkbook.Path & "\某个excel.xls"

		自动登录	找回密码
密码			免费注册

[原创] ADO 连接自身内存无法释放内存的一种解决方案

评分

谢谢!