Да (Совпадения не допускаются)

[rasiell]

Подскажите пожалуйста, как прграммно сделать в аксесовской базе, чтобы поля были индексированными и чтобы совпадения не допускались (использую ADOx)?

Код: Выделить всё


Dim col As New Column
col.Name = colName
col.Attributes = adColNullable
oCat.Tables(fieldName).Columns.Append col


И можно ли это как-то сразу распространить на всю базу, например при ее создании?

[BasiС]

Для создания таблиц с индексированными полями я использую ADO и работаю с БД через SQL запросы. Например следующий запрос создаёт новую таблицу Prises:

Код: Выделить всё

CREATE TABLE Prises (PrisID COUNTER CONSTRAINT PrisID_pk PRIMARY KEY, PrisPort TEXT(50), PrisStop SINGLE, PrisAmount DOUBLE, PrisUe TEXT(10), PrisMemo MEMO, PrisDate DATE)

где поле PrisID является счётчиком, в котором естественно не допускаются совпадения.

[rasiell]

Что-то не получается )

Вот такую штуку откопал, но работать зараза не хочет(

Код: Выделить всё

Public Sub newIndex(dbTable As ADOX.Table)
'  dbTable is table where we add new index
Dim dbIndex As ADOX.Index
    On Error GoTo errCatch

    Set dbIndex = New ADOX.Index
    dbIndex.name = "tblPrimaryIndex"
    dbIndex.Clustered = True
    dbIndex.IndexNulls = adIndexNullsDisallow
    dbIndex.PrimaryKey = True
    dbIndex.Unique = True

    dbIndex.Columns.Append "id_Column"
    ' id_Column is a name of column

    dbTable.Keys.Append dbIndex

    dbTable.Indexes.Append "column2Index", "newColumn2"
    ' newColumn2 is name of column in our table
    Exit Sub

errCatch:
        MsgBox Err.Description & Err.Number
End Sub


[zHackLeX]

1) Для БД есть отдельная ветка... возможно, тему перенесут...

2) А есть необходимость именно в счётчике? Уникальность первичного ключа БД обеспечивается в любом случае, будь оно хоть текстовым (впрочем, это крайне нежелательно).

В любом случае, код

Код: Выделить всё


CREATE TABLE Prises (
    PrisID COUNTER  PRIMARY KEY,
    PrisPort TEXT(50),
    PrisStop SINGLE,
    PrisAmount DOUBLE,
    PrisUe TEXT(10),
    PrisMemo MEMO,
    PrisDate DATE
)


делает таблицу с ключом требуемого типа, а команда
CREATE [ UNIQUE ] INDEX индекс
ON таблица (поле [ASC|DESC][, поле [ASC|DESC], ...])
[WITH { PRIMARY | DISALLOW NULL | IGNORE NULL }]

отвечает за создание индекса (справка по Access)

Требовалось именно это?

ЗЫ. Я, честно говоря, не уверен, что для добавления ограничения уникальности/первичного ключа/индекса/итп лучше использовать VB-код. Я бы предпочёл воспользоваться языком SQL.

ЗЗЫ. Вообще эту тему я открыл из-за того, что по её названию не понял ничего вообще.

[rasiell]

Решил вот таким способом.

Код: Выделить всё

Dim oTable As New Table
oTable.Name = TableName
oCat.Tables.Append oTable

oCat.Tables(TableName).Columns.Append ColunmName

Set idx = New ADOX.Index
With idx
.Name = "Index1"
.Columns.Append ColunmName
.Unique = True
End With

oCat.Tables(TableName).Indexes.Append idx

У меня база создавалась программно и надо было также программно присваивать колонкам таблиц индексы, для того, чтобы ячейки заполнялись уникальными данными (отсюда и .Unique = True). Пока кроме такого решения ничего не нашел.