文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

vbs中如何使用adox实现提取数据库表名和列名的类

2023-06-08 10:12

关注

这篇文章主要介绍了vbs中如何使用adox实现提取数据库表名和列名的类,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

<!--#include virtual="/include/conn.inc"-->
<%

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实现提取数据库表名和列名的类”这篇文章对大家有帮助,同时也希望大家多多支持编程网,关注编程网行业资讯频道,更多相关知识等着你来学习!

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯