如何关闭打开的数据库（ACCESS）

[chdf535]

如何关闭打开的数据库（ACCESS）

[jilong4]

Dim conn As New ADODB.Connection
conn.close

[ddnian]

Dim conn As New ADODB.Connection
conn.close
set conn = Nothing

[chdf535]

我把数据库连接是用类调用的！

[Abyss-Xu]

Public Cnn As New ADODB.Connection '
Public Rst As New ADODB.Recordset
rst.close '先关闭集合
set rst=Nothing
cnn.close '再关闭连接
set conn = Nothing

[lang_csdn]

if rs.state<>adstateclose then rs.close
set rs=nothing

if conn.state<>adstateclose then conn.close
set conn=nothing

[longyangyang]

Dim CN As New ADODB.Connection
CN.close
set CN = Nothing

[mingday]

呵呵，来晚了

[tztz520]

可以在类里写一个CloseDatabase的方法来关闭

[GGL123]

conn.close

[chdf535]

我是在登陆后就把数据库打开了！进入mdi窗口后，我做了个数据备份（access）是通过拷贝来完成的，我用conn.close关闭不了的，有什么好的办法可以解决这个问题！谢谢！

[lndlwwh830]

if conn.State =1 then '判断是否打开状态
conn.close
set conn=nothing '释放内存
end if

[warlord]

通过拷贝来完成的：
拷贝完以后要释放句柄，否则被锁定是无法关闭的。修改一下拷贝的代码。