asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 3581
ASPCode.it - Store

  > > Tips

Rinominare una tabella di Access con ADOX
di Simone Carletti

Data di pubblicazione: 13/06/2005        Voto della community: 4,00 (Votanti: 2)

Potremmo trovarci nel necessitÓ di dover rinominare una tabella del database Microsoft Access senza per˛ voler scaricare il database in locale per problemi di peso e dimensioni.
Come 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.

<%

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

Set adox = createObject("ADOX.Catalog")

' Attribuiamo allo script la connessione
adox.ActiveConnection = objConn

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

' Eseguiamo
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

%>


Si ringrazia weppos.com per la gentile concessione dell'articolo.




Utenti connessi: 3581