05. В этом примере, используя запросы SQL можно создать или удалить индекс
|
Private Sub butExecute_Click()
Dim dbs As Database
On Error GoTo 999
Set dbs = CurrentDb
'Удаляем таблицу
dbs.Execute "DROP TABLE [Пример 05]"
'Создаем таблицу с индексом
dbs.Execute "CREATE TABLE [Пример 05] " _
& "(Номер INTEGER CONSTRAINT Ключ1 PRIMARY KEY, " _
& "Книга CHAR(15), Описание CHAR, Сумма MONEY, Дата DATE);"
'Сообщение
MsgBox "Таблица создана!", vbInformation, "Индексы"
Exit Sub
999:
MsgBox Err.Description, vbCritical, "Создание поля"
Err.Clear
End Sub
'==============================================================
' Удаление индекса
Private Sub butDelete_Click()
Dim dbs As Database
On Error GoTo 999
Set dbs = CurrentDb
'Удаляем индекс
dbs.Execute "DROP INDEX Ключ1 ON [Пример 05] "
'Сообщение
MsgBox "Индекс Ключ1 удален!", vbInformation, "Индексы"
Exit Sub
999:
MsgBox Err.Description, vbCritical, "Создание индекса"
Err.Clear
End Sub | |