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

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

2005-4-20 7:17:29　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　使用这个过程的前提条件是要在调用前写好数据库连接的代码。
一般为
<%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%>

共分1页 [1]

>> 相关文章