Part 1:目标
![ac2ddb85172eedbff52e2755a49f86fb.png](https://i-blog.csdnimg.cn/blog_migrate/a2cca597d59045a175227e4cfd7e02a1.jpeg)
- 如上图所示,删除性别这一字段(列)
- 逻辑过程
- 连接数据库
- 根据需求确定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
代码截图
![cc56650779cca328f609b4d624d2ec42.png](https://i-blog.csdnimg.cn/blog_migrate/0fa70bfd1ad35d8dedaf0fe17a63424e.jpeg)
执行后效果
![09c85b4b87b264a15689be180650d6fc.png](https://i-blog.csdnimg.cn/blog_migrate/045801b104a43e592f7db89a9299e406.jpeg)
Part 3:部分代码解读
- Alter table " & tblName & " drop Column 性别
- 中文释义:改变工作表,具体变化点为删除性别列(字段)
- 删除不同表下不同的字段,只需替换表名称及字段名称即可