VB中ADODC控制元件連接資料庫后怎么斷開？？？標題一定要長！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！-有解無憂

rt，編制完成軟體以后發現安裝后，每次關閉軟體后在任務管理器的行程里都有該軟體的運行，我覺得應該是在軟體使用ADODC控制元件連接access資料后沒有斷開導致的，但是不知道怎么斷開，求大神給貼個代碼！！！！！！

uj5u.com熱心網友回復：

在關閉事件中寫上：　
set 表單名=nothing
end

uj5u.com熱心網友回復：

參考 1 樓 Leftie 的回復:

在關閉事件中寫上：　
set 表單名=nothing
end

這樣不行啊，您看看我的代碼
Private Sub Command4_Click()

Dim msgQk
msgQk = MsgBox("您確定想退出系統嗎！", 32 + vbOKCancel, "重要提示")
If msgQk = 1 Then

Dim cnDel1 As New ADODB.Connection
Dim rDel1 As New ADODB.Recordset
Dim sqlDel11 As String
    cnDel1.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
    sqlDel11 = "delete * from zjm"
    cnDel1.Execute sqlDel11
cnDel1.Close

Dim cnDel2 As New ADODB.Connection
Dim rDel2 As New ADODB.Recordset
Dim sqlDel12 As String
    cnDel2.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
    sqlDel12 = "delete * from pjxt"
    cnDel2.Execute sqlDel12
cnDel2.Close

Dim cnDel3 As New ADODB.Connection
Dim rDel3 As New ADODB.Recordset
Dim sqlDel13 As String
    cnDel3.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
    sqlDel13 = "delete * from wbsj"
    cnDel3.Execute sqlDel13

cnDel3.Close

Set Form1 = Nothing
Set Form2 = Nothing
Set Form3 = Nothing
Set Form4 = Nothing
Set Form5 = Nothing
Set Form6 = Nothing
Set Form7 = Nothing
Set Form8 = Nothing
Set Form9 = Nothing
Set Form10 = Nothing

Unload Me
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10

Else
Exit Sub
End If

End Sub

uj5u.com熱心網友回復：

參考 1 樓 Leftie 的回復:

在關閉事件中寫上：　
set 表單名=nothing
end

Dim cnDel1 As New ADODB.Connection
Dim rDel1 As New ADODB.Recordset
Dim sqlDel11 As String
     cnDel1.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
     sqlDel11 = "delete * from zjm"
     cnDel1.Execute sqlDel11
cnDel1.Close

Dim cnDel2 As New ADODB.Connection
Dim rDel2 As New ADODB.Recordset
Dim sqlDel12 As String
     cnDel2.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
     sqlDel12 = "delete * from pjxt"
     cnDel2.Execute sqlDel12
cnDel2.Close

Dim cnDel3 As New ADODB.Connection
Dim rDel3 As New ADODB.Recordset
Dim sqlDel13 As String
     cnDel3.Open "DBQ=" & App.Path & "\ABC.mdb;Driver={Microsoft Access Driver (*.mdb)};"
     sqlDel13 = "delete * from wbsj"
     cnDel3.Execute sqlDel13

cnDel3.Close

這些是用于洗掉資料庫內容的

uj5u.com熱心網友回復：

cnDel1.Close
Set cnDel1 = Nothing
......

uj5u.com熱心網友回復：

參考 4 樓 of123 的回復:

cnDel1.Close
Set cnDel1 = Nothing
......

最后加在洗掉陳述句后面end解決的

uj5u.com熱心網友回復：

Connection.close

uj5u.com熱心網友回復：

如果用ado控制元件的話，關閉打開的表即可，不需要關閉資料庫連接，退出程式后，控制元件資源就會被釋放。但在除錯程式環境下，資料庫會一直處于打開狀態。

用adodb，和用adodc控制元件不同。

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125017.html

標籤：數據庫(包含打印安裝報表)

上一篇：如何用程式將xls檔案轉換成xlsm檔案?

下一篇：VB上一個程式的資料要傳遞到另一個上怎么弄？