不用ADOX也可以判断access表是否存在-ASP教程,ASP应用

哈哈，不用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

%>