Question

VB关闭数据库问题~~~~~~~~~~~~~~~~~~~

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把新键好的数据库删除.

Answer 1

你可能也调用了 Rs 打开数据库吧，按顺序先关闭试试：

If Rs.State = adStateOpen Then Rs.Close: Set Rs = Nothing
If Cnn.State = adStateOpen Then Cnn.Close: Set Cnn = Nothing

Answer 2

用以下代码应该可以关闭了
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