vb 怎么断开与ACCESS数据库的连接?

来源:百度知道 编辑:UC知道 时间:2024/05/20 05:52:13
我是如下连接数据库的,可是怎么断开连接呢?

Public adoCon As ADODB.Connection
Public adoRst As ADODB.Recordset
Public strsql As String
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/shiyan.mdb;Persist Security Info=False"
Set adoRst = New ADODB.Recordset
End Sub

Private Sub Form_Load()
......
Call main
Set adoRst = adoCon.Execute("select * from 同学录")
......
End Sub

Public adoCon As ADODB.Connection
Public adoRst As ADODB.Recordset
说明 adoRst,adoCon是全局变量,直接使用以下代码
adoRst.close
adoCon.close
set adoRst=nothing
set adoCon=nothing
就可以释放资源了

加一句
ADOCON.CLOSE就断开连接了

Set adoCon=Nothing