繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs adox提取数据库表名和列名的类
- VBScript
- VBS中SendKeys的基本应用
- VBScript教程 第十四课在VBScript中使用对象
- VBScript教程 第十三课 VBScript与窗体
- VBScript教程 第十二课VBScript页面的简单样例
- VBScript教程 第十一课深入VBScript
- VBScript教程 第十课 VBScript编码约定
- VBScript教程 第九课VBScript过程
- VBScript教程 第八课 使用循环语句
- VBScript教程 第七课使用条件语句
- VBScript教程 第六课VBScript运算符
- VBscript教程 第五课 VBScript常数
- VBScript教程 第四课VBScript变量
- VBScript教程 第三课VBScript数据类型
- VBScript教程 第二课在HTML页面中添加VBscript代码
- VBScript教程 第一课什么是VBScript
- VBScript的入门学习资料
- VBScript语法速查及实例说明
- MsgBox函数语言参考
- VBS教程：正则表达式简介 -后向引用
- VBS教程：正则表达式简介 -选择与编组
VBScript 中的 vbs adox提取数据库表名和列名的类
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 123 ::
收藏到网摘: n/a
<!--#include virtual="/include/conn.inc"-->
<%
'*********************************
'* classname: ADOXDBOPR
'* 制作人: 刘晓逸
'* 作用: 用adox进行数据库的操作
'* 版本: 1.0
'*www.ruanchen.com 软晨学习网
'**********************************
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
%>
评论 (0) All
