MS Access | ADO | Создать таблицу, указать ключ

'установка ключевого поля (ADO)

Sub CreatePrimaryKey_ADO()

 

Dim db As ADOX.Catalog, tbl As ADOX.Table, idx As ADOX.Index

 

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

 

Set tbl = New ADOX.Table

 

tbl.Name = "PrimaryKey"

tbl.Columns.Append "PK", adWChar

 

db.Tables.Append tbl

 

Set idx = New ADOX.Index

 

idx.Name = "PrimaryKey"

idx.Columns.Append "PK"

idx.PrimaryKey = True

 

tbl.Indexes.Append idx

 

End Sub



© 2018 | Анна Петросян | pashelp@yandex.ru