大家看看,类初始化事件的几句代码,错在哪里?
--------------------------------------
下面的代码是我自已写的ado类中的部分代码,
如果加上:On Error GoTo err ,则调试程序时,不会报错.但是编译后在win2000客户机上运行时,就会转到 err:标号处,提示"类不支持自动化或不支持期望的接口",说明发生了错误,但是在winxp的客户机上运行时就不报错.
我如果屏蔽on error goto ,而写上on error resume
则也不会出问题,我非常不解,难道"类不支持自动化或不支持期望的接口"的错误是可以忽略的吗?Option Explicit
Private mcnn As ADODB.Connection        '连接对象
Private mcmd As ADODB.Command           'command命令对象'类初始化时
Private Sub Class_Initialize()    On Error GoTo err       '如果加上这一句,调试时不报错,但是运行时,会报错:类不支持自动化或不支持期望的接口
    'On Error Resume Next   '加上这一句,运行时是正常的,非常不解,难道"类不支持自动化或不支持期望的接口"的错误是可以忽略的吗?
    '实例化连接对象
    Set mcnn = New ADODB.Connection
    mcnn.CursorLocation = adUseClient
    
    '实例化command对象
    Set mcmd = New ADODB.Command
    
    Exit Sub
err:
    MsgBox err.Description
End Sub