如何更改表的字段名？
作者：cg1 摘自：access911.net
简述：JET SQL 可以更改字段类型，那么可否用 JET SQL 更改字段名哪？
JET SQL 没有内置更改字段名的语句。
本文演示如何用 ADOX 来更改指定表的字段名。
问题：
如何更改表的字段名？
JET SQL 可以更改字段类型，那么可否用 JET SQL 更改字段名哪？
回答：
jet sql无法更改字段名的，除非你连续使用几个JET SQL 先删除字段然后再插入字
段，然后用UPDATE查询将保存再临时表的原字段数据恢复过来。
或者，直接用 ADOX 更改 TABLE 的 Columns(字段名) 对象的 NAME 属性即可。
Function Test()
ChangeTableFieldName_ADO "表1", "aa", "pic1"
End Function
Function ChangeTableFieldName_ADO(MyTableName As String, MyFieldName As String, strNewName As String)
'3个参数：
'MyTableName 字符串，表名
'MyFieldName 字符串，原来的字段名
'strNewName 字符串，新的字段名
'记得先引用 ADOX
Dim MyDB As New ADOX.Catalog
Dim MyTable As ADOX.Table
MyDB.ActiveConnection = CurrentProject.Connection
Set MyTable = MyDB.Tables(MyTableName)
MyTable.Columns(MyFieldName).Name = strNewName
End Function
