Какое имя нарушения уникального ограничения индекса в dao/ms-access

Question

Я пытаюсь вставить запись в таблицу с DAO (внутри MS-Access), и я получаю сообщение об ошибке 3022 (что указывает на то, что нарушается уникальный индекс). Ошибка правильная, так как на самом деле записанная вставляемая запись имеет значение, которое уже найдено в таблице.

Теперь я хотел бы узнать название нарушенного уникального индекса. Кто-нибудь знает, как я это получу?

Спасибо за любой указатель Рене

Answer 1

Вот некоторые примечания:

Sub WithADO() 
''Reference: Microsoft ADO Ext x.x For DLL and Security 
Dim catTables As ADOX.Catalog 
Dim cn As ADODB.Connection 
Dim ndx As Object 

Set catTables = CreateObject("ADOX.Catalog") 

Set cn = CreateObject("ADODB.Connection") 
dbfile = "C:\Docs\LTD.mdb" 

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
       "Data Source=" & dbfile & ";" 

Set catTables.ActiveConnection = cn 

For Each ndx In catTables.Tables("Table1").Indexes 
    strlist = ndx.Name & " " & ndx.Properties("Primary Key") & vbCrLf & strlist 
Next 
MsgBox strlist 

Set catTables = Nothing 

End Sub 

Sub WithDAO() 
''Reference: Microsoft DAO x.x Object Library 
Dim db As DAO.Database 
Dim tdf As TableDef 
Dim ndx As Object 

Set db = CurrentDb 
Set tdf = db.TableDefs("Table1") 

For Each ndx In tdf.Indexes 

    If ndx.Primary = True Then 
     MsgBox ndx.Name 
    End If 
Next 
End Sub 

Вы также можете использовать схемы.