一聚教程网:一个值得你收藏的教程网站

热门教程

如何显示一个数据库里的所有表(ACCESS)

时间:2022-06-30 10:49:22 编辑:袖梨 来源:一聚教程网

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

热门栏目