8月3日，据澎湃新闻：中国铁工投资建设集团有限公司党委原书记、原董事长张建国同志，因病医治无效，于2025年7月30日在北京逝世，享年61岁。图源：中...
2025-08-04 0
VBA数据库解决方案第二十一讲:数据表中删除添加修改字段的代码
抖音热门
2025年08月02日 00:17 1
admin
《VBA数据库解决方案》教程（版权10090845）是我推出的第二套教程，目前已经是第二版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。
这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA数据库解决方案第二十一讲:数据表中删除、添加、修改字段的代码及代码解读
【分享成果，随喜正能量】220 单单修福而不修慧，将来会得到什么结果呢？“修福不修慧，象身挂璎珞”，就像大象，长得又高又大又有力量，脖子上还挂着一串珠宝，可是虚有其表，没有智慧。。
第二十一讲 在已有的数据表中删除、添加、修改字段
大家好,今日继续给大家讲解VBA数据库解决方案的第21讲,如何利用VBA代码在已有的数据表中删除，添加，修改字段。这个内容是操作数据库的一项必修的内容，还望大家在实际工作中多利用，这节的知识点，对于读者提高自己的数据库的操作水平很有帮助。这节的内容同时也涉及到很多的SQL语句操作，对于大家理解通过VBA对数据库的控制会有提高，或许有的朋友刚刚看到我的平台的文章，对于代码的熟悉程度不如老朋友，还望能充分结合我之前的书籍《VBA代码解决方案》多实践，提高自己对VBA的理解能力，不然对于大段的代码的理解将是非常吃力的。
2 数据表中删除、添加、修改字段的代码及代码解读
下面看看我们的代码：
Sub mynz_21() '第21讲,如何利用VBA代码在已有的数据表中删除，添加，修改字段
Dim cnADO As Object, rsADO As Object
Dim strPath As String, strSQL As String
Set cnADO = CreateObject("ADODB.Connection")
Set rsADO = CreateObject("ADODB.RecordSet")
strPath = ThisWorkbook.Path & "\mydata2.accdb"
strTable = "信息参考"
cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath
tt = False
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
Sheets("21").Select
Cells.ClearContents
MsgBox "下面将显示各个字段，判断有无[电子邮箱]字段", vbInformation, "提示"
For i = 0 To rsADO.Fields.Count - 1
Sheets("21").Cells(1, i + 1) = rsADO.Fields(i).Name
If rsADO.Fields(i).Name = "电子邮箱" Then tt = True
Next i
rsADO.Close
If tt = True Then
MsgBox "原有[电子邮箱]字段，将删除", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " DROP 电子邮箱"
cnADO.Execute strSQL
MsgBox "下面将显示各个字段，判断删除效果", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("21").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
rsADO.Close
End If
MsgBox "下面将添加[电子邮箱]字段", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " ADD 电子邮箱 TEXT(10)"
cnADO.Execute strSQL
MsgBox "字段添加成功,下面将显示各个字段，判断添加效果", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("21").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
rsADO.Close
MsgBox "添加字段长度为10个字符，下面将修正为50个字符。", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " ALTER 电子邮箱 TEXT(50)"
cnADO.Execute strSQL
MsgBox "字段长度修改成功，下面将显示修改后的记录", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("21").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
For i = 1 To rsADO.RecordCount
For j = 0 To rsADO.Fields.Count - 1
Sheets("21").Cells(i + 1, j + 1) = rsADO.Fields(j)
Next j
rsADO.MoveNext
Next i
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub
部分代码截图：
代码的讲解：
1）： Cells.ClearContents
MsgBox "下面将显示各个字段，判断有无[电子邮箱]字段", vbInformation, "提示"
For i = 0 To rsADO.Fields.Count - 1
Sheets("Sheet1").Cells(1, i + 1) = rsADO.Fields(i).Name
If rsADO.Fields(i).Name = "电子邮箱" Then tt = True
Next i
rsADO.Close
上述代码是显示各个字段，同时判断，判断是否有电子邮箱的字段.
2）：If tt = True Then
MsgBox "原有[电子邮箱]字段，将删除", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " DROP 电子邮箱"
cnADO.Execute strSQL
MsgBox "下面将显示各个字段，判断删除效果", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("Sheet1").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
rsADO.Close
End If
如果有这个字段，上述代码将删除这个字段，这里利用了ALTER TABLE 命令，这个命令的作用是添加数据表的字段：
ALTER TABLE 语句用于在已有的表中添加、修改或删除列。
添加字段的语法：Alter table tablename add column_name datatype
修改字段的语法：Alter table tablename alter column_name datatype
删除字段的语法：Alter table tablename drop Column_name;
添加、修改、删除多列的话，用逗号隔开。
3）：MsgBox "下面将添加[电子邮箱]字段", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " ADD 电子邮箱 TEXT(10)"
cnADO.Execute strSQL
MsgBox "字段添加成功,下面将显示各个字段，判断添加效果", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("Sheet1").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
rsADO.Close
上面的代码将添加字段，并显示添加的结果
4）：MsgBox "添加字段长度为10个字符，下面将修正为50个字符。", vbInformation, "提示"
strSQL = "ALTER TABLE " & strTable & " ALTER 电子邮箱 TEXT(50)"
cnADO.Execute strSQL
MsgBox "字段长度修改成功，下面将显示修改后的记录", vbInformation, "提示"
Cells.ClearContents
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
For i = 0 To rsADO.Fields.Count - 1
Sheets("Sheet1").Cells(1, i + 1) = rsADO.Fields(i).Name
Next i
上面的代码将修改字段，并显示添加的结果
5）：For i = 1 To rsADO.RecordCount
For j = 0 To rsADO.Fields.Count - 1
Sheets("Sheet1").Cells(i + 1, j + 1) = rsADO.Fields(j)
Next j
rsADO.MoveNext
Next i
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
上述代码再次做数据的显示。
最后我们再看看程序的运行过程：
已经有了电子邮箱的字段，提示删除：
添加字段，然后显示最后的结果：
修正字段，最后显示整个记录：
以上就是程序的执行过程，后台程序的运行和提供给用户的信息同步，很好的解决了人机交流的问题。
今日内容回向：
1 如何在数据表中删除、添加、修改字段？
2 做程序要有一个好的人机交互过程，应该注意些什么？
本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
相关文章
- 详细阅读
-
广西防城港通报“女司机亮证逼迫让路事件”：非公职人员，其丈夫被立案调查，奔驰系二手车，双方为邻村表亲详细阅读
近日，广西防城港“会车遇奔驰女司机亮证逼迫让路”事件引发网民关注，舆论对“亮证女司机”的身份表示怀疑，并传言其是当地公安部门领导蓝某某。经广西互联网辟...
2025-08-04 0
-
玩家必看攻略“程序麻将机上门安装”（详细透视教程）-哔哩哔哩详细阅读
您好：这款游戏可以开挂，确实是有挂的，很多玩家在这款游戏中打牌都会发现很多用户的牌特别好，总是好牌，而且好像能看到-人的牌一样。所以很多小伙伴就怀疑这...
2025-08-04 0
- 详细阅读
-
胜率设置方法“原来真的有闲聊埋雷QQ红包扫雷控制尾数开挂”（详细透视教程）-哔哩哔哩详细阅读
您好：这款游戏是可以开挂的，软件加微信【添加图中微信】确实是有挂的，很多玩家在这款游戏中打牌都会发现很多用户的牌特别好，总是好牌，而且好像能看到其他人...
2025-08-04 0
- 详细阅读
-
实测辅助“有没有挂可以控制微信红包埋雷尾数规律”（详细透视教程）-哔哩哔哩详细阅读
现在人们打棋牌麻将谁不想赢?手机微乐麻将必赢神器但是手机棋牌麻将是这么好赢的吗?在手机上打棋牌麻将想赢，不仅需要运气，也需要技巧。掌握的棋牌麻将技巧就...
2025-08-04 0
-
终于发现了“微乐甘肃麻将怎么提高胜率（助赢神器通用版）详细阅读
现在人们打棋牌麻将谁不想赢?手机微乐麻将必赢神器但是手机棋牌麻将是这么好赢的吗?在手机上打棋牌麻将想赢，不仅需要运气，也需要技巧。掌握的棋牌麻将技巧就...
2025-08-04 0
发表评论