Rinominare una tabella di Access con ADOX - Script ASP

In ASP è possibile rinominare una tabella del database Microsoft Access direttamente via codice, senza scaricare il database in locale, operazione che per problemi di peso e dimensioni potrebbe non essere così semplice.

Prima cosa per procedere dobbiamo avere una connessione al database definita ed aperta.
Creiamo dunque una connessione:

<% 

' Definisci la connessione 
Set objConn = Server.CreateObject("ADODB.Connection")

' Definisci stringa di connessione 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb") 

' Apri la connessione 
objConn.Open strConn 

%> 

Ora che la connessione è aperta ed attiva procediamo con la rinominazione della tabella.

<% 

' Attribuisci i nomi delle tabelle 
oldtbl = "vecchiatabella" 
newtbl = "nuovatabella" 

Set adox = createObject("ADOX.Catalog") 

' Attribuisci allo script la connessione 
adox.ActiveConnection = objConn 

' Imposta la rinominazione 
adox.Tables(oldtbl).Name = newtbl 

' Esegui 
adox.Tables.Refresh 

Set adox = nothing 

%> 

Non dimentichiamoci poi di chiudere la connessione a fine esecuzione della pagina o dello script.

<% 

objConn.Close 
Set objConn = Nothing

%>