adox 的vbs类，提取表名，列名等

我看blog里，还有很多地方都引用过我写的这个类，转了不少，但自己一直也没发表过，这次正式发表一下。

在蓝色理想中有人不懂怎么用，我在baidu中查到过，这里帖出来给大家玩玩吧。。。呵呵

<!--#include virtual="/include/conn.inc"-->
<％
'*********************************
'* classname: ADOXDBOPR
'* 制作人: 刘晓逸
'* 作用: 用adox进行数据库的操作
'* 版本: 1.0
'**********************************
Class ADOXDBOPR
dim objADOX
Private Sub Class_Initialize 
 Set objADOX=Server.CreateObject("ADOX.Catalog")
end sub
Public Property let Connection(objCONN)
 objADOX.ActiveConnection=objCONN
End Property
public function arrTName
 dim arrTNames()
 dim i : i=1
 for each objtab in objADOX.tables
  if objtab.type="TABLE" then
   redim Preserve arrTNames(i)
   arrTNames(i-1)=objtab.name
   i=i+1
  end if
 next
 arrTName=arrTNames
end function 
public function arrfinfo(szTName)
 dim arrf()
 Set objTAdox=objADOX.tables.item(szTName)
 for i=0 to objTAdox.columns.count-1
  Set dicInfo=Server.CreateObject("Scripting.Dictionary")
  redim preserve arrf(i+1)
  dicInfo.add "name",objTAdox.columns.Item(i).name
  dicInfo.add "type",type_int2str(objTAdox.columns.Item(i).type)
  Set arrf(i)=dicInfo
  Set dicInfo=nothing
 next 
 arrfinfo=arrf
end function
public sub del_table(szTName)
 objADOX.tables.delete szTName
End Sub
public sub add_table(szTName)
 Set obj_tab=Server.CreateObject("ADOX.Table")
 obj_tab.Name=szTName
 Set obj_tab.ParentCatalog=objADOX
 objADOX.tables.Append obj_tab
 Set obj_tab=nothing
End Sub
public sub delColumns(arrColumns,szTName)
 Set obj_tab=objADOX.tables.item(szTName)
 if isarray(arrColumns) then
  for i=0 to ubound(arrColumns)
   obj_tab.columns.delete arrColumns(i)
  next
 else
  obj_tab.columns.delete arrColumns
 end if
end sub
public sub add_columns(arrColumns,szTName)
 Set objTab=objADOX.tables.item(szTName)
 for i=0 to ubound(arrColumns)
  objTab.columns.append arrColumns(i,0),arrColumns(i,1),arrColumns(i,2)
 next
end sub
function type_int2str(int_value)
 select case int_value
  case 3:
  type_int2str="数字"
  case 202:
  type_int2str="文本"
  case else:
  type_int2str=int_value
 end select
end function
Private Sub Class_Terminate
 Set objADOX=nothing
End Sub
End class

％>