首页上一页 1 下一页尾页 2 条记录 1/1页
删除表里的所有记录出错?
发表在VB答疑区
2009-06-07
是否精华
是
否
版块置顶:
是
否
我想删除表里的所有记录,显示 实时错误:键列信息不足或不正确。更新影响到多行。光标停在Adodc4.Recordset.Delete 上
下面是删除表里所有记录代码,
Dim p As Integer
Dim q As Integer
Adodc4.Recordset.MoveFirst
p = Adodc4.Recordset.RecordCount
For q = 1 To p
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Next q
下面是删除表里所有记录代码,
Dim p As Integer
Dim q As Integer
Adodc4.Recordset.MoveFirst
p = Adodc4.Recordset.RecordCount
For q = 1 To p
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Next q