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 SubLa 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 SubLa 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 SubQuesta 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. |