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

ldy

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

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

复制代码

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

1. 
   
2. Sub 欺骗式查询()
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     ThisWorkbook.ChangeFileAccess xlReadOnly    '转为只读
   
6.     查询
   
7.     ThisWorkbook.ChangeFileAccess xlReadWrite
   
8.     Application.DisplayAlerts = True
   
9.     Application.ScreenUpdating = True
   
10. End Sub
    

复制代码

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




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

2009-7-28 11:00 上传

点击文件名下载附件

enmzxf

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

laoyebin

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

fsyyyy

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

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

飞云楼主

谢谢版主，学习了。

thtfzhaobo

留个脚印，学习

YEST8

谢谢版主,努力学习中!

zhaozyuan

多谢楼主共享

hanter007

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

zhj1978

请问版主,如果是连接同一个文件夹的其他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"