Implementing a piece of code to rename an Access database table application tips

The Access database does not support directly using SQL statement implementations to change the table name, or the field name, but you can adox the object to implement the example code as follows:

Copy Code code as follows:

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