DAO数据库连接（在线等待）

Question

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If rs.State = 1 Then
   rs.Close
End If
rs.Open "select * from wenyin1", DataEnvi.Conn, adOpenDynamic, adLockOptimistic
Set rs = DataEnvi.Conn.Execute("select * from wenyin1")
但是rs.Open "select * from wenyin1", DataEnvi.Conn, adOpenDynamic, adLockOptimistic  此句错误，为什么？

Answer 1

rs.Open "select * from wenyin1", Conn, adOpenDynamic, adLockOptimistic

Answer 2

rs.Open "select * from wenyin1", Conn, adOpenDynamic, adLockOptimistic

Answer 3

rs.Open "select * from wenyin1", Conn, adOpenDynamic, adLockOptimistic
不行
提示错误：
run-time error '3709'
连接无法用语执行此操作。在此上下文中它可能已被关闭或无效。

Answer 4

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordsetset rs=new adodb.recordset
rs.Open "select * from wenyin1", Conn, adOpenDynamic, adLockOptimistic
Set rs = DataEnvi.Conn.Execute("select * from wenyin1")

Answer 5

如果你的数据库是用Accsee做的话，那么先把数据库关闭

Answer 6

我已经关闭了
但是用rs.Open "select * from wenyin1", Conn, adOpenDynamic, adLockOptimistic
打开是总提示错误

Answer 7

我知道拉.你没有设connection的数据源.
就是conn.Open "provider=microsoft.Jet.OLEDB.3.51:" & "Data Source=" & App.Path & "\123.mdb"

Answer 8

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordsetset rs=new adodb.recordset
rs.Open "select * from wenyin1", DataEnvi.Conn, adOpenDynamic, adLockOptimistic
Set rs = DataEnvi.Conn.Execute("select * from 表名")