问:ado对象连接中的资源释放

renrenqq 2003-05-15 10:51:25
Private Sub Form_Load()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
con.ConnectionString = "Provider=sqloledb;" & _
"Data Source=ddl;Initial Catalog=pubs;User Id=sa;Password=1111"
con.CursorLocation = adUseClient
con.Open

Set rs = New ADODB.Recordset
rs.Open "titles", con
Set DataGrid1.DataSource = rs

End Sub

该如何释放con和rs,还是系统自己会管理

...全文
69 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenyu5188 2003-05-16
  • 打赏
  • 举报
回复
我程序只是举个例子并不是让你照抄。

具体代码写在哪个事件过程中你自己决定。
zhangxiushu 2003-05-15
  • 打赏
  • 举报
回复
rs.close'关闭记录集对象
set rs=nothing'释放记录集对象的资源
con.close'关闭连接对象
set con=nothing'释放连接对象的资源

好代码,注意顺序!!!
lihonggen0 2003-05-15
  • 打赏
  • 举报
回复
同意

注意释放资源
set 对象=nothing

一个好程序员的习惯
_西瓜皮_ 2003-05-15
  • 打赏
  • 举报
回复
使用楼上的方法.
chenyu5188 2003-05-15
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
con.ConnectionString = "Provider=sqloledb;" & _
"Data Source=ddl;Initial Catalog=pubs;User Id=sa;Password=1111"
con.CursorLocation = adUseClient
con.Open

Set rs = New ADODB.Recordset
rs.Open "titles", con
Set DataGrid1.DataSource = rs

rs.close'关闭记录集对象
set rs=nothing'释放记录集对象的资源
con.close'关闭连接对象
set con=nothing'释放连接对象的资源

End Sub
会飞的魔术师 2003-05-15
  • 打赏
  • 举报
回复
不可以现在关闭,应该在窗口关闭时关闭
con ,rs 为全局变量
sub form_unload()
rs.close'关闭记录集对象
set rs=nothing'释放记录集对象的资源
con.close'关闭连接对象
set con=nothing'释放连接对象的资源

end sub
yujiabian 2003-05-15
  • 打赏
  • 举报
回复
rs.close'关闭记录集对象
set rs=nothing'释放记录集对象的资源
con.close'关闭连接对象
set con=nothing'释放连接对象的资源

好代码,注意顺序!!!
renrenqq 2003-05-15
  • 打赏
  • 举报
回复
问题是我的datagrid想一直可以显示数据,直到窗口关闭。如果使用后马上释放那么datagrid中的内容也会自动清除。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧