中文Access2000速成教程--1.8定義
ACCESS集錦
Access新手來看:Access的特點、概要精通ACCESS需掌握的內容
用Access 2000進行班級管理一篇詳細講述mysql和access區別的中文Access2000速成教程--1.1使用
Access使用查詢
Access 數據庫安全攻防策略
Access命令行參數
問題:
如何更改表或者其他數據庫對象得名字
方法一:
更改表名,調用 ADOX 即可 (測試環境為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中要更改為已經open的connection對象
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
方法二:
請使用 DoCmd.Rename "新表名", acTable, "原表名" 來完成,請多參考幫助,以下摘自access2000幫助
Rename 方法
rename 方法在 Visual Basic 中執行 Rename 操作。
expression.rename(newname, ObjectType, OldName)
expression 必需。返回 DoCmd 對象的表達式。
newname Variant 型,必需。字符串表達式,代表要重新命名的對象的新名稱。這個新名稱必須符合 Microsoft Access 對象的對象命名規則。