Rinominare tabella Access

[maverix]

Salve volevo sapere se era possibile tramite codice rinominare una tabella access
ho fatto una ricerca e ho trovato questo script per Mysql

con.Execute("RENAME TABLE wonderful_table ugly_table")

Pero con Access non funziona ma che voi sappiate si puo fare???
grazie a tutti

[weppos]

Et voilà, per te on the fly!

Sub RenameTable()

	oldtbl = "nometabellavecchia"
	newtbl = "nometabellanuova"
	myconn = "connessionealdatabase"

	Set adox = CreateObject("ADOX.Catalog") 
	adox.ActiveConnection = myconn
	adox.Tables(oldtbl).Name = newtbl 
	adox.Tables.Refresh 
	Set adox = nothing 
				
End Sub

'Esegui sub
Call RenameTable()

[maverix]

Inazitutto grazie pero non fungge non riesce a terminare l'operazione
Ho impostato la connessione in questo modo forse e errato gli puoi dare uno sguardo thanks

 
Sub RenameTable()

	oldtbl = "nascar"
	newtbl = "nometabellanuova"
	myconn = "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("u.mdb")

	Set adox = CreateObject("ADOX.Catalog") 
	adox.ActiveConnection = myconn
	adox.Tables(oldtbl).Name = newtbl 
	adox.Tables.Refresh 
	Set adox = nothing 
				
End Sub

'Esegui sub
Call RenameTable()

[maverix]

Scusami ho sistemato un paio di cosete ed adesso termina l'elaborazione dandomi questo errore :

ADOX.Table (0x800A0CB3)
L'operazione richiesta non è supportata dall'oggetto o dal provider.
alla linea 10
esattamente qui :

adox.Tables(oldtbl).Name = newtbl

ancora grazie

[weppos]

Hai sbagliato la connessione.
Apri una connessione come di consueto e poi valorizza quella variabile con una connessione attiva, non una stringa di connessione.

[maverix]

gli passo l'oggetto conn ce uso per aprire la connessione
ora prova
grazie ancora

[maverix]

Scusami ma mi sa che c'è qualcosa che non riesco propio a capire ho fatto cosi ma il risultato non cambia ecco il codice :

Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.open = "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("u.mdb")

 Sub RenameTable()

	oldtbl = "nascar"
	newtbl = "nometabellanuova"
	myconn = Conn1
	Set adox = CreateObject("ADOX.Catalog") 
	adox.ActiveConnection = myconn
	adox.Tables(oldtbl).Name = newtbl 
	adox.Tables.Refresh 
	Set adox = nothing 
				
End Sub
'Esegui sub
Call RenameTable()

mi da sempre lo stesso errore
grazie ancora

[weppos]

Può essere che il tuo server non supporti l'uso di ADOX (stranissimo).
Personalmente non ho mai riscontrato errori usando quel codice.

[maverix]

ok allora mi informero presso il mio provider cmq come sintassi e giusta ?
grazie

[weppos]

Originariamente inviato da maverix
ok allora mi informero presso il mio provider cmq come sintassi e giusta ?
grazie

Sì, io la uso alla grande.