Database - Cancellazione Di Tutti I Record Da Una Tabella Con Una Query Di cancellazione

Tabelle # Dim dbs As Database, rst As Recordset
' Modifica questa riga per includere il percorso

' di Northwind sul computer.

Set dbs = OpenDatabase("Northwind.mdb")
' Elimina i record degli impiegati la cui

' posizione e' In addestramento.

dbs.Execute "DELETE * FROM Impiegati" _
& " WHERE Posizione = 'In addestramento';"
dbs.Close
End Sub