怎么判断access数据库中某个表是否存在

[cloudgamer]

<%

rem x=0 表示不存在，x=1 表示存在

strconn="dbq="+server.mappath("zw.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set objconn=server.createobject("adodb.connection")
objconn.open strconn
set rsschema=objconn.openschema(20)
rsschema.movefirst

tablename="gd111"
x=0
do until rsschema.eof
if rsschema("table_type")="table" then

if rsschema("table_name")=tablename then
x=1
exit do
end if
end if


rsschema.movenext
loop

if x=0 then response.write"没有找到！！！"

if x=1 then response.write"找到了"


set objconn=nothing
%>

我从网上找来这断代码
但不成功
每次都是"没有找到！！！"

[cow8063]

select * from tablename
如果没有此表会出错，根据此判断就行

[lcw321321]

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tablename]')
then

else

sql 2000里面的，不知道通用不

[cloudgamer]

cow8063的方法可以
但有时候不知道是不是因为没有建表而出错啊

[minkingshine]

用异常处理
dim isExist
isExist=o
try
{
//connect to the database
//open the table (tablename)
isExist=1
}
catch
{
//
}
finnally
{
//dispose the connection
}

[竹林听雨2005]

on error goto errHandle:
select count(1) from tablename
....

errHandle:
Response.write("表不存在！")

这种方法不知道可不可以，没测试，原理上应该能行得通

[zhangjun]

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

[cloudgamer]

看看

[笨笨兔兔兔兔兔]

http://blog.csdn.net/liuxiaoyi666/archive/2006/12/20/1450981.aspx

[cloudgamer]

看了一下
一头雾水啊
能说一下怎么用么

[cloudgamer]

love007的方法就可以了
不过liuxiaoyi666的东西好象很有意思哦

[笨笨兔兔兔兔兔]

这个是本身可以做自动生成器用的

以后我给演示版本。。。。。脚本版 vb版，如果需要vc版也能很快写出来

[cloudgamer]

等看