如何在从头创建的ADODB.Recordset上强制实施主键唯一性？

Question

我正在使用记录集作为我正在获取的一些数据的载体。我正在获得重复项，我很好奇如何尝试添加重复项时如何让记录集抱怨。

所以，基本上我想创建一个关键字段。我找到了adFldKeyColumn参数，但它没有强制执行，我必须遗漏一些东西。

Function CreateIndexedRecordSet() As ADODB.Recordset
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Fields.Append "Name", adBSTR, 255
    rs.Fields.Append "pkey", adInteger, , adFldKeyColumn
    rs.Open

    rs.AddNew Array("Name", "pkey"), Array("foo", 1)
    rs.AddNew Array("Name", "pkey"), Array("bar", 1)  '<--- this should complain

    Debug.Print rs.Supports(CursorOptionEnum.adIndex) '<--- sadly prints False, perhaps use a different provider?

    Set CreateIndexedRecordSet = rs
End Function

请不要分类答案，我完全知道我可以使用词典，同时我获取数据并以这种方式捕获重复项，这就是我将要做的同时。只是必须有一位知道诀窍的ADO专家。

更新：我在RecordSet对象上找到了一个Supports方法，如果我传入CursorOptionEnum.adIndex然后它回复False。也许使用不同的提供商？

Answer 1

正如@AlexK所指出的那样，这是无法实现的

ADODB记录集不支持自身的约束。它是强制执行约束的数据库，而不是记录集。如果您的记录集未更新到数据库，则没有约束。

若要演示此行为，您可以在Access中测试以下内容：

创建一个名为Table1的表，其中包含2个字段（ID，主键，Field1，字符串）

运行以下代码：

Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
conn.CursorLocation = adUseClient
rs.Open "SELECT * FROM Table1", conn, adOpenKeyset, adLockBatchOptimistic 'Open up recordset
Set rs.ActiveConnection = Nothing 'Disconnect it from the database connection
rs.AddNew Array("ID", "Field1"), Array(1, "A") 'Add a record
rs.AddNew Array("ID", "Field1"), Array(1, "A") 'And another identical one
Set rs.ActiveConnection = conn
'All fine until here, recordset contains 2 records with identical primary key
rs.UpdateBatch 'Errors, duplicate primary key

当然，您可以自己手动检查重复项，或者在Recordset_WillChangeRecord事件上设置处理程序以强制执行约束，但您说您对此不感兴趣。

无法做到每个Is “this is not possible” an acceptable answer?允许的答案