方法一：
更改表名，調(diào)用 ADOX 即可 (測(cè)試環(huán)境為ADOX2.7)
Function Test()
Debug.Print renameTableName("b", "cxcd")
End Function
Function renameTableName(strOldName As String, strNewName As String) As Boolean
On Error Resume Next
Dim tbl As ADOX.Table
Dim cat As New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
'上面這句中 CurrentProject.Connection 在VB中要更改為已經(jīng)open的connection對(duì)象
For Each tbl In cat.Tables
If tbl.Name = strOldName Then tbl.Name = strNewName
Next
If Err.number <> 0 Then
renameTableName = False
Else
renameTableName = True
End If
End Function
方法二：
請(qǐng)使用 DoCmd.Rename "新表名", acTable, "原表名"
來(lái)完成
請(qǐng)多參考幫助
以下摘自access2000幫助
Rename 方法
rename 方法在 Visual Basic 中執(zhí)行 Rename 操作。
expression.rename(newname, ObjectType, OldName)
expression 必需。返回 DoCmd 對(duì)象的表達(dá)式。
newname Variant 型，必需。字符串表達(dá)式，代表要重新命名的對(duì)象的新名稱(chēng)。這個(gè)新名稱(chēng)必須符合 Microsoft Access 對(duì)象的對(duì)象命名規(guī)則。
objecttype AcObjectType，可選。要重命名的對(duì)象的類(lèi)型。
acobjecttype 可以是下列 AcObjectType 常量之一：
acDataAccessPage
acDefault 默認(rèn)
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable
oldname Variant 型，可選。字符串表達(dá)式，代表由 ObjectType 參數(shù)指定的類(lèi)型的有效對(duì)象名稱(chēng)。如果在某個(gè)類(lèi)庫(kù)數(shù)據(jù)庫(kù)中執(zhí)行包含 Rename 方法的 Visual Basic 代碼，Microsoft Access 將首先在該類(lèi)庫(kù)數(shù)據(jù)庫(kù)中搜索具有該名稱(chēng)的對(duì)象，然后再到當(dāng)前數(shù)據(jù)庫(kù)中搜索。
說(shuō)明
有關(guān)該操作及其參數(shù)如何工作的詳細(xì)信息，請(qǐng)參閱該操作的主題。
如果將 ObjectType 和 OldName 參數(shù)留空（對(duì)于 ObjectType 參數(shù)，假設(shè)其為默認(rèn)常量，即 acDefault），Microsoft Access 將重新命名在“數(shù)據(jù)庫(kù)”窗口中選擇的對(duì)象。若要選擇“數(shù)據(jù)庫(kù)”窗口中的對(duì)象，可以使用 SelectObject 操作或 SelectObject 方法，并將“在‘?dāng)?shù)據(jù)庫(kù)’窗口中”參數(shù)設(shè)為“是”(True)。
如果將 ObjectType 和 OldName 參數(shù)留空，則在 NewName 參數(shù)后面不要使用逗號(hào)。
示例
下面的示例對(duì)“Employees”表進(jìn)行重命名。
docmd.rename "Old Employees Table", acTable, "Employees"
更改表名，調(diào)用 ADOX 即可 (測(cè)試環(huán)境為ADOX2.7)
Function Test()
Debug.Print renameTableName("b", "cxcd")
End Function
Function renameTableName(strOldName As String, strNewName As String) As Boolean
On Error Resume Next
Dim tbl As ADOX.Table
Dim cat As New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
'上面這句中 CurrentProject.Connection 在VB中要更改為已經(jīng)open的connection對(duì)象
For Each tbl In cat.Tables
If tbl.Name = strOldName Then tbl.Name = strNewName
Next
If Err.number <> 0 Then
renameTableName = False
Else
renameTableName = True
End If
End Function
方法二：
請(qǐng)使用 DoCmd.Rename "新表名", acTable, "原表名"
來(lái)完成
請(qǐng)多參考幫助
以下摘自access2000幫助
Rename 方法
rename 方法在 Visual Basic 中執(zhí)行 Rename 操作。
expression.rename(newname, ObjectType, OldName)
expression 必需。返回 DoCmd 對(duì)象的表達(dá)式。
newname Variant 型，必需。字符串表達(dá)式，代表要重新命名的對(duì)象的新名稱(chēng)。這個(gè)新名稱(chēng)必須符合 Microsoft Access 對(duì)象的對(duì)象命名規(guī)則。
objecttype AcObjectType，可選。要重命名的對(duì)象的類(lèi)型。
acobjecttype 可以是下列 AcObjectType 常量之一：
acDataAccessPage
acDefault 默認(rèn)
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable
oldname Variant 型，可選。字符串表達(dá)式，代表由 ObjectType 參數(shù)指定的類(lèi)型的有效對(duì)象名稱(chēng)。如果在某個(gè)類(lèi)庫(kù)數(shù)據(jù)庫(kù)中執(zhí)行包含 Rename 方法的 Visual Basic 代碼，Microsoft Access 將首先在該類(lèi)庫(kù)數(shù)據(jù)庫(kù)中搜索具有該名稱(chēng)的對(duì)象，然后再到當(dāng)前數(shù)據(jù)庫(kù)中搜索。
說(shuō)明
有關(guān)該操作及其參數(shù)如何工作的詳細(xì)信息，請(qǐng)參閱該操作的主題。
如果將 ObjectType 和 OldName 參數(shù)留空（對(duì)于 ObjectType 參數(shù)，假設(shè)其為默認(rèn)常量，即 acDefault），Microsoft Access 將重新命名在“數(shù)據(jù)庫(kù)”窗口中選擇的對(duì)象。若要選擇“數(shù)據(jù)庫(kù)”窗口中的對(duì)象，可以使用 SelectObject 操作或 SelectObject 方法，并將“在‘?dāng)?shù)據(jù)庫(kù)’窗口中”參數(shù)設(shè)為“是”(True)。
如果將 ObjectType 和 OldName 參數(shù)留空，則在 NewName 參數(shù)后面不要使用逗號(hào)。
示例
下面的示例對(duì)“Employees”表進(jìn)行重命名。
docmd.rename "Old Employees Table", acTable, "Employees"