以下是引用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编辑过]
|