Question

access中vb编程问题求解”对象关闭时，不允许​操作

在access中，想通过一个编程语言调出sql查询结果，编写程序如下
Option Compare Database
Private Sub Command0_Click()

Dim str As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
str = "Select * From GDP"
Set rs = conn.Execute(sql)
rs.Open str

End Sub

结果运行的时候，指出”对象关闭时，不允许操作“，错误指向 Set rs = conn.Execute(sql)
请问各位大侠，如何改动？

Answer 1

因为你的conn还没有打开，就不能操作，试试：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    Set conn = CurrentProject.Connection
    rs.Open "select * from 数据表", conn, adOpenKeyset, adLockReadOnly
    MsgBox rs.RecordCount
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing

祝你成功！

Answer 2

你这个缺少数据库连接代码的。

Dim conn As New ADODB.Connection

conn 还应该去打开数据库的。

追问

咋改啊

追答

Dim conn As New ADODB.Connection

conn .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb;Persist Security Info=False"

其中数据库.mdb改成你自己的数据库，这个是连接access数据库的。