|
General |
| 6.170 Vari metodi per eliminare una tabella in database esterni |
| Alessandro Baraldi |
|
Qui di seguito sono mostrati tre metodi per eliminare oggetti contenuti in database esterni: Primo metodo basato sull'automazione Access. Function DeleteExternal(strDabataseName as string, NomeTabella)
Dim objAccess As New Access.Application
With objAccess
.OpenCurrentDatabase strDabataseName
.DoCmdDeleteObject acTable, NomeTabella
.CloseCurrentDatabase
End With
End Sub
La funzione verrà rchiamata nella seguente maniera:Call DeleteExternal("C:\Northwind.mdb", "NomeTabella")
Secondo metodo usando del codice VBA contenente una SQL EXECUTE. Function DeleteExternal(strDabataseName as String, NomeTabella As String)
Dim db As DAO.Database
Set db=OpenDatabase(strDabataseName)
db.Execute "DROP TABLE " & NomeTabella & ";"
db.Close
Set db=Nothing
End Sub
La funzione verrà rchiamata nella seguente maniera:Call DeleteExternal("C:\Northwind.mdb", "NomeTabella")
Questa funzione fa riferimento alla libreria Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, aggiungere ai riferimenti del database tale libreria.Terzo metodo usando del codice VBA che fa riferimento all'insieme Tabledefs. Sub sDeleteExternal3()
Dim db As DAO.Database
Set db=OpenDatabase(C:\Northwind.mdb)
db.TableDefs.Delete "tblName"
db.Close
Set db=Nothing
End Sub
Questa Sub fa riferimento alla libreria Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, aggiungere ai riferimenti del database tale libreria.
|