使用 ADOX 是否能将已经存在的字段设置为主键 以及 将已被设置为主键的字段取消主键属性 ？

Question

我试了很久也没办法，是不是真的不能实现？

Answer 1

如果是access可以这样
    Dim cnn As New Connection
    Dim cat As New ADOX.Catalog
    Dim k As ADOX.Key
    Dim i As Long
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Administrator\桌面\E_A.mdb;Persist Security Info=False"
    Set cat.ActiveConnection = cnn
    
    '去掉主键
    For i = 0 To cat.Tables("qq").Keys.Count - 1
        If cat.Tables("qq").Keys(i).Type = adKeyPrimary Then
            cat.Tables("qq").Keys.Delete i
        End If
    Next i
    
    '设置ii为主键
    Set k = New Key
    k.Name = "PK"
    k.Type = adKeyPrimary
    k.Columns.Append "ii"
    cat.Tables("qq").Keys.Append k

Answer 2

谢谢bdhh(Silent)的解答。我还有几个问题，看看我后面的贴子吧