如何准确判断conn1里面有没有名为name1的表？
---------------------------------------------------------------
变通办法
on error resume next
rs.open "name1",conn1
if not err.number=0 then
Err.Clear '清除该错误
‘这里添加表不存在的处理
end if
---------------------------------------------------------------
楼上的方法可行， 如果想了解的更多，更详细的信息，用 ADOX
---------------------------------------------------------------
三角猫 说的对！
用ADOX比较正点！
---------------------------------------------------------------
SQL -->系统表sysobjects
access---》用ADOX的 例子：
1
2
3Dim cn ,strCnn
4
5set cn = server.createobject("ADODB.Connection")
6set strCnn = server.createobject("ADODB.Recordset")
7
8
9strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\asptest\tree.MDB;Persist Security Info=False"
10
11cn.Open strCnn
12Set tb = Server.CreateObject("ADOX.Table")
13Set cat = Server.CreateObject("ADOX.Catalog")
14Set cat.ActiveConnection = cn
15
16For Each a In cat.Tables
17Response.Write a.Name & "
<br/>
1"
2Next
3
4cn.close
---------------------------------------------------------------
哈哈，不用ADOX也可以！！
interdev这个开发工具就是好！
1
2
3Dim cn ,strCnn,rstSchema
4
5set cn = server.createobject("ADODB.Connection")
6set strCnn = server.createobject("ADODB.Recordset")
7set rstSchema = server.createobject("ADODB.Recordset")
8
9strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
10strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;"
11strCnn = strCnn & "Persist Security Info=False"
12
13cn.Open strCnn
14
15set rstSchema=cn.openSchema(20)
16rstSchema.movefirst
17Do Until rstSchema.EOF
18if rstSchema("TABLE_TYPE")="TABLE" then
19response.write rstSchema("TABLE_NAME") & "
20"
21end if
22rstSchema.movenext
23Loop
24cn.close
25
26'set rstSchema = nothing
27'set cn = nothing