关于access数据库表改名的一段代码,希望对大家有用

<%
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
%>