vb access 对象关闭时不允许操作 10
为什么显示对象关闭时不允许操作啊~求助求助PrivateSubCommand3_Click()Dimi,jAsIntegeri=MsgBox("确认提交?",vbYesN...
为什么显示对象关闭时不允许操作啊~求助求助
Private Sub Command3_Click()
Dim i, j As Integer
i = MsgBox("确认提交?", vbYesNo)
If i = 6 Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Huarong\Desktop\软件工程\软件\base\plan.mdb;Persist Security Info=False"
SQL = "delete * from " & Text11 & ""
Adodc1.RecordSource = SQL
Adodc1.Refresh
Adodc1.RecordSource = "Insert Into " & Text11 & " select * from " & Text10 & ""
Adodc1.Refresh
j = MsgBox("提交成功!", vbYes)
End If
End Sub 展开
Private Sub Command3_Click()
Dim i, j As Integer
i = MsgBox("确认提交?", vbYesNo)
If i = 6 Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Huarong\Desktop\软件工程\软件\base\plan.mdb;Persist Security Info=False"
SQL = "delete * from " & Text11 & ""
Adodc1.RecordSource = SQL
Adodc1.Refresh
Adodc1.RecordSource = "Insert Into " & Text11 & " select * from " & Text10 & ""
Adodc1.Refresh
j = MsgBox("提交成功!", vbYes)
End If
End Sub 展开
1个回答
2017-06-24
展开全部
显示对象关闭时不允许操作的提示,一般是数据库连接关闭时,进行查询,读写等操作时产生的错误。
请自行在运行查询等操作前,检测下数据库是否连接,如果没有连接请重新连接后再进行操作即可。
请自行在运行查询等操作前,检测下数据库是否连接,如果没有连接请重新连接后再进行操作即可。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询