access根据性别不同字段_Access/VBA/Excel之Access字段删除

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 = NothingEnd Sub

代码截图

执行后效果

Part 3：部分代码解读

1. Alter table " & tblName & " drop Column 性别
2. 中文释义：改变工作表，具体变化点为删除性别列(字段)
3. 删除不同表下不同的字段，只需替换表名称及字段名称即可