Access/VBA/Excel-Access字段删除-07

微信公众号原文

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

• 这个系列开展一个新的篇章，重点关注Access数据库
• 主体框架：以Excel作为操作界面，Access作为数据库
• 今天讲讲如何删除特定字段
• 涉及知识：ADO，SQL：Alter + drop

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 = "Alter table " & tblName & " drop Column 性别"

    Set rs = cnn.Execute(SQL)

    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing

End Sub

执行后效果

Part 3：部分代码解读

1. Alter table " & tblName & " drop Column 性别
2. 中文释义：从工作表中删除性别列（字段）

---

本文为原创作品，如需转载，可加小编微信号learningBin

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号