濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)

vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)
熱門(mén)標(biāo)簽：天津智能外呼系統(tǒng)排名 機(jī)器人打電銷(xiāo)適用于美業(yè)嗎 龍巖400電話申請(qǐng) 外呼系統(tǒng)說(shuō)話聲音小怎么辦 企業(yè)400電話辦理價(jià)錢(qián)低 智云億呼電話機(jī)器人 外呼系統(tǒng)群 上海辦理400電話選號(hào) 墨西哥地圖標(biāo)注app
!--#include virtual="/include/conn.inc"-->
%
'*********************************
'* classname: ADOXDBOPR
'* 制作人: 劉曉逸
'* 作用: 用adox進(jìn)行數(shù)據(jù)庫(kù)的操作
'* 版本: 1.0
'*www.jb51.net 腳本之家
'**********************************
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="數(shù)字"
  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
%>

標(biāo)簽：青島 麗水 鄂爾多斯 承德 阜新 齊齊哈爾 錫林郭勒盟 黃山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)》，本文關(guān)鍵詞  vbs,adox,提取,數(shù)據(jù)庫(kù),表名,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于vbs adox提取數(shù)據(jù)庫(kù)表名和列名的類(lèi)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    嘉黎县| 尉氏县| 太仆寺旗| 顺昌县| 且末县| 陵水| 陕西省| 泸州市| 栖霞市| 登封市| 体育| 丹江口市| 泗洪县| 萨迦县| 青冈县| 昌黎县| 花莲县| 英德市| 崇仁县| 潞城市| 嘉鱼县| 通江县| 阳信县| 陆良县| 井陉县| 宣城市| 舒兰市| 恩施市| 淄博市| 玉环县| 繁峙县| 岚皋县| 来凤县| 安国市| 周至县| 安陆市| 繁峙县| 鹤峰县| 夏河县| 瓦房店市| 托里县|