VB 删除EXCEL数据库中的数据

Worksheets("sale").Range("a" &delaa, "r" &delaa).Delete Shift:=xlUp

这是删除的语句，应该看得懂吧？

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

******的代码如下：

Dim rs As ADODB.Recordset

SqlStr="select 身份z号 from 表 where 信息类型=路考 and 信息说明=合格"

set rs = cn.Execute(sql)'执行语句

if not rs.eof then '如果存在记录

for i = 0 to rs.RecordCount - 1

SqlStr="delete 表 where 身份z号 = '" &rs(i)("身份z号")

cn.Execute sql

SqlStr="delete 另外一个表 where 身份z号 = '" &rs(i)("身份z号")

cn.Execute sql

rs.MoveNext

next i

end if

set rs=nothing

---