vb sql批量删除语句

Conn.Execute "Delete From table [表名] Where [日期字段名] Between #" &MaskEdBox1 &"# and #" &MaskEdBox2 &"#"

或者：

Conn.Execute "Delete From table [表名] Where [日期字段名] >= #" &MaskEdBox1 &"# and [日期字段名] <= #" &MaskEdBox2 &"#"

其中 Conn 是 ADO的Connection连接。

VB通过Sql结构化查询语句中Delete子句，赋值给Adodc数据控件的RecordSource 属性，来执行删除数据库一个表的所有记录。

RecordSource 属性，返回或设置Data控件的基本表、SQL语句。

SQL 语句：

SQL 中的以关键字打头、完整描述一个 *** 作的完整的短语。例如：SELECT * FROM Orders。SQL 语句不应和语句混淆。

以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码：

Private Sub Command1_Click()

    Dim sql As String

    On Error GoTo error

    sql = "delete * from jishijilu"

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\data\wd.mdbPersist Security Info=False"

    Adodc1.RecordSource = sql

    Adodc1.Refresh

    Exit Sub

error:

End Sub

'连接数据库，先要用引用ADO组件

dim cnn as new Adodb.Connection

cnn.open (这里面属性若干，有数据库路径以及表名称，百度一下即可)

dim sql as string 

'添加数据

sql = "inser into 表 (姓名,学号，所选科目) values('ycc',1795,'信息管理')"

cnn.execute sql

'删除数据

sql = "delete from 表 where 表_id = 123456"

cnn.execute sql

'断开

cnn.close

set cnn=nothing

---