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

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

不用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
%>



主站蜘蛛池模板: 中国国产一级毛片视频 | 四虎永久在线精品免费影视 | 四虎影视免费永久在线观看 | 日韩深夜福利视频 | 色妞精品一区二区 | 一级黄色片看看 | 四虎精品在线视频 | 欧美中出在线 | 伊人啪啪 | 日韩版码免费福利视频 | 亚洲第一页中文字幕 | 色www免费视频 | 五月天婷婷精品视频 | 日日弄| 日韩第一页在线观看 | 在线中文字幕不卡 | 日韩永久在线观看免费视频 | 日本精品免费 | 亚洲第一视频在线 | 日本三级视频网站 | 日本高清午夜色wwwσ | 日本v在线观看 | 中文字幕不卡视频 | 欧美在线观看视频网站 | 日本高清视频一区二区三区 | 天堂网a| 思思久久96热在精品国产免费 | 日本免费一区二区三区a区 日本免费一二三区 | 天天操天天插天天射 | 性xxx视频在线观看 性xxx欧美 | 亚洲婷婷综合中文字幕第一页 | 青青青青手机在线视频观看国产 | 四虎影院永久在线观看 | 手机在线精品视频每日更新 | 视频在线观看免费视频 | 婷婷成人丁香五月综合激情 | 四虎影院美女 | 欧美一级爽快片淫片高清在线观看 | 天天干天天色综合 | 日韩中文字幕免费在线观看 | 午夜影院免费观看视频 |