UC知道vb 不能创建引用“c:\windows\system32\MSCOMCTL.oca”
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:57:01
用vb6.0（sp6）打开一个程序。电脑显示：不能创建引用“c:\windows\system32\MSCOMCTL.oca”
随后点击确定，在试运行程序时，出现错误：“activex部件不能创建对象”
调试程序。发现是这句话错了“Set mclsMidTier = New clsMidTier”
整个窗体代码如下：
Private Sub Form_Load()
Set mclsMidTier = New clsMidTier（出错部分）
Set rs = mclsMidTier.GetList("select * from UserInfo")
If rs.RecordCount = 0 Then
rs.AddNew
rs("UserName") = "System"
rs("UserPassword") = "123456"
rs.Update
Else
rs.MoveFirst
End If
Do While Not rs.EOF
cboUserName.AddItem rs("UserName")
rs.MoveNext
Loop
End Sub
不知道是哪个控件没有注册？怎么才能看出来。（MSCOMCTL.ocx，我已经引用和注册了）
随后点击确定，在试运行程序时，出现错误：“activex部件不能创建对象”
调试程序。发现是这句话错了“Set mclsMidTier = New clsMidTier”
整个窗体代码如下：
Private Sub Form_Load()
Set mclsMidTier = New clsMidTier（出错部分）
Set rs = mclsMidTier.GetList("select * from UserInfo")
If rs.RecordCount = 0 Then
rs.AddNew
rs("UserName") = "System"
rs("UserPassword") = "123456"
rs.Update
Else
rs.MoveFirst
End If
Do While Not rs.EOF
cboUserName.AddItem rs("UserName")
rs.MoveNext
Loop
End Sub
不知道是哪个控件没有注册？怎么才能看出来。（MSCOMCTL.ocx，我已经引用和注册了）
控件没有注册，注册一下就好了，可能你少的不止一个控件哦，处理完一个还会接着提示，新手？
在控件中添加
c:\windows\system32\MSCOMCTL.ocx试试