栋栋的个人博客

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

  • 837 字

Part 1：目标

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

  2. 逻辑过程

    • 连接数据库
    • 根据需求确定***SQL***语句
    • 执行***SQL***语句
    • 断开与数据库的连接

删除记录前

图片

Part 2：代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 = NothingEnd Sub

执行后效果

图片

Part 3：部分代码解读

  1. delete from " & tblName & " where 姓名='张三'
  2. 中文释义：从工作表中删除一条 姓名字段取值为张三的一条记录
  3. 注意：张三有单引号包围起来
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, ,