如何显示一个数据库里的所有表（ACCESS）

作者：袖梨 2022-06-30

使用这个过程的前提条件是要在调用前写好数据库连接的代码。
一般为
<%sub Schema_show()%>

     <%
     set rs=Conn.openSchema(20)
     rs.movefirst
     %>

     <%for i=0 to rs.fields.count-1%>
    <%=rs.fields(i).name%>
     <%next%>

     <%do while not rs.eof%>

     <%for i=0 to rs.fields.count-1%>

     <%if rs.fields(i).name="TABLE_NAME" and (rs("TABLE_TYPE")="TABLE" or rs("TABLE_TYPE")="VIEW") then%>
     "><%=rs(i)%>
     <%else%>
     <%=rs(i)%>
     <%end if%>

     <%next%>

     <%rs.movenext
     loop
     rs.close
     set rs=nothing%>

<%end sub%>