MyTetra Share
Делитесь знаниями!
001. PrimaryKey и удаление индекса
Время создания: 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.59
Яндекс индекс цитирования