首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

自动化异常,对象库未注册。这个是如何的原因呢

2012-01-20 
自动化错误,对象库未注册。这个是怎么的原因呢。Public Sub loadinput(lst As ListBox, cb As ComboBox, cnn

自动化错误,对象库未注册。这个是怎么的原因呢。
Public Sub loadinput(lst As ListBox, cb As ComboBox, cnn As ADODB.Connection, rst As ADODB.Recordset, rst2 As ADODB.Recordset, zd As Dictionary, txt2 As TextBox, txt3 As TextBox, lst2 As ListBox)
'On Error Resume Next
lst.Clear
If cnn.State = 0 Then
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & mdbpath & ";Jet.OLEDB:"
End If
Sql = "select * from 录入设置"
rst.Open Sql, cnn, 1, 3
rst.MoveFirst
cb.Text = rst.Fields(3).Value
txt2 = rst.Fields(4).Value
vs1.Value = rst.Fields(4).Value
txt3 = Val(rst.Fields(5).Value)
vs2.Value = Val(rst.Fields(5).Value)
Do While Not rst.EOF
 lst.AddItem rst.Fields(0).Value
 zd.Add rst.Fields(0).Value, ""
 rst.MoveNext
Loop
For Each c In zd.Keys
 If Not zd.Exists(rst.Fields(3).Value) Then cb.AddItem c
Next
For i = 0 To lst.ListCount - 1
 lst.Selected(i) = True
Next i
Set rst = Nothing
Sql = "select * from 基础信息"
rst2.Open Sql, cnn, 1, 3
rst2.MoveFirst
For i = 0 To rst2.Fields.Count
  If Not zd.Exists(rst2.Fields(i).Name) Then lst.AddItem rst2.Fields(i).Name
Next i
Set rst2 = Nothing
cnn.Close
End Sub



[解决办法]

探讨
引用:
安装mdac_typmdac28.exe

谢谢,挨个查对象,查出来了,下午杀软莫名奇妙把我
scrrun.dll给禁了。重新注册就好了,谢谢。

[解决办法]
安装新的upadtes,更新你的antivirus

热点排行