批量修改access列的名称的方法

高效批量修改ACCESS表列名，必须具备一定的前提。一是那些需要被修改的表名必须有规律。例如统一以固定的有效字符串开头或者结尾，按其他可识别的规律编写也行；二是这些表都有相同的结构。否则没办法批量修改，只能一张一张表进行修改了。

假设那些需要修改列名的表均以字符串“2013_"开头，原字段名分别为A, B,C, D, E
下面是用代码进行修改的示范案例，供参考。
由于ACCESS JET引擎既不不支持修改表名也不支持修改列名，因此无法以运行SQL数据定义查询的方式来修改字段名。下面代码使用ADO数据访问对象扩展类库ADOX来修改列名。

首先需要引用ADOX
引用方法：
打开VBE窗口
引用ADOX—— 菜单"工具"-> "引用 "--> 勾选Microsoft ADO Ext27 for DDL ado Security 或更高版本，点击确定按钮
新建一个ACCESS窗体，添加一个命名按钮“COMMAND1” 为该按钮编写下列单击事件过程：

Private Sub Command1_Click()

Dim MyDB As New ADOXCatalog
Dim Obj As ADOXTable
Dim Col As ADOXColumn
MyDBActiveConnection = CurrentProjectConnection
For Each Obj In MyDBTables
If ObjName Like "2013_" Then '其他形式的表名规律请修改这里Like "2013_"
For Each Col In MyDBTables(ObjName)Columns
If ColName = "A" Then ObjColumns("A")Name = "月份"
If ColName = "B" Then ObjColumns("B")Name = "销量"
If ColName = "C" Then ObjColumns("C")Name = "单价"
If ColName = "D" Then ObjColumns("D")Name = "总价"
If ColName = "E" Then ObjColumns("E")Name = "备注"
Next Col
End If
Next Obj
MsgBox "表列名批量修改完毕"

End Sub
保窗体后，点击命令按钮即可瞬间完成批量表列名的修改工作，字段A 改为"月份"、字段B
改为"销量"、字段C 改为"单价"、字段D改为"总价"、字段E 改为"备注"。已经修改过的列名不会再被修改，这样对于新导入的新表可以随时点击该按钮更改列名，而不用担心存在反复修改的问题。楼主可以按照自己的实际需求调整上面代码里的表名规律和新旧字段名即可。

这可是个高技术活，很少人能写出来的。能给加些分吗？

以上就是关于批量修改access列的名称的方法全部的内容，包括:批量修改access列的名称的方法、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！