如何显示一个数据库里的所有表(ACCESS)__教程 |
|
日期:2007-5-20 0:38:37 人气:64 [大 中 小] |
|
|
|
使用这个过程的前提条件是要在调用前写好数据库连接的代码。 一般为 <%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%> |
|
出处:本站原创 作者:佚名 |
|
|