首页 服务器 编程 必备知识 搜索引擎 圩日手册
站内搜索
最近浏览
推荐文章
热文排行

创建表


Function   gettype(ByVal   index   As   Integer)   As   String  
  On   Error   Resume   Next  
  gettype   =   "The   God   know   it!"  
  Dim   types   As   New   Collection  
  types.Add   "adBigInt",   "x20"  
  types.Add   "adEmpty",   "x0"  
  types.Add   "adSmallInt",   "x2"  
  types.Add   "adInteger",   "x3"  
  types.Add   "adSingle",   "x4"  
  types.Add   "adDouble",   "x5"  
  types.Add   "adCurrency",   "x6"  
  types.Add   "adDate",   "x7"  
  types.Add   "adBSTR",   "x8"  
  types.Add   "adIDispatch",   "x9"  
  types.Add   "adError",   "x10"  
  types.Add   "adBoolean",   "x11"  
  types.Add   "adVariant",   "x12"  
  types.Add   "adIUnknown",   "x13"  
  types.Add   "adDecimal",   "x14"  
  types.Add   "adTinyInt",   "x16"  
  types.Add   "adUnsignedTinyInt",   "x17"  
  types.Add   "adUnsignedSmallInt",   "x18"  
  types.Add   "adUnsignedInt",   "x19"  
  types.Add   "adUnsignedBigInt",   "x21"  
  types.Add   "adFileTime",   "x64"  
  types.Add   "adGUID",   "x72"  
  types.Add   "adBinary",   "x128"  
  types.Add   "adChar",   "x129"  
  types.Add   "adWChar",   "x130"  
  types.Add   "adNumeric",   "x131"  
  types.Add   "adUserDefined",   "x132"  
  types.Add   "adDBDate",   "x133"  
  types.Add   "adDBTime",   "x134"  
  types.Add   "adDBTimeStamp",   "x135"  
  types.Add   "adChapter",   "x136"  
  types.Add   "adDBFileTime",   "x137"  
  types.Add   "adPropVariant",   "x138"  
  types.Add   "adVarNumeric",   "x139"  
  types.Add   "adVarChar",   "x200"  
  types.Add   "adLongVarChar",   "x201"  
  types.Add   "adVarWChar",   "x202"  
  types.Add   "adLongVarWChar",   "x203"  
  types.Add   "adVarBinary",   "x204"  
  types.Add   "adLongVarBinary",   "x205"  
   
   
  If   types("x"   &   index)   >   ""   Then   gettype   =   types("x"   &   index)  
   
  End   Function  
[wangjy17908]
添加时间:2009-11-10
版权所有(C)2005-2015