TopPicLogo TopPicText

Добавление - Удаление индекса

Добавление индекса

Dim db As Database
Dim tdf As TableDef
Dim idx As Index

    Set db = CurrentDb
    Set tdf = db.TableDefs("Название таблицы")
    Set idx = tdf.CreateIndex("PrimaryKey")
    With idx
        'Добавление полей в индекс
        .Fields.Append .CreateField("Название поля")
        .Fields.Append .CreateField("Название поля 2")
        'Свойства индекса
        .Unique = True   'Уникальный
        .Primary = True  'Первичный
    End With
    tdf.Indexes.Append idx
    tdf.Indexes.Refresh
    Set db = Nothing
    Set tdf = Nothing
    Set idx = Nothing

Удаление индекса

'Сносит индекс "PrimaryKey" у таблицы "TableTest"
    CurrentDb.TableDefs("TableTest").Indexes.Delete ("PrimaryKey")
Назад ToTop
L.E. 16.11.2012
Рейтинг@Mail.ru