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控件 连接, (我没用代码写)
如何在关闭窗口的时候关闭呢?
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控件 连接, (我没用代码写)
如何在关闭窗口的时候关闭呢?
==================================
释放内存
-----------------------------------------------
我KAO,三个星星了? 真快! 呵呵 谢谢!
对了,我怎么在工程属性里(程序名称等)写中文不行?
=================================================
感谢大家的回答