VBS ADOX class for extracting database table and column names _vbs
Source: Internet
Author: User
<!--#include virtual= "/include/conn.inc"-->
<%
'*********************************
' * CLASSNAME:ADOXDBOPR
' * Producer: Liu Xiaoyi
' * Role: Using ADOX for database operations
' * Version: 1.0
' *www.jb51.net cloud-dwelling community
'**********************************
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= "Number"
Case 202:
type_int2str= "Text"
Case Else:
Type_int2str=int_value
End Select
End Function
Private Sub Class_Terminate
Set objadox=nothing
End Sub
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.