请教：recordset超多次重复OPEN占用内存的问题

pbf2000

用EXCEL实现一个动态查询的功能，

用DATAGRID关联adodb.recordset，

每次录入一个数据就recordset.open一次，

查询完成返回数据后就recordeset.close并且set recordeset=nothing，

程序没有问题，可以实现功能，

不过试用了一下发现内存不够了，

看了一下EXCEL占用内存100多M，

于是开着资源管理器测试了一下，

每查询一次，EXCEL的内存占用量就增加几K到几百K，

只增加不减少，

我每天要查询上万次，那怎么行?

估计就是这个recordset.open重复使用的问题，

但是我都添加了set recordset=nothing了啊，

还是不能释放内存，

我要怎么处理才能在每次查询后释放内存呢？

[此贴子已经被作者于2007-1-23 20:35:35编辑过]

qee用

呵呵,这种情形一般是微软的疏忽造成的.彻底解决恐怕很难.只能结合具体问题,多试试可能想到的代码方式.

爱歌学习

试试不用recordset.open的方式，而用 connection.Execute(sql) 的方式怎样。

打开文件时：

set con=Createobject("adodb.connection")

con.open .....................

查询时：

con.Execute(sql)

关闭文件时：

con.Close:set con=nothing

pbf2000

先多谢两位，这两天很忙，没上来看一下，

下午刚有空，试了一下爱歌版主的方法，发现也不行，一样的，内存只增不减，很快就上100M了，然后就EXCEL就报错内存不够

丸究阵引

代码有毛病！

ifhwfu

建议楼主把完成的代码和附件（可简略，但要有代表性的数据）发上来，大家一起测试，修改代码，看有没有可行的方法。

pbf2000

主要的代码如下，完整的数据就不好放了，不好意思啊

*****************************

Public cN As New ADODB.Connection
Public rD As New ADODB.Recordset
Public Sqlstr As String
---------------------------------------

Sub main()
           ThisWorkbook.Sheets("录入").Activate
           cN.CursorLocation = adUseClient
           cN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "/" & ThisWorkbook.Name & " ;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
           Sqlstr = "select * from [回款人$] order by 账号"
           rD.Open Sqlstr, cN, adOpenKeyset, adLockOptimistic
    
           setGw
           mfrm.Show
End Sub

*************************************

主要的功能在这个模块：输入框每输入一个字符，就查询匹配的，直到查询到唯一的一个为止

每个账号正常情况下应该录入七到八个数字就可以查到唯一确认的一个账号

所以每个账号录入要查询七八次，然后我每天要录入近千个账号，所以查询量是巨大的

Private Sub TextBox1_Change() 
           Dim tempA As String
    
           tempA = Trim(TextBox1.Text)
           If tempA = "" Then
                      Sqlstr = "select * from [回款人$] order by 账号"
           Else
                      Sqlstr = "select * from [回款人$] where 账号 like '" & tempA & "%' order by 账号"
           End If
    
                  rD.Close
                  Set rD = Nothing
                  rD.Open Sqlstr, cN, adOpenKeyset, adLockOptimistic
                  setGw

End Sub

***********************************************************

Public Sub setGw()
           Set mfrm.DataGrid1.DataSource = rD
           mfrm.DataGrid1.Columns(0).Width = 30
           mfrm.DataGrid1.Columns(1).Width = 120
           mfrm.DataGrid1.Columns(2).Width = 120
           mfrm.DataGrid1.Columns(3).Width = 120

End Sub

********************************************

[此贴子已经被作者于2007-1-26 18:13:15编辑过]

丸究阵引

已经说过多次了！不能这样用！要是用于实战最好听劝，要只是玩玩那就无所谓了！呵呵！

http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=549162&id=192739&page=1&skin=0&Star=2

爱歌学习

....................

主要的功能在这个模块：输入框每输入一个字符，就查询匹配的，直到查询到唯一的一个为止

每个账号正常情况下应该录入七到八个数字就可以查到唯一确认的一个账号

所以每个账号录入要查询七八次，然后我每天要录入近千个账号，所以查询量是巨大的

Private Sub TextBox1_ChangeEnter()       没有必要每个帐号查询7、8次，输入完回车之后查询一次即可
           Dim tempA As String
    
           tempA = Trim(TextBox1.Text)
           If tempA = "" Then
                      Sqlstr = "select * from [回款人$] order by 账号"
           Else
                      Sqlstr = "select * from [回款人$] where 账号 like '" & tempA & "%' order by 账号"
           End If
    
                  rD.Close
                  Set rD = Nothing
                  rD.Open Sqlstr, cN, adOpenKeyset, adLockOptimistic
                  setGw

End Sub

Public Sub setGw()
           Set mfrm.DataGrid1.DataSource = rD
           mfrm.DataGrid1.Columns(0).Width = 30
           mfrm.DataGrid1.Columns(1).Width = 120
           mfrm.DataGrid1.Columns(2).Width = 120
           mfrm.DataGrid1.Columns(3).Width = 120
End Sub

Private Sub UserForm_Terminate()
    Set rD = Nothing
End Sub

本来还想做其它测试，但是发现

Set mfrm.DataGrid1.DataSource = rD

这一句应用在 access 库的查询时没有问题，但用在Excel的查询时却显示不出来，不知 DataGrid 控件应用在access查询和Excel查询时都有哪些区别？

http://club.excelhome.net/viewthread.php?tid=211794&replyID=664531&skin=1

[此贴子已经被作者于2007-1-27 1:33:04编辑过]

pbf2000

呃，我是半新手，二把刀，半路出家，全靠看帮助文件学习的写VBA，很多东西正在慢慢学习，不过太忙了，时间不够啊，只求能达到基本的使用不出问题就可以了

-------------------------------

TO：丸究

是因为ADO引用EXCEL自已引用的？

那有什么办法搞定吗？

把基础数据放到另一个EXCEL文件可以解决吗？

一定要放到MDB等其他数据库吗？

放到EXCEL的话好处是很明显的，维护很方便，不用再写程序，给其他人使用的话大家都很容易上手

换成MDB的话，要维护基础数据的删添改就要单独写一段程序吧？

---------------------------------------

TO：爱歌

我一定要每录一个数字就查询一次的，因为是根据录入的账号来查询人员资料，一个账号有十几二十位，如果全部录完才查询的话，太浪费时间和精力了，而且录的越长越易出错，所以我现在这个实现的目的是每录一个就查一次然后显示出来，只要查到只显示唯一一个就可以了，这样的话每个账号我就只要录入七八个数字就可以不用录了，可以很大的减少录入的人员的工作量，有些账号只录二三个数字就可以找到对应的唯一账号了。

另外，datagrid引用excel文件没有任何问题，我就是按上面这样用的，程序运行正常，完全能够达到我想达到的目的