服务器之家

服务器之家 > 正文

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

时间:2020-07-23 11:12     来源/作者:VBS教程网
  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. %>  
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部