Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

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

时 间:2007-12-12 08:25:11
作 者:UMVSOFT整理   ID:16  城市:江阴
摘 要:不用ADOX也可以判断access表是否存在
正 文:

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


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助