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

为什么出现自动化异常

2012-09-27 
为什么出现自动化错误Option Explicit定义ADO连接变量Dim adoConn As ADODB.ConnectionDim adoRs As ADOD

为什么出现自动化错误
Option Explicit
'定义ADO连接变量
Dim adoConn As ADODB.Connection
Dim adoRs As ADODB.Recordset
Private Sub Form_Load()
On Error Resume Next
Dim db_file As String
  db_file = App.Path
  If Right(db_file, 1) <> "\" Then db_file = db_file & "\"
  db_file = db_file & "myLDF.mdb"

  '打开数据库连接
  Set adoConn = New ADODB.Connection
  adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file

  adoRs.Close
End Sub
我用上面的代码连接myLDF.mdb数据库,以前正常打开,今天突然出错,当执行到“Set adoConn = New ADODB.Connection”时出现“自动化错误”,请大家帮忙看看,如何解决错误,谢谢

[解决办法]
从网上下载并安装mdac2.8mdactyp.exe
再在工程中引用ADO

热点排行