关于数据库的问题，100分求解

[litpigtail]

连接sql库，如何获取里面所有的表的名称
2，怎样获取一个表的结构

感谢支持。

[gshope]

< %'---------------读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
%>
只要用相应的数据库代替以上的中文就可以

2.表的结构可以通过recordset的fields集合取得。

[robter5611]

Sql Server获得所有表的名称可以用以下语句：
　　sql = "SELECT name from sysobjects where type='U'"
rs.open sql