如何显示一个数据库里的所有表（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%>
一般为
<%sub Schema_show()%>
<%
set rs=Conn.openSchema(20)
rs.movefirst
%>
<%for i=0 to rs.fields.count-1%>
<%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%>
<%else%>
<%=rs(i)%>
<%end if%>
<%next%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%end sub%>
