DROP, instruction (Microsoft Access SQL)

S’applique à : Access 2013, Office 2013

Supprime une table, une procédure ou un affichage existants d’une base de données, ou supprime un index existant d’une table.

Remarque

[!REMARQUE] Le moteur de base de données Microsoft Access ne prend pas en charge l'instruction DROP, ni les instructions DDL, avec des bases de données autres que Microsoft Access. Pour cela, utilisez la méthode DAO Delete.

Syntaxe

DROP {TABLE table | INDEX index ON table | PROCEDURE procedure | VIEW view}

L’instruction DROP est composée des éléments suivants :

Quitter	Description
table	Nom de la table à supprimer, ou de la table à partir de laquelle un index doit être supprimé.
procedure	Nom de la procédure à supprimer.
view	Nom de l’affichage à supprimer.
index	Nom de l’index à supprimer de la table.

Remarques

Vous devez fermer la table avant de pouvoir la supprimer ou de pouvoir y supprimer un index.

Vous pouvez également utiliser ALTER TABLE pour supprimer un index d'une table.

Vous pouvez utiliser CREATE TABLE pour créer une table et CREATE INDEX ou ALTER TABLE pour créer un index. Pour modifier une table, utilisez ALTER TABLE.

Exemple

Dans l'exemple suivant, un index NewIndex hypothétique est censé exister dans la table Employees de la base de données Northwind.

Dans cet exemple, l'index NewIndex est supprimé de la table Employees.

    Sub DropX1() 
     
        Dim dbs As Database 
     
        ' Modify this line to include the path to Northwind 
        ' on your computer. 
        Set dbs = OpenDatabase("Northwind.mdb") 
     
        ' Delete NewIndex from the Employees table. 
        dbs.Execute "DROP INDEX NewIndex ON Employees;" 
     
        dbs.Close 
     
    End Sub

Dans cet exemple, la table Employees est supprimée de la base de données.

    Sub DropX2() 
     
        Dim dbs As Database 
     
        ' Modify this line to include the path to Northwind 
        ' on your computer. 
        Set dbs = OpenDatabase("Northwind.mdb") 
     
        ' Delete the Employees table. 
        dbs.Execute "DROP TABLE Employees;" 
     
        dbs.Close 
     
    End Sub