You can also tell if an Access table exists without ADOX

access|ado| whether exist haha, do not ADOX also can!!








<%





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--> system table sysobjects





Access---in adox example:





<%





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


%>