MyTetra Share
Делитесь знаниями!
001. PrimaryKey и удаление индекса
12.07.2018
07:55
Раздел: VBA - Access - leadersoft.ru


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.52
Яндекс индекс цитирования