Question

VB 430错误 类不支持自动化或不支持期望的接口

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open Provider = "Microsoft.Jet.OLEDB.4.0" & "Data Source=" & App.Path & "\account.mdb" & "persist security info = false;"
sql = "select * form Game"
conn.Open sql, 3.1
Text1.Text = rs.Fields(0)
rs.Close
conn.Close
End Sub
引用的是activeX data objects 2.b library
调试指向的代码为 Set conn = New ADODB.Connection 第四行。
百度了一下，基本上没有什么明确的解决方案。。。。

Answer 1

错误磨旁很多，就不一一指码拍出了，你对照着看下，下面的代码建议用复制粘贴的方式，不要自己手动打

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub 迟游羡Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\account.mdb" & ";persist security info = false;"
sql = "select * from Game"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
Text1.Text = rs.Fields(0)
rs.Close
conn.Close
End Sub

追问

还是报错T——T，

追答

我这里测试完全正常，你要确定你的access表的名称是Game，另外，到底报什么错？

追问

表名称是千真万确的。
报错是 实时错误“430”
类不支持自动化或不支持期望的接口

追答

哪一句出错？另外你把自己的代码都删除，复制粘贴上面的全部代码。

追问

这个不是代码的问题，是开发环境的问题比如dll,ocx，不要在代码上纠结了。

追答

那就没办法了，你必须先解决环境问题。无论如何，我一开始贴的代码是正确的，在我的电脑上已经过验证。

Answer 2

这段代码貌似没问题，是不是引用过dll,出问题可能性大点

追问

不引用，数据口接口不是不能读取数据了？