请问VB中如何用ado控件实现批量删除access数据库中的记录？谢谢！

Question

如题所述

Answer 1

用sql语句：delete * from 表 where 条件表达式追问

但这只是删除当前的一条记录，不能将当前的记录集全删除（我用的是delete方法）。如我想删除符合某字段条件的所有记录该如何？

追答

怎么是只删除一条记录？只要满足条件表达式的记录都会删除！

追问

那删除语句该怎样写？我是这样写的 adodc1.recordset.delete * from 表名 where 条件表达式
但VB提示错误。

追答

adodc控件不支持delete语句，你可以用存储过程实现，假定access表里面有个存储过程delrs：
CREATE PROC delrs AS Delete From person Where name='cheng'
删除person表中name字段值='cheng'的记录，在VB中调用这个存储过程：
Private Sub Command1_Click()
Dim adoconn As New ADODB.Connection
Dim adorst As New ADODB.Recordset
Dim adocomm As New ADODB.Command

adoconn = Adodc1.ConnectionString
adoconn.Open
Set adocomm.ActiveConnection = adoconn
adocomm.CommandText = "delrs"
adocomm.CommandType = adCmdStoredProc
adocomm.Execute
End Sub

来自：求助得到的回答