如何为已经存在的表设置主键

Question

请高手指点如何用程序实现为已经存在的表设置主键！

Answer 1

在sql server中使用ALTER TABLE语句

Answer 2

'工程->引用Microsoft ADO Ext. 2.x for DDL and Security
Private Sub Command1_Click()
    Dim adPrimary As New ADOX.Key
    Dim mCat As New ADOX.Catalog
        mCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
        adPrimary.Name = "AddPriKey"
        adPrimary.Type = adKeyPrimary
        adPrimary.Columns.Append "mID"   '表中你要设为主键的字段
        adPrimary.UpdateRule = adRICascade
        mCat.Tables("mTable").Keys.Append adPrimary
End Sub

Answer 3

在sql server2000裡alter table tabx
add constraint tabx_primary_key primary key (col1)前提條件，col列不充許是空值