判断一个access数据库中某个表是否存在的方法 [ 网站地图 ]

发表于:2009-10-10 浏览:22 作者: 来源:站长资讯网

关键字:access数据库

描述:  ASP程序如下: <%remx=0表示不存在,x=1表示存在strConn="DBQ="+server.mappath("zw.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"setobjConn=server.createobject("Adodb.connec

  ASP程序如下:

<%

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
%>

 


站长资讯网 做中国最丰富的资讯网站 沪ICP备05004089号