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 |