自己用代码转换吧.
select case TypeValue
case dbBigInt
msgbox "Big Integer"
case dbBinary
msgBox "Binary"
case else
end select
'dbBoolean Boolean
'dbByte Byte
'dbChar Char
'dbCurrency Currency
'dbDate Date/Time
'dbDecimal Decimal
'dbDouble Double
'dbFloat Float
'dbGUID GUID
'dbInteger Integer
'dbLong Long
'dbLongBinary Long Binary (OLE Object)
'dbMemo Memo
'dbNumeric Numeric
'dbSingle Single
'dbText Text
'dbTime Time
'dbTimeStamp Time Stamp
'dbVarBinary
select case TypeValue
case dbBigInt
msgbox "Big Integer"
case dbBinary
msgBox "Binary"
case else
end select
'dbBoolean Boolean
'dbByte Byte
'dbChar Char
'dbCurrency Currency
'dbDate Date/Time
'dbDecimal Decimal
'dbDouble Double
'dbFloat Float
'dbGUID GUID
'dbInteger Integer
'dbLong Long
'dbLongBinary Long Binary (OLE Object)
'dbMemo Memo
'dbNumeric Numeric
'dbSingle Single
'dbText Text
'dbTime Time
'dbTimeStamp Time Stamp
'dbVarBinary
解决方案 »
- MSCOMM1与单片机通讯
- 如何获得Variant类型中成员的个数
- 两种方式哪种好?(关于网络数据传递)
- 调用WORD时出现“AutoMation 错误”,什么回事啊?
- 哪位兄台能够帮一下忙!!!万分感激!!
- 求助:安装程序在win98上运行的错误
- 我下午就得交作业,大家帮忙啊,谢了,写个注释,万分感谢!!!
- 讨论:你是否会用专门的Flash播放器/浏览器来观看Flash动画?为什么?回答最佳者给10分。
- 关于VB的几个问题,300分赏金!!!
- 谁来帮我瞧瞧这句语句该怎么改?非常感谢!
- 如何在打印前把windows的打印设置调出来??
- ^^^^^^^^^^^^^^^^^^^^^^^^^最近比较烦,买了猴子那本API的书,买了essential c++没有一本学得好!
adChar
adDate