7,789
社区成员
发帖
与我相关
我的任务
分享内存不足的问题！！
我的access程序运行不正常，常常占四十几兆内存，出现内存不足的现象
我怀疑是以下地方内存泄漏了，大家帮忙指点一下
Dim db As Database
Dim rel1 As Relation
Set db = CurrentDb
Set rel1 = db.CreateRelation("relModule_" & dtabName, "模块", dtabName)
With rel1
.Fields.Append rel1.CreateField("模块码")
.Fields!模块码.ForeignName = "IT_MCODE"
End With
db.Relations.Append rel1
这里是否还需要Set db = Nothing?
DoCmd.Echo False
DoCmd.OpenReport "report", acViewDesign
With Reports("report")
.Visible = False
.RecordSource = strSql
End With
DoCmd.Close acReport, "report", acSaveYes
DoCmd.Echo True
这样是否会造成内存泄漏？
我怀疑是以下地方内存泄漏了，大家帮忙指点一下
Dim db As Database
Dim rel1 As Relation
Set db = CurrentDb
Set rel1 = db.CreateRelation("relModule_" & dtabName, "模块", dtabName)
With rel1
.Fields.Append rel1.CreateField("模块码")
.Fields!模块码.ForeignName = "IT_MCODE"
End With
db.Relations.Append rel1
这里是否还需要Set db = Nothing?
DoCmd.Echo False
DoCmd.OpenReport "report", acViewDesign
With Reports("report")
.Visible = False
.RecordSource = strSql
End With
DoCmd.Close acReport, "report", acSaveYes
DoCmd.Echo True
这样是否会造成内存泄漏？
...全文
请发表友善的回复…
发表回复
betagain 2003-10-27
- 打赏
- 举报
我认为不是nothing的问题
可能是你下面段代码有问题
With rel1
.Fields.Append rel1.CreateField("模块码")
.Fields!模块码.ForeignName = "IT_MCODE"
End With
可能是你下面段代码有问题
With rel1
.Fields.Append rel1.CreateField("模块码")
.Fields!模块码.ForeignName = "IT_MCODE"
End With
Lionking1027 2003-10-27
- 打赏
- 举报
注意要清空内存
Nothing
Nothing
luohualiushui 2003-10-27
- 打赏
- 举报
循环是没有
但是和上面相似的代码不少
access文件14M，是不是太大了?我也想他小一点啊
但是和上面相似的代码不少
access文件14M，是不是太大了?我也想他小一点啊
踏平扶桑 2003-10-27
- 打赏
- 举报
可能你的循环有问题
射天狼 2003-10-27
- 打赏
- 举报
你就这一么一段代码吗？有没有循环!?
shixiangming 2003-10-27
- 打赏
- 举报
最好,把表,我数据库都给一个Nothing
flc 2003-10-27
- 打赏
- 举报
学习
subzero 2003-10-27
- 打赏
- 举报
CurrentDb是不是长联接？
数据库操作记得尽量晚开联接，晚建记录集，早关联接，早关记录集。
不要保持一个长联接。
数据库操作记得尽量晚开联接，晚建记录集，早关联接，早关记录集。
不要保持一个长联接。
luohualiushui 2003-10-27
- 打赏
- 举报
不会吧
创建关系不就是这么创建的吗？
创建关系不就是这么创建的吗？
Gelim 2003-10-26
- 打赏
- 举报
还有你的access文件有多大啊？
Gelim 2003-10-26
- 打赏
- 举报
* set rel1=nothing
set db=nothing
set db=nothing
since1990 2003-10-26
- 打赏
- 举报
up
