Access/VBA/Excel-Access记录删除-06

系统：Windows 10
软件：Excel 2010 / Access 2010

• 这个系列开展一个新的篇章，重点关注Access数据库

• 主体框架：以Excel作为操作界面，Access作为数据库

• 今天讲讲如何删除原有记录

• 涉及知识：ADO，SQL：delete

今日歌曲：

Part 1：目标

1. 删除姓名为张三的这一条记录

2. 逻辑过程

• 连接数据库

• 根据需求确定SQL语句

• 执行SQL语句

• 断开与数据库的连接

删除记录前

Part 2：代码

Sub test()    
   Dim cnn As New ADODB.Connection '连接    Dim rs As New ADODB.Recordset    
   Dim SQL As String    Dim tblName    
   Dim dbAddr    dbAddr = ThisWorkbook.Path & '\学生信息.accdb'    tblName = '学生信息表'    '连接数据库    With cnn        .Provider = 'Microsoft.ACE.OLEDB.12.0'        .Open 'Data Source=' & dbAddr    
   End With    SQL = 'delete from ' & tblName & ' where 姓名='张三''    Set rs = cnn.Execute(SQL)    cnn.Close    
   Set rs = Nothing    Set cnn = Nothing

End Sub

执行后效果

Part 3：部分代码解读

1. delete from ' & tblName & ' where 姓名='张三'

2. 中文释义：从工作表中删除一条 姓名字段取值为张三的一条记录

3. 注意：张三有单引号包围起来

传送门：往日精彩文章

Access/VBA/Excel-Access记录修改-05

Access/VBA/Excel-Access记录创建-04

Access/VBA/Excel-Access表及字段创建-03

Access/VBA/Excel-新建Access文件-02

Access/VBA/Excel-数据库-01

---