脚本之家,脚本语言编程技术及教程分享平台!
分类导航

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

服务器之家 - 脚本之家 - VBS - vbs adox提取数据库表名和列名的类

vbs adox提取数据库表名和列名的类

2020-07-23 11:12VBS教程网 VBS

vbs结合adox实现提取表名,列名等信息的的vbs类一直没怎么了解adox,先转过来,有时间研究下!!

  1. <!--#include virtual="/include/conn.inc"-->  
  2. <%  
  3. '*********************************  
  4. '* classname: ADOXDBOPR  
  5. '* 制作人: 刘晓逸  
  6. '* 作用: 用adox进行数据库的操作  
  7. '* 版本: 1.0  
  8. '*www.zzvips.com 服务器之家 
  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="数字"  
  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. %>  

延伸 · 阅读

精彩推荐