VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 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
分享到：
