得到Access表的數據類型(RecordSet.fields(i).type)

function getType(num)
   getType=num
   select case num
     case "202" :
       getType="文本"
     case "203" :
       getType="備注"
     case "3" :
       getType="長整型"
     case<

$False$

/span> "2" :
       getType="整型"
     case "17" :
       getType="字節"
     case "3" :
       getType="長整型"
     case "4" :
       getType="單精浮點"
     case

: #000000"> "5" :
       getType="雙精浮點"
     case "3" :
       getType="長整型"
     case "72" :
       getType="同步復制ID"
     case "131" :
       getType="小數"
     case </span>"135" :
       getType="日期/時間"
     case "6" :
       getType="貨幣"
     case "11" :
       getType="是/否"
     case "205" :
       getType="OLE對象"
   end 

00ff">select
end function

for each field in rs.fIElds

getType(fIEld.type) ''返回類型

''name-名字  DefinedSize-大小

next