ASP判断数据库中的表是否存在
来源:我要学习网 时间:06-11-13 点击: 点击这里收藏本文
给你写一个函数，专门返回表名称的
response.write getTablname("C:\1.mdb")
if instr(getTablname("C:\1.mdb"),"工资表")<>0 Then
response.write "工资表存在"
else
response.write "不存在"
end if
function getTablname(dbpath)
dim rs
dim Conn
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & dbpath & ";Defaultdir=;Driver={Microsoft Access Driver (*.Mdb)};Driverid=25;Fil=Ms Access;
Implicitcommitsync=Yes;Maxbuffersize=512;Maxscanrows=8;Pagetimeout=5;
Safetransactions=0;Threads=3;Usercommitsync=Yes;",
"Administrator", "adminadmin"
set rs = Conn.OpenSchema(20)
do while not rs.eof
if rs("table_type") ="TABLE" then
getTablname =getTablname & "," & rs("TABLE_NAME")
end if
rs.moveNext
loop
rs.close
conn.Close
set rs = nothing
set conn = nothing
end function
把此文章收藏到：
