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
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