实现一段代码来重命名access数据库表

Access数据库不支持SQL语句来实现更改表的名称直接使用，或字段名称，但可以用ADOX对象实现的例子，代码如下：
复制代码如下：<
电话renametable（商=微软。飞机。OLEDB数据。4；
源= C： example.mdb
Sub RenameTable（建筑，oldname，新名称）
必须是OLE DB连接
创建对象并连接到DB…
昏暗的objadoxdatabase
集objadoxdatabase = server.createobject（ADOX。目录）
objadoxdatabase.activeconnection =约束
更改名称…
objadoxdatabase。表（oldname）。名称=新名称
清理…
集objadoxdatabase =没有
端子
%>