Access獲取字段的數(shù)據(jù)類型

在添加數(shù)據(jù)的時候，我們可能判斷需要判斷該字段的數(shù)據(jù)類型

因?yàn)閿?shù)據(jù)類型的限制，未必能正常錄入。而且不同數(shù)據(jù)類型，對于獲取變量的寫法也不一樣，詳細(xì)代碼：

Function myfun(fld, sqlStr) As String
    
    Dim rs As New ADODB.Recordset
    rs.Open sqlStr, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
   
     Dim typ As Integer
    Dim variant_type As Variant
    typ = rs.Fields("" & fld & "").Type

    Select Case typ
    Case 202, 203
        variant_type = "文本"
    Case 2, 3, 4, 5, 6, 17, 131
        variant_type = "數(shù)字"
    Case 7
        variant_type = "日期/時間"
    Case 9
        variant_type = "ole對象"
    Case 11
        variant_type = "布爾"
    Case 0
        variant_type = "empty"
    Case 1
        variant_type = "null"
    Case 10
        variant_type = "error"
    Case Else
        variant_type = "其他的數(shù)據(jù)類型"
    End Select
    myfun = variant_type
End Function

調(diào)用函數(shù)：myfun("交易類型","yw")