我的程序是这样的,在主界面点击打开后,adodc控件连接到数据库并绑定到dbgrid显示,但点击断开后,我需要断开与数据库的连接,请问断开怎么写?谢谢!

解决方案 »

  1.   

    把它写成函数,直接调用就可以了
    做个参考吧,也许别人有更好的办法,我这个也是别人介绍给我的Public Sub dedata()
    If conn.State = adStateOpen Then conn.Close
    Set conn = NothingEnd Sub
      

  2.   

    抱歉,补充
    conn为连接的数据库
    Public conn As New adodb.Connection
      

  3.   

    补充:Public conn As New adodb.Connection
      

  4.   

    adodc1.recordset.close

    set adodc1=nothing
      

  5.   

    Private Sub CmdCose_Click()
    If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
    End Sub