六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

不用ADOX也可以判斷access表是否存在

[摘要]哈哈,不用ADOX也可以!! <% Dim cn ,strCnn,rstSchema set cn = server.createobject("ADODB.Connection") set strCnn = server.createobject("ADODB...

哈哈,不用ADOX也可以!!


<%

Dim cn ,strCnn,rstSchema

set cn = server.createobject("ADODB.Connection")
set strCnn = server.createobject("ADODB.Recordset")
set rstSchema = server.createobject("ADODB.Recordset")

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;"
strCnn = strCnn & "Persist Security Info=False"

cn.Open strCnn

set rstSchema=cn.openSchema(20)
rstSchema.movefirst
Do Until rstSchema.EOF
if rstSchema("TABLE_TYPE")="TABLE" then
response.write rstSchema("TABLE_NAME") & "<br/>"
end if
rstSchema.movenext
Loop
cn.close

'set rstSchema = nothing
'set cn = nothing
%>

SQL -->系統表sysobjects

access---》用ADOX的 例子:

<%

Dim cn ,strCnn

set cn = server.createobject("ADODB.Connection")
set strCnn = server.createobject("ADODB.Recordset")


strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\asptest\tree.MDB;Persist Security Info=False"

cn.Open strCnn
Set tb = Server.CreateObject("ADOX.Table")
Set cat = Server.CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = cn

For Each a In cat.Tables
Response.Write a.Name & "<br>"
Next

cn.close
%>



主站蜘蛛池模板: 在线天堂中文在线网 | 日本四虎影院 | 在线国产一区二区 | 亚洲欧美日韩一区成人 | 婷婷丁香激情五月 | 伊人久久婷婷丁香六月综合基地 | 日本一区二区免费高清视频 | 青青青在线视频免费观看 | 香蕉视频一级片 | 四虎影院免费在线播放 | 自拍偷拍1 | 日本强不卡在线观看 | 天天看逼| 四虎新网站 | 日韩一区二区在线观看 | 五月开心六月伊人色婷婷 | 三级黄色片在线观看 | 四虎最新紧急更新地址 | 五月婷婷之综合激情 | 天天上天天干 | 亚洲福利视频一区二区三区 | 亚洲高清国产一线久久 | 亚洲波多野结衣日韩在线 | 日本不卡网 | 偷偷操不一样的久久 | 午夜手机福利视频 | 午夜网站在线观看免费网址免费 | 日韩理论片西瓜影音 | 午夜精品久久久久久影视riav | 日韩精品一区二区三区中文在线 | 视频日韩p影院永久免费 | 亚洲最大成人 | 欧美小视频在线观看 | 手机在线观看国产精选免费 | 青娱乐自拍视频 | 天天狠天天干 | 无人精品乱码一区二区三区 | 自拍偷拍 欧美日韩 | 人人干日日操 | 啪啪精品 | 一级做a爰片久久毛片免费 一级做a爰片久久毛片美女图片 |