如何判断一个ACCESS库中是否含有某个表?

[zuixin]

比如我要判断test.mdb中是否含有a1表，这个用asp怎么实现？

[BLACKINEYE]

strcnn="driver= 省略
set objcnn=server.createobject("adodb.connection")
objcnn.open strcnn
set rsschema=objcnn.openschema(20)
while not rsschema.eof
if rsschema("TABLE_NAME")='a1' then response.write("此保存在")
rsschema.movenext
wend

[gengwei80]

up

[zuixin]

我这样写错在哪里？
Dim strCnn
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("question.mdb")
Dim cnn
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.ConnectionString = strCnn
Cnn.open
dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
Dim strSQL
while not rs.eof
if rs("TABLE_NAME")='normal' then response.write("此保存在")
rs.movenext
wend

[bluesky1314520]

Dim strCnn
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("question.mdb")
Dim cnn
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.ConnectionString = strCnn
Cnn.open
dim rs
Set rs = Cnn.openschema(20)
Dim strSQL
while not rs.eof
if lcase(rs("TABLE_NAME"))="normal" then response.write("此表存在")
rs.movenext
wend
try……