请问如何在VBA中判断某一字段值的数据类型?

wu8313

以下是引用qlm在2006-10-20 20:26:00的发言：





不错！谢谢！

把日期型及对象型也加进来,这样好象更全面了。

我主要是用于在动态查询中判断是否需要加引号或#等到符号，需要解决这个问题

我也是为了 更方便的 根据不同的数据类型来确定 连接字符串 而这样做的。



Function variant_type() As String


'根据不同字段的值 ctrvalue 确定数据类型

dim ctrvalue as variant '事先并不知道数据类型，那就设为 variant 好了。然后使用  VarType 函数进行判断就可以了
Select Case VarType(ctrvalue) 'vartype的返回值为 长整型
       Case 8
       variant_type = "文本"
       Case 2, 3, 4, 5, 6, 17
       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

End Function

[此贴子已经被作者于2006-10-20 21:20:25编辑过]

qlm

有空也试试你这个