001. PrimaryKey и удаление индекса

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Раздел: Разные закладки - VBA - Access - leadersoft.ru

Запись: xintrea/mytetra_db_adgaver_new/master/base/1531371331qwp3u12jl5/text.html на raw.githubusercontent.com

05. В этом примере, используя запросы SQL можно создать или удалить индекс

Все примеры Microsoft Access

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

Так же в этом разделе:

MyTetra Share v.0.65