判断一个ACCESS数据库中某个表是否存在的方法
类别: 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
%>
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
%>
- 上一篇: 怎样把数据汇到EXCEL中的心得经验
- 下一篇: ASP中常见的80004005错误原因及解决
-= 资 源 教 程 =-
文 章 搜 索