Eliminare Tabelle Access

Donatella Corrado

unread,

May 6, 2002, 5:46:45 AM5/6/02

to

Salve,
ho creato una tabella dentro un DB Access utilizzando questo codice:
_______________________________________________________
Public Sub CreateTableDef()
Dim TabellaValori As TableDef
Set dbvalori = OpenDatabase(App.Path & "\DBPazienti.mdb")
Set TabellaValori = dbvalori.CreateTableDef("Valori")
With TabellaValori
.Fields.Append .CreateField("CRegione", dbText)
.Fields.Append .CreateField("LRegione", dbText)
dbvalori.TableDefs.Append TabellaValori
End With
dbvalori.Close
End Sub
________________________________________________________________

... ora voglio eliminare questa tabella, ma usando il codice che allego
qui sotto, riesco a eliminare solo i campi della tabella, ma non elimino
*fisicamente* la tabella dal DB.

________________________________________________________
Public Sub DeleteTableDef()
Dim miatabella As TableDef
Dim db As Database
Set db = OpenDatabase(App.Path & "\DBPazienti.mdb")
Set miatabella = db.TableDefs("Valori")
miatabella.Fields.Delete ("Cregione")
miatabella.Fields.Delete ("Lregione")
End Sub
_____________________________________________________

Come posso fare??? Non riesco a trovare un'istruzione che faccia al caso
mio!
Qualcuno puo' aiutarmi?
Grazie
Donatella :)

--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

Wodka4U(office)

unread,

May 6, 2002, 5:53:25 AM5/6/02

to

"Donatella Corrado" <cor...@cmns.mnegri.it> ha scritto nel messaggio
news:df5efd04df7e1212c8...@mygate.mailgate.org...
> Salve,
CUT
fatti una query con
DROP TABLE nometabella

ciauz!

Fustino di Dixan

unread,

May 6, 2002, 5:51:49 AM5/6/02

to

"Wodka4U(office)" <marco_AncheQui_@_ADSL_1298_martek.it> ha scritto nel
messaggio news:posB8.8078$zW3.2...@news1.tin.it...

| fatti una query con
| DROP TABLE nometabella

oppure:
dbLavoro.TableDefs.Delete "nomeTabella"

--
[ Penguin At Work ]
-> http://web.tiscali.it/penguinatwork/
-> aka Fustino Di Dixan while working

Donatella Corrado

unread,

May 6, 2002, 6:05:01 AM5/6/02

to

... grazie, ho seguito il tuo consiglio, anche se pensavo che esistesse
una procedura opposta a quella di creazione della tabella per la
cancellazione della stessa!!!
Ancora grazie
Ciao
Donatella :)

Pasquale Minerva

unread,

May 6, 2002, 6:09:08 AM5/6/02

to

Devi usare il metodo "Delete" dell'oggetto "TableDefs"

Ad esempio:
------------------------------------------------
Public Sub DeleteTableDef()

Dim db As Database
Set db = OpenDatabase(App.Path & "\DBPazienti.mdb")

db.TableDefs.Delete "Valori"
End Sub
------------------------------------

Ciao

Pasquale Minerva

"Donatella Corrado" <cor...@cmns.mnegri.it> wrote in message
news:df5efd04df7e1212c8...@mygate.mailgate.org...
> Salve,
> ho creato una tabella dentro un DB Access ...

> ... ora voglio eliminare questa tabella
>

Donatella Corrado

unread,

May 6, 2002, 6:33:57 AM5/6/02

to

.... ecco era questa l'istruzione che cercavo!!
Grazie Fustino di Dixan :)
Ciao
Donatella :)

fabio.b...@inema.bo.it

unread,

Jun 25, 2015, 9:07:09 AM6/25/15

to

a me ha funzionato così per eliminare la tabella "Acquasparta"

Sub testxxx()

Dim tds As TableDefs

Set DBC = CurrentDb
Set tds = DBC.TableDefs
tableTD = "Acquasparta"
tds.Delete tableTD

End Sub