UC知道VB关闭数据库问题~~~~~~~~~~~~~~~~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/25 10:56:38
Option Explicit
Public Cat As New ADOX.Catalog
Public Cnn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sing As String
Private Sub Command1_Click()
Sing = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & Text1.Text & ".accdb"
Cat.Create Sing
Cnn.Close
End Sub
用代码创建了一个新的数据库,可是Cnn.Close怎么都关不了数据库.
还是少了什么代码,请高手解答.
没有代码了,这就是全部的代码了.我的目地是用上面的代码创建了一个新的数据库,然后在另一个COMMAND代码就用KILL把新键好的数据库删除.
Public Cat As New ADOX.Catalog
Public Cnn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sing As String
Private Sub Command1_Click()
Sing = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & Text1.Text & ".accdb"
Cat.Create Sing
Cnn.Close
End Sub
用代码创建了一个新的数据库,可是Cnn.Close怎么都关不了数据库.
还是少了什么代码,请高手解答.
没有代码了,这就是全部的代码了.我的目地是用上面的代码创建了一个新的数据库,然后在另一个COMMAND代码就用KILL把新键好的数据库删除.
你可能也调用了 Rs 打开数据库吧，按顺序先关闭试试：
If Rs.State = adStateOpen Then Rs.Close: Set Rs = Nothing
If Cnn.State = adStateOpen Then Cnn.Close: Set Cnn = Nothing
用以下代码应该可以关闭了
If Cnn.State <> adStateClosed Then cn.Close
If Rs.State <> adStateClosed Then rs.Close
Set Cnn = Nothing
Set Rs = Nothing
或者只需输入:
If Rs.State <> adStateClosed Then rs.Close
Set Rs = Nothing