【发布时间】:2019-01-10 22:16:00
【问题描述】:
在 Windows 10 和 MS Access 2010 中,我正在运行一个 vba 函数,该函数执行 SQL 查询,从链接到 Outlook 的链接表中提取记录。 查询如下所示:
select * from where LinkedTable.Field1 like '*string1*' and (LinkedTable.Field2 like 'string2*' OR LinkedTable.Field2 like 'string3*' OR LinkedTable.Field2 like 'string4*' OR LinkedTable.Field2 like 'string5*' OR LinkedTable.Field2 like 'string6*' OR LinkedTable.Field2 like string7*')
在执行查询之前,我正在刷新表的链接。
运行该函数时访问崩溃。调试导致确定执行查询的点是 Access 崩溃时:Set rs2 = db.OpenRecordset(strQ)
代码如下:
Sub xyz()
Dim db As DAO.Database
Dim rs2 As DAO.Recordset 'this the sql query table
dim rs1 as DAO.Recordset
set rs1=db.openrecordset("anothertable")
rs1.movefirst
do while not rs1.eof
strQ ="select * from LinkedTable where LinkedTable.Field1 like '*string1*' and (LinkedTable.Field2 like 'string2*' OR LinkedTable.Field2 like 'string3*' OR LinkedTable.Field2 like 'string4*' OR LinkedTable.Field2 like 'string5*' OR LinkedTable.Field2 like 'string6*' OR LinkedTable.Field2 like string7*')"
db.TableDefs(LinkedTable).RefreshLink
Set rs2 = db.OpenRecordset(strQ)
.
rs2.close
set rs2=nothing
rs1.movenext
loop
.
.
En
d 子
我注意到每次执行语句时内存使用量都会增加 设置 rs2 = db.OpenRecordset(strQ)
即使我正在清理,也会执行。清理后不释放。此语句会导致什么潜在的内存泄漏?
谢谢。
【问题讨论】:
标签: database ms-access crash sql-like linked-tables