vbs中如何使用adox实现提取数据库表名和列名的类
发表于:2024-10-07 作者:千家信息网编辑
千家信息网最后更新 2024年10月07日,这篇文章主要介绍了vbs中如何使用adox实现提取数据库表名和列名的类,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。[an error occurred while processing the directive]
<%
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
%>
<%
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
%>
感谢你能够认真阅读完这篇文章,希望小编分享的"vbs中如何使用adox实现提取数据库表名和列名的类"这篇文章对大家有帮助,同时也希望大家多多支持,关注行业资讯频道,更多相关知识等着你来学习!
篇文章
数据
数据库
价值
兴趣
同时
数字
文本
更多
朋友
知识
编带
行业
资讯
资讯频道
频道
参考
学习
帮助
支持
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
数据库恢复后大小不同
游戏服务器锁区什么意思
查询数据库连接池
服务器填充
网易 对方服务器拒绝
哪些是kv数据库
西安中科软件开发公司
马自达链接服务器超时
jeecg获取字典表数据库
网络安全对业务系统的作用
代码版本管理 服务器
安徽省财经发展统计数据库
奉化嵌入式软件开发周期
安卓登录与注册数据库代码
对计算机网络技术的体会
未落实网络安全专项资金
万家灯火网络技术有限公司
口碑好的软件开发报价
全国计算机四级网络技术题型
易语言数据库汉字
微信服务号 数据库
网安漫画网络安全小知识
三校生高考网络技术试题
网约车软件开发现状分析
肇东市五域网络技术有限公司
网络安全教育英语内容
未连接到数据库连接
机柜中的云服务器怎么连接
数据库在实际的应用
搜狗网络技术有限