Question

vb 6.0 怎么修改ACCESS中字段名称？我需要完整的代码，谢谢！

比如，有个表叫“CCC”,里面原来有个字段名叫“AAA"，现在想改成”BBB"，但字段中的数据不改变。谢谢！！我用cnn.Execute "alter table CCCrename AAAto instrument_BBB"，总说是语法错误，请高手们指教！

Answer 1

由于ACCESS JET引擎不支持修改表名和列名，无法以运行SQL数据定义查询的方式来修改字段名。

下面是使用ADO数据访问对象扩展类库ADOX来修改列名的完整代码。注意修改表名前务必关闭已经打开的数据表，否则修改将会失败。

首先需要引用ADOX和ADO
引用方法：
打开VBE窗口
引用ADOX—— 菜单"工程"-> "引用 "--> 勾选Microsoft ADO Ext.2.7 for DDL ado Security 或更高版本，点击确定按钮

引用ADO—— 菜单"工程"-> "引用 "-->勾选Microsoft ActiveX Data Objects 2.1 Library 或更高版本，点击确定按钮

Private Sub Command1_Click()
On Error GoTo ErrHandler

Dim Cat As New ADOX.Catalog
Dim Cnn As New ADODB.Connection
'连接当前目录下Sample.mdb ACCESS数据库
Cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= '" & App.Path & "\Sample.mdb';"
Set Cat.ActiveConnection = Cnn
Cat.tables("CCC").Columns("AAA") = "BBB" '修改表名

MsgBox "表列名修改完毕"

'释放ADO对象
Cnn.Close
Set Cat = Nothing
Set Cnn = Nothing
Exit Sub

ErrHandler: '错误处理

Set Cat = Nothing
If Not Cnn Is Nothing Then
If Cnn.State = adStateOpen Then Cnn.Close
End If
Set Cnn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If

End Sub

Answer 2

Access 无法通过 SQL 语句来修改字段名，ALTER TABLE RENAME a TO b 语句对 MySql、Oracle 数据库才可以用。

可以给个折衷办法，先插入一个新字段，起名为要修改后的新名字，再把原先字段里的所有内容复制过去，并删除原有字段。

Answer 3

用adox可以实现