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

HLAI · 发表于 2010-5-3 16:57

有个问题，在EXCEL2000中，如果反复进行查询或是文件处于修改过的状态，在执行ThisWorkbook.ChangeFileAccess xlReadOnly这一句会自动存盘，也许就是导致慢上一两秒的原因。也许要加上一句禁止存盘的语句吧？因为有时候调整程序时并不希望存盘的

xyesterday · 发表于 2010-5-31 21:26

小弟还想请教一下.如果调用的是其他的EXCEL文档里的数据,
不停的查询呢.
那样占用的内存也是居高不下,而且EXCEL关了之后都有一个EXCEL线程未关啊.
我使用的代码大致是这样的一个形式:
Dim oConn As New ADODB.Connection
Dim x as Integer
oConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Extended Properties=Excel 8.0;Data Source=D:\db.xls"
for x=1 to 100
strSQL="SELECT * FROM [SHEET1$] WHERE [No] = '" & Range("A"+Cstr(x)).value &"'"
Range("B"+Cstrx)).CopyFromRecordset oConn.Execute(strSQL)
Next x
oConn.Close
Set oConn=Nothing

我个人认为在oConn.Execute(strSQL)这里有一个隐藏的Recordset对象,但不知如何将他释放呢.
因为这个是循环里用的,所以内存占用相当的厉害.有没有好的办法啊!?

谢谢!!

tuotuo51999 · 发表于 2010-5-31 21:41

学习了，谢谢楼主！

lbpp · 发表于 2010-5-31 22:21

学习了。谢谢。

xyesterday · 发表于 2010-6-1 23:06

此处已经通过其他方式解决了,即使用Excel 2007的连接关键字.
oConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Extended Properties=Excel 8.0;Data Source=D:\db.xls"

替换成:
oConn.Open "Provider=Microsoft.ACE.OleDB.12.0;Extended Properties=Excel 12.0;Data Source=D:\db.xls"
如此之后,内存只是在第一次执行的时候,增加1M(势数据的多少)的样子.再怎么循环都不会增加内存使用量
而且set oConn=nothing,占用的内存立即释放

[ 本帖最后由 xyesterday 于 2010-6-1 23:07 编辑 ]

voodoo163 · 发表于 2010-6-14 12:39

原来是BUG啊，难改我向破头也分析不出原因，还以外是我代码问题，谢谢楼主指点。

lag328 · 发表于 2010-7-4 21:55

很久以前就发过这个，后来也一直没有人解答，偶然的机会发现通过将查询的表拷贝到别的工作簿可以避开这个问题。
刚看，readonly不会引起写入的问题吗？还来来得及测试，先把问题丢出来，有时间在测试一下

yinglai · 发表于 2010-7-4 22:28

感谢分享。

5570070 · 发表于 2010-7-14 15:58

困扰多时的问题解决了，现在关闭EXCEL时也不会出现VBA密码框了，3Q......

gowowo · 发表于 2010-7-14 16:22

改为
Dim oConn As New ADODB.Connection
Dim x as Integer
dim  RS
oConn.Open "Provider=Microsoft.Jet.OleDB.4.0;Extended Properties=Excel 8.0;Data Source=D:\db.xls"
for x=1 to 100
strSQL="SELECT * FROM [SHEET1$] WHERE [No] = '"  & Range("A"+Cstr(x)).value &"'"
set RS= oConn.Execute(strSQL)
Range("B"+Cstrx)).CopyFromRecordset  RS
Rs.Close
Set Rs=Nothing
Next x
oConn.Close
Set oConn=Nothing

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

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

回复 33楼 xyesterday 的帖子

回复 33楼 xyesterday 的帖子