得到Access表的数据类型(RecordSet.fields(i).type)

最新推荐文章于 2021-06-18 20:31:08 发布

原创最新推荐文章于 2021-06-18 20:31:08 发布 · 4.3k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#access #function #each

VB 同时被 2 个专栏收录

77 篇文章

订阅专栏

ASP

36 篇文章

订阅专栏

本文介绍了一个VBA中用于转换不同类型字段数据类型的函数。该函数通过输入字段类型编号，返回对应的VBA数据类型名称，如文本、备注、长整型等。此外，还展示了如何遍历记录集中的字段并调用此函数来获取每个字段的数据类型。

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

for each field in rs.fields

getType(field.type) '返回类型

'name-名字 DefinedSize-大小