function
getType
(num)
getType = num
select case num
case " 202 " :
getType = " 文本 "
case " 203 " :
getType = " 备注 "
case " 3 " :
getType = " 长整型 "
case " 2 " :
getType = " 整型 "
case " 17 " :
getType = " 字节 "
case " 3 " :
getType = " 长整型 "
case " 4 " :
getType = " 单精浮点 "
case " 5 " :
getType = " 双精浮点 "
case " 3 " :
getType = " 长整型 "
case " 72 " :
getType = " 同步复制ID "
case " 131 " :
getType = " 小数 "
case " 135 " :
getType = " 日期/时间 "
case " 6 " :
getType = " 货币 "
case " 11 " :
getType = " 是/否 "
case " 205 " :
getType = " OLE对象 "
end select
end function
getType = num
select case num
case " 202 " :
getType = " 文本 "
case " 203 " :
getType = " 备注 "
case " 3 " :
getType = " 长整型 "
case " 2 " :
getType = " 整型 "
case " 17 " :
getType = " 字节 "
case " 3 " :
getType = " 长整型 "
case " 4 " :
getType = " 单精浮点 "
case " 5 " :
getType = " 双精浮点 "
case " 3 " :
getType = " 长整型 "
case " 72 " :
getType = " 同步复制ID "
case " 131 " :
getType = " 小数 "
case " 135 " :
getType = " 日期/时间 "
case " 6 " :
getType = " 货币 "
case " 11 " :
getType = " 是/否 "
case " 205 " :
getType = " OLE对象 "
end select
end function
for each field in rs.fields
getType(field.type) '返回类型
'name-名字 DefinedSize-大小
next