求助：如何判断一个ACCESS字段是否为自动编号（已解决）

鱼儿游游

用ADO读取记录集，如何判断一个ACCESS字段是否为自动编号？

判断SQL数据库的我已解决，写了一个通用函数，调用即可。
'
'判断某列是否是标识列：是标识列，则返回：True、否则返回：False
Public Function IsIdentityField(ByVal strFieldName As String, ByVal strTableName As String) As Boolean
On Error GoTo Err_Handler
    Dim blnResult As Boolean
    Dim varValue  As Variant
    Dim rst       As Object
    Dim strSQL    As String
    blnResult = False
    varValue = 0
    strSQL = "SELECT COLUMNPROPERTY(OBJECT_ID('" & strTableName & "'),'" & strFieldName & "','IsIdentity')"
    If GetRecordset(rst, strSQL) Then
       If rst.RecordCount > 0 Then
             varValue = Nz(rst.Fields(0).Value, "NotFould")
       End If
       rst.Close
    End If
    If varValue = "NotFould" Then
        MsgBox "指定的数据表名[" & strTableName & "] 或 字段名[" & strFieldName & "]不存在！", vbExclamation, "提示"
    Else
        blnResult = varValue <> 0
    End If
Exit_Handler:
    IsIdentityField = blnResult
    Set rst = Nothing
    Exit Function
Err_Handler:
    blnResult = False
    MsgBox Err.Description, vbExclamation, "判断列是否是标识列出错"
    Resume Exit_Handler
End Function

Henry D. Sy

1. '---------------------------------------------------------------------------------------
   
2. ' Module    : IsAutoNum
   
3. ' DateTime  : 2011-12-07 22:00
   
4. ' Author    : Henry D. Sy
   
5. ' Purpose   : AutoNumIs("tbl1")
   
6. '---------------------------------------------------------------------------------------
   
7. Public Function AutoNumIs(ByVal tblName As String) As String
   
8.     Dim rs As New ADODB.Recordset
   
9.     Dim cnn As New ADODB.Connection
   
10.     Dim intCount As Integer
    
11.     Dim strName As String
    
12.     On Error GoTo AutoNumIs_Error
    
13. 
    
14.     Set cnn = CurrentProject.Connection
    
15.     rs.Open tblName, cnn, adOpenKeyset, adLockReadOnly
    
16.     For intCount = 0 To rs.Fields.Count - 1
    
17.         If rs.Fields(intCount).Properties("isautoincrement") Then
    
18.             strName = rs.Fields(intCount).Name
    
19.             Exit For
    
20.         End If
    
21.     Next
    
22.     If Len(strName) <> 0 Then
    
23.         AutoNumIs = strName
    
24.     Else
    
25.         AutoNumIs = "Not Find"
    
26.     End If
    
27.     rs.Close
    
28.     Set rs = Nothing
    
29. 
    
30.     On Error GoTo 0
    
31.     Exit Function
    
32. 
    
33. AutoNumIs_Error:
    
34. 
    
35.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
36. End Function
    

复制代码

鱼儿游游

多谢Henry D. Sy斑竹！