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. 中文释义：改变工作表，具体变化点为删除性别列（字段）

3. 删除不同表下不同的字段，只需替换表名称及字段名称即可
   

相关文章：

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

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

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

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

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

Access/VBA/Excel-数据库-01

---