ASP中怎样读出数据库名，表名，和字段名？？？ SQL的也行

[lhi007]

拜托，拜托

[fbj007]

读出表中字段名的方法：
while not rs.eof
for i=0 to rs.fields.count-1
response.write rs.fields(i).name
next
rs.movenext
wend

[fbj007]

检测出一个数据库中有哪些数据表?http://www.csdn.net/Expert/TopicView1.asp?id=1011763

[iStringTheory]

读表名的方法：

< %'---------------读access库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("库名称")
Set rstSchema=Conn.OpenSchema(20)

Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>
< %'---------------读sql server库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"
Set rstSchema=Conn.OpenSchema(20)

Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>

< %'---------------读oracle库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=MSDAORA.1;Password=密码;User ID=用户名;Data Source=数据源名称"
Set rstSchema=Conn.OpenSchema(20)

Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>
只要用相应的数据库代替以上的中文就可以

[bestpeaker]

关注

[seafarer777]

Mark