不用ADOX也可以判断access表是否存在
Jun 07, 2016 pm 03:43 PM哈哈,不用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=Microsof
哈哈,不用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 & "数据源=F:/asptest/tree.MDB;"
strCnn = strCnn & "保留安全信息=假的”
cn.Open strCnn
set rstSchema=cn.openSchema(20)
rstSchema.movefirst
执行直到 rstSchema.EOF
if rstSchema("TABLE_TYPE")="TABLE"然后
response.write rstSchema("TABLE_NAME") & "<br/>"
end if
rstSchema.movenext
循环
cn.close
'设置 rstSchema = 无
'设置 cn = 无
%>
SQL -->系统表sysobjects
访问---》用ADOX的例子:
<%
暗淡 cn ,strCnn
set cn = server.createobject("ADODB.Connection")
set strCnn = server.createobject("ADODB.Recordset")
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;数据源=F:/asptest/tree.MDB;持久安全信息=False"
cn.Open strCnn
设置 tb = Server.CreateObject("ADOX.Table")
设置 cat = Server.CreateObject("ADOX.Catalog")
设置 cat.ActiveConnection = cn
对于 cat.Tables 中的每个 a
Response.Write a.Name & "<br>"
下一个
cn.close
%>

热门文章

热门文章

热门文章标签

记事本++7.3.1
好用且免费的代码编辑器

SublimeText3汉化版
中文版,非常好用

禅工作室 13.0.1
功能强大的PHP集成开发环境

Dreamweaver CS6
视觉化网页开发工具

SublimeText3 Mac版
神级代码编辑软件(SublimeText3)

Windows11怎么禁用后台应用程序_Windows11禁用后台应用教程
