Access获取字段的数据类型

在添加数据的时候，我们可能判断需要判断该字段的数据类型

因为数据类型的限制，未必能正常录入。而且不同数据类型，对于获取变量的写法也不一样，详细代码：

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 = "数字"

  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 = "其他的数据类型"

  End Select

   myfun = variant_type

End Function

调用函数：myfun("交易类型","yw")