<!--#include file="inc/conn.asp"-->
<%
Set rstSchema = conn.OpenSchema(20)
Do Until rstSchema.EOF '遍历数据库表
response.Write("--")
if rstSchema("TABLE_TYPE")="TABLE" then
response.write rstSchema("TABLE_NAME") & ":"
set rs=conn.execute("select * from " & rstSchema("TABLE_NAME"))
for i=0 to rs.fields.count-1 '遍历表中字段
response.write rs(i).name &" "
next
end if
response.write "<br>"
rstSchema.MoveNext
Loop
%>
本文介绍了一种使用ASP及ADO组件遍历数据库表结构的方法,通过读取表名及字段名来展示整个数据库的组织形式。适用于需要了解或展示数据库表结构的场景。
899

被折叠的 条评论
为什么被折叠?



