1.为什么还要:set conn=nothing 一句?
Private Sub Form_Unload(Cancel As Integer)
  If MsgBox("ÄúÕæµÄÒªÍ˳ö?°´YÖ±½ÓÍ˳ö,°´N·µ»Ø±£´æ!", vbYesNo, "Ìáʾ") = vbYes Then
    If Conn.State <> adStateClosed Then Conn.Close
    set conn=nothing
  Else
   Cancel = 1
  End If
End Sub2.ADODC控件 连接, (我没用代码写) 
如何在关闭窗口的时候关闭呢?

解决方案 »

  1.   

    1.为什么还要:set conn=nothing 一句?
    ==================================
    释放内存
      

  2.   

    1、创建了实例对象用完后要用Set xx = Nothing ,把它从内存中释放掉,这是一种好习惯。2、一般认为ADODC控件都是随着窗体的关闭而自动释放的,无需写代码关闭。如果你确实需要马克以这样做:将ADODC控件的ConnectionString 、RecordSource属性赋值为空,释放Recordset对象。ADODC1.ConnectionString = ""     'ConnectionString属性赋值为空ADODC1.RecordSource = ""         'RecordSource属性赋值为空Set ADODC1.Recordset = Nothing   '释放Recordset对象  
      

  3.   

    RUKYO(蠢蠢的男子汉 - 回到原点,重新洗牌) ( )
    -----------------------------------------------
    我KAO,三个星星了? 真快!  呵呵 谢谢!
    对了,我怎么在工程属性里(程序名称等)写中文不行?
    =================================================
    感谢大家的回答