You can use ADOX to determine whether an access Table exists.

Haha, no need to use ADOX !! % Dimcn, strCnn, rstSchemasetcnserver. createobject (ADODB. Connection) setstrCnnserver. createobject (ADODB. Recordset) setrstSchemaserver. createobject (ADODB. Recordset) strcnnprovidermicrof

Haha, no need to use 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

Haha,NoADOXYes!!

<%

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 ")&"
"
End if
RstSchema. movenext
Loop
Cn. close

'Set rstSchema = nothing
'Set cn = nothing
%>

SQL --> system table sysobjects

Example of using ADOX in access:

<%

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 &"
"
Next

Cn. close
%>