国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

腳本之家，腳本語(yǔ)言編程技術(shù)及教程分享平臺(tái)！
分類導(dǎo)航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務(wù)器之家 - 腳本之家 - VBS - vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類

vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類

2020-07-23 11:12VBS教程網(wǎng) VBS

vbs結(jié)合adox實(shí)現(xiàn)提取表名，列名等信息的的vbs類一直沒(méi)怎么了解adox，先轉(zhuǎn)過(guò)來(lái)，有時(shí)間研究下?。?

  1. <!--#include virtual="/include/conn.inc"-->  
  2. <%  
  3. '*********************************  
  4. '* classname: ADOXDBOPR  
  5. '* 制作人: 劉曉逸  
  6. '* 作用: 用adox進(jìn)行數(shù)據(jù)庫(kù)的操作  
  7. '* 版本: 1.0  
  8. '*www.jfrwli.cn 服務(wù)器之家 
  9. '**********************************  
  10. Class ADOXDBOPR  
  11.  
  12. dim objADOX  
  13.  
  14. Private Sub Class_Initialize   
  15. Set objADOX=Server.CreateObject("ADOX.Catalog")  
  16. end sub  
  17.  
  18. Public Property let Connection(objCONN)  
  19. objADOX.ActiveConnection=objCONN  
  20. End Property  
  21.  
  22. public function arrTName  
  23. dim arrTNames()  
  24. dim i : i=1  
  25. for each objtab in objADOX.tables  
  26.   if objtab.type="TABLE" then  
  27.    redim Preserve arrTNames(i)  
  28.    arrTNames(i-1)=objtab.name  
  29.    i=i+1  
  30.   end if  
  31. next  
  32. arrTName=arrTNames  
  33. end function   
  34.  
  35. public function arrfinfo(szTName)  
  36. dim arrf()  
  37. Set objTAdox=objADOX.tables.item(szTName)  
  38. for i=0 to objTAdox.columns.count-1  
  39.   Set dicInfo=Server.CreateObject("Scripting.Dictionary")  
  40.   redim preserve arrf(i+1)  
  41.   dicInfo.add "name",objTAdox.columns.Item(i).name  
  42.   dicInfo.add "type",type_int2str(objTAdox.columns.Item(i).type)  
  43.   Set arrf(i)=dicInfo  
  44.   Set dicInfo=nothing  
  45. next   
  46. arrfinfo=arrf  
  47. end function  
  48.  
  49. public sub del_table(szTName)  
  50. objADOX.tables.delete szTName  
  51. End Sub  
  52.  
  53. public sub add_table(szTName)  
  54. Set obj_tab=Server.CreateObject("ADOX.Table")  
  55. obj_tab.Name=szTName  
  56. Set obj_tab.ParentCatalog=objADOX  
  57. objADOX.tables.Append obj_tab  
  58. Set obj_tab=nothing  
  59. End Sub  
  60.  
  61. public sub delColumns(arrColumns,szTName)  
  62. Set obj_tab=objADOX.tables.item(szTName)  
  63. if isarray(arrColumns) then  
  64.   for i=0 to ubound(arrColumns)  
  65.    obj_tab.columns.delete arrColumns(i)  
  66.   next  
  67. else  
  68.   obj_tab.columns.delete arrColumns  
  69. end if  
  70. end sub  
  71.  
  72. public sub add_columns(arrColumns,szTName)  
  73. Set objTab=objADOX.tables.item(szTName)  
  74. for i=0 to ubound(arrColumns)  
  75.   objTab.columns.append arrColumns(i,0),arrColumns(i,1),arrColumns(i,2)  
  76. next  
  77. end sub  
  78.  
  79. function type_int2str(int_value)  
  80. select case int_value  
  81.   case 3:  
  82.   type_int2str="數(shù)字"  
  83.   case 202:  
  84.   type_int2str="文本"  
  85.   case else:  
  86.   type_int2str=int_value  
  87. end select  
  88. end function  
  89.  
  90. Private Sub Class_Terminate  
  91. Set objADOX=nothing  
  92. End Sub  
  93.  
  94. End class  
  95. %>  

延伸 · 閱讀

精彩推薦
Weibo Article 1 Weibo Article 2 Weibo Article 3 Weibo Article 4 Weibo Article 5 Weibo Article 6 Weibo Article 7 Weibo Article 8 Weibo Article 9 Weibo Article 10 Weibo Article 11 Weibo Article 12 Weibo Article 13 Weibo Article 14 Weibo Article 15 Weibo Article 16 Weibo Article 17 Weibo Article 18 Weibo Article 19 Weibo Article 20 Weibo Article 21 Weibo Article 22 Weibo Article 23 Weibo Article 24 Weibo Article 25 Weibo Article 26 Weibo Article 27 Weibo Article 28 Weibo Article 29 Weibo Article 30 Weibo Article 31 Weibo Article 32 Weibo Article 33 Weibo Article 34 Weibo Article 35 Weibo Article 36 Weibo Article 37 Weibo Article 38 Weibo Article 39 Weibo Article 40
主站蜘蛛池模板： 免费观看一区二区三区毛片软件 | 在线观看91 | 亚洲成人免费影院 | 色接久久 | 久久精品免费观看 | 激情欧美一区二区三区中文字幕 | 中文字幕亚洲欧美 | 伊人伊人| 亚洲伊人久久综合 | 久久精品国产99 | 成人在线视频网站 | 精品国产一区二区在线 | 欧美亚洲高清 | 欧美一级大片 | 欧美黄色影院 | 欧美日韩成人精品 | av在线一区二区 | 91麻豆产精品久久久久久 | 亚洲国产视频一区二区 | 一区二区三区在线免费观看 | 久久精品国产精品青草 | 亚洲一区二区三区 | 福利片网址 | 一本色道久久综合狠狠躁的推荐 | 黄免费| 亚洲福利电影网 | 亚洲一区二区免费看 | 羞羞动漫在线观看 | 日韩av一区二区在线观看 | 81精品国产乱码久久久久久 | 日韩久久精品一区二区 | www.久久久| 久久久91精品国产一区二区三区 | 成人爽a毛片一区二区免费 成年人毛片视频 | 欧美日韩三级在线 | 亚洲国产区 | 亚洲自拍不卡 | 精品国产三级 | 99re视频在线观看 | 天天影视网色香欲综合网无拦截 | 亚洲男人av |