怎么修改数据库中的表名？

Question

这里我用到的是Access数据库,如何修改其中的表的名称？

Answer 1

最简单的方法：
dim cn as new adodb.connectioncn.open "你的连接字符串"
cn.execute "select * into newtable from oldtable"
cn.execute "drop table oldtable"

Answer 2

引用DAO：
Dim DB  As Database 
Set DB = DBEngine.OpenDataBase("数据库名")
DB.TableDefs("旧表名").Name = NewString

Answer 3

引用ADOX:
Dim cat As New ADOX.Catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source='数据库名'"
cat.Tables("旧表名").Name = NewString