Программирование на Visual Basic

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