with ADOConnection1 do begin
Connected := False;
KeepConnection := False;
try
ConnectionString := 'Provider=MSDASQL.1;Persist Security
Info=False;Data Source=DQ120';
KeepConnection := true;
Connected := true;
Result := true;
except
Result := false;
end;
end;
connected := true 以后程序占用的资源占用马上就增加五兆,我把connected := false
可是资源没有完全释放啊,ADOConnection1.free 也没用,大家帮看看阿
Connected := False;
KeepConnection := False;
try
ConnectionString := 'Provider=MSDASQL.1;Persist Security
Info=False;Data Source=DQ120';
KeepConnection := true;
Connected := true;
Result := true;
except
Result := false;
end;
end;
connected := true 以后程序占用的资源占用马上就增加五兆,我把connected := false
可是资源没有完全释放啊,ADOConnection1.free 也没用,大家帮看看阿
解决方案 »
- 怎么表示adoquery找到的记录的下一个记录?急……
- 有关DevExpress组件的问题
- 1000分求助:帮我编译一个源代码!
- 怎么计算日期1与日期2之间有几个月份?例如。。。。
- 有什么办法知道用户改变了计算机系统时钟?
- If...Then...Else..有没有简便写法,比如vb中的IIF语句
- 请问各位谁能帮小弟解释一下strCon这个东东?
- 求救计算机控制系统教案!!!
- 求助:我的记录替换问题dbf
- 怎样用ado控件读取text文件中的数据
- 在运行时总是有这样的错误:无法定位程序输入点refisterserviceprocess于动态链接库kernel32.dll上.请问这是怎么回事呢?
- 用delphi开发三层结构系统,用web services 还是用datasnap好?
应该可以底
select spid from MASTER..sysprocesses where dbid=db_id('YDSQ')
如果结果大于0则有进程连到YDSQ
kill 这个spid(smallint类型的)
每扫描一次,做一次连接,占用的系统资源就一点点加上去,是不是ado内部的bug a ?
请高手们多多指点阿!!!