ACCESS中建了主键机器自动产生的约束名，请问有什么方法能得到这个约束名

[jeary]

ACCESS中建了主键机器自动产生的约束名，请问有什么方法能得到这个约束名，请高手指点

[OracleRoob]

'获取指定表名的主键名
Public Sub testKey()
On Error GoTo err_this
Dim strTblName As String

Dim adoxcat As New ADOX.Catalog
Dim adoxtbl As New ADOX.Table
Dim adoxkey As New ADOX.Key
Dim intKeys As Integer
Dim intKey As Integer

strTblName = "表名"
adoxcat.ActiveConnection = CurrentProject.Connection

Set adoxtbl = adoxcat.Tables(strTblName)
Debug.Print adoxcat.Tables(strTblName).Name
' Set adoxkey = adoxtbl.Keys

' For Each adoxkey In adoxtbl.Keys
intKeys = adoxtbl.Keys.Count - 1
For intKey = 0 To intKeys
Debug.Print adoxtbl.Keys.Item(intKey).Name
Next intKey
' Debug.Print adoxkey.Columns
Debug.Print adoxkey.Name, adoxkey.Type

' Next

Set adoxkey = Nothing
Set adoxtbl = Nothing
Set adoxcat = Nothing
exit_sub:
Exit Sub
err_this:
MsgBox Err.Description, vbOKOnly + vbCritical, Err.Number
Resume exit_sub
End Sub

[OracleRoob]

'需要引用“Microsoft ADO Ext. 2.X For DDL and Security”

[jeary]

你说的方法好像不行啊
象这句 alter table tt1 add CONSTRAINT rr primary key(id,bh,bh1) 建立主键指定的约束明为rr
如果用 alter table tt1 add primary key(id,bh,bh1) 的话机器自动产生的约束名有什么方法知道？

[OracleRoob]

在 Access模块中使用如上代码，可以知道表的关键字约束名。

[jeary]

大哥太感谢你了 你的程序行了 谢谢

[OracleRoob]

如果是系统自动生成的表关键字约束，默认是名字是：PrimaryKey