主题:大家看看,类初始化事件的几句代码,错在哪里?
大家看看,类初始化事件的几句代码,错在哪里?
--------------------------------------
下面的代码是我自已写的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
--------------------------------------
下面的代码是我自已写的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