Инструкция DROP (Microsoft Access SQL)

Область применения: Access 2013, Office 2013

Удаляет существующую таблицу, процедуру или представление из базы данных либо удаляет существующий индекс из таблицы.

Примечание.

Ядро СУБД Microsoft Access не поддерживает использование инструкции DROP или любых инструкций DDL с базами данных с ядрами СУБД, отличными от Microsoft Access. Вместо этого используйте метод DAO Delete.

Синтаксис

DROP {TABLE таблица | INDEX индекс ON таблица | PROCEDURE процедура | VIEW представление}

Инструкция DROP состоит из трех указанных ниже частей.

Часть	Описание
таблица	Имя таблицы, которую необходимо удалить, либо таблицы, из которой необходимо удалить индекс.
процедура	Имя процедуры, которую необходимо удалить.
представление	Имя представления, которое необходимо удалить.
индекс	Имя индекса, который необходимо удалить из таблицы.

Комментарии

Чтобы можно было удалить таблицу или индекс из нее, необходимо сначала закрыть эту таблицу.

Кроме того, для удаления индекса из таблицы можно использовать инструкцию ALTER TABLE.

С помощью инструкции CREATE TABLE можно создать таблицу, а с помощью инструкции CREATE INDEX или ALTER TABLE — создать индекс. Изменить таблицу можно с помощью инструкции ALTER TABLE.

Пример

В примере ниже предполагается, что существует гипотетический индекс NewIndex в таблице Employees в базе данных Northwind.

В этом примере показано, как удалить индекс MyIndex из таблицы 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

В этом примере показано, как удалить таблицу Employees из базы данных.

    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