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.


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.