实现对Access数据库表重命名的一段代码

access数据库不支持直接利用sql语句实现更改表名，或者字段名，但可以adox对象来实现，范例代码如下：

<%
call renametable("provider=microsoft.jet.oledb.4.0; data
source=c:\example.mdb", "test", "changed")
sub renametable (constr, oldname, newname)
'has to be ole db connection
'create object and connect to db...
dim objadoxdatabase
set objadoxdatabase = server.createobject("adox.catalog")
objadoxdatabase.activeconnection = constr
'change the name...
objadoxdatabase.tables(oldname).name = newname
'clean up...
set objadoxdatabase = nothing
end sub
%>