Question

嘿伙计们，我的朋友告诉我在这里提问，我是新来的，所以我真的希望你们能帮我解决这个问题的大问题。

因此总是出现一个消息框＆＃34;当对象关闭时不允许操作＆＃34;，当我删除数据库表中列出的所有项目时，它总是出现，但是当我按下OK时我甚至工作虽然这是一个错误。我试着向我的教授解释发生了什么，她说我们应该找到一种方法来删除它，我尝试了一切，我在微软支持和其他网络搜索仍然没有答案。所以我真的希望你们能帮助我。

这是我在vb6中删除所有列出项目的代码。顺便说一句，我使用listview和adodc，这是我们的老师告诉我们使用的唯一组件，而不是adodb或datagrid adodc和listview。

Private Sub Command2_Click()

txtqty.Text = "1"
On Error Resume Next
confirm = MsgBox("Do you really want to Delete all record?", vbYesNo + vbInformation, "Warning!")
If confirm = vbYes Then

Adodc1.RecordSource = "DELETE * FROM tblbill"
Adodc1.Refresh
Adodc1.Recordset.Delete

MsgBox "Records Successfully Deleted", , "Deleted"
lv2.ListItems.Clear
Adodc1.RecordSource = "SELECT * FROM tblbill"
Adodc1.Refresh
For X = 1 To Adodc1.Recordset.RecordCount
lv2.ListItems.Add , , Adodc1.Recordset.Fields(0)
lv2.ListItems(X).SubItems(1) = Adodc1.Recordset.Fields(1)
lv2.ListItems(X).SubItems(2) = Adodc1.Recordset.Fields(2)
lv2.ListItems(X).SubItems(3) = Adodc1.Recordset.Fields(3)
Adodc1.Recordset.MoveNext
Next
txtcash.Text = ""
Text5.Enabled = True
Text5.Text = ""
Text5.Enabled = False
txtchange.Text = ""
cmddel.Enabled = False
Command2.Enabled = False
cmdadd.Enabled = False
Else
MsgBox "Records not Deleted.", vbInformation, "Record not Deleted"
End If
End Sub

当我删除adodc1.recordsource删除底部的adodc1.refresh时，该消息将消失，但我的列表视图已经搞砸了。请帮助我。论文的截止日期是明天请帮助我。

＆＃34;当对象关闭时不允许操作＆＃34;在adodc visual basic 6

0 个答案: