读取Access数据库表名实例

kendylan 于 8/30/2001 12:28:41 pm 加贴在 joy asp ←返回版面：

<%

strconn="dbq="+server.mappath("kendylan.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"

set objconn=server.createobject("adodb.connection")

objconn.open strconn

set rsschema=objconn.openschema(20)

rsschema.movefirst

do until rsschema.eof

if rsschema("table_type")="table" then

response.write rsschema("table_name") & "<br>"

end if

rsschema.movenext

loop

set objconn=nothing

%>