关于取得表主键的问题，不知谁会？

[唯伊Coder]

如果只知道表的名称，想取出表的主键，应该怎么取？谢谢！

[of123]

Dim dbsNorthwind As Database
Dim tdfEmployees As TableDef
Dim idxLoop As Index

Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set tdfEmployees = dbsNorthwind!Employees

With tdfEmployees

' Enumerate Indexes collection of Employees
' table.
For Each idxLoop In .Indexes
If idxLoop.Primary Then Debug.Print " Primary Key:";
Debug.Print " " & idxLoop.Name
Next idxLoop
End With

dbsNorthwind.Close

[zhoubojun]

你可以试一试sql里面的isprimarykey

[timesong]

"sql里面的isprimarykey", 有吗，能否具体点?

[流星尔]

在asp或者其他客户端程序中执行sp_columns tablename存储过程，然后会返回一个结果集。把data_type为4的取出来就是你的关键子。你在查询分析器中一试就知道了。

[of123]

在楼上给了你DAO方法。
下面是ADO方法：（这是微软网站上的例子）
Private Function FindPrimaryKey( _
tbl As ADOX.Table) As Variant

' Given a particular table, find the primary
' key name, if it exists.

' Returns the name of the primary key's index, if
' it exists, or Null if there wasn't a primary key.

Dim idx As ADOX.Index

For Each idx In tbl.Indexes
If idx.PrimaryKey Then
FindPrimaryKey = idx.Name
Exit Function
End If
Next idx
FindPrimaryKey = Null
End Function