access怎样判断主键
在Access中,可以通过以下几种方式来判断一个字段是否是为主键:
Function GetPrimaryKey(ByVal TableName As String) As String
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
Set db = CurrentDb
Set tdf = db.TableDefs(TableName)
For Each idx In tdf.Indexes
If idx.Primary Then
For Each fld In idx.Fields
GetPrimaryKey = fld.Name
Exit Function
Next fld
End If
Next idx
GetPrimaryKey = ""
End Function
以上是几种常见的判断Access主键的方法,根据具体的情况选择合适自己的方式来判断主键字段。
TOP