Question

vb access adodc 对象关闭时不允许操作

大家都告诉我是因为我的数据库没有打开。。。可不知道怎么弄 ？求助帮我看一下怎么改？

Private Sub Command3_Click()
Dim i, j As Integer

With Adodc2
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Huarong\Desktop\软件工程\软件\base\plan.mdb;Persist Security Info=False"
i = MsgBox("确认提交？", vbYesNo)
If i = 6 Then
Adodc2.RecordSource = "delete * from " & Text11 & ""
Adodc2.Refresh
Adodc2.RecordSource = "Insert Into " & Text11 & " select * from " & Text10 & ""
Adodc2.Refresh
j = MsgBox("提交成功！", vbYes)
End If
End With
End Sub

Answer 1

Adodc1.RecordSource要求得到一个记录集。update语句不返回记录集，所以报错。select * from score 能返回记录集，所以没有问题。