MyTetra Share
Делитесь знаниями!
Программное создание базы данных с помощью ADOX - Часть 2 (исходники)
16.03.2019
23:43
Текстовые метки: VBA, CreateDataBase, создание базы данных
Раздел: !Закладки - VBA - Access - msa.polarcom.ru

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

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

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")



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования