怎样得到Access库中所有表的表名？？

[guiguai]

给个简单例子，谢谢

[希偌]

"select * from sysobjects"
系统表中有所有表的信息，当然也包括表名

[karma]

set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Program Files\Microsoft Office\Office\1033\FPNWIND.MDB;"
set rs = oConn.OpenSchema(20)
do while Not rs.EOF
Response.Write rs.fields("Table_Name").value & "<BR>"
rs.MoveNext
Loop
rs.close
set rs=nothing
oConn.Close
set oConn=nothing

[ChinaOk]

就是上面这个。这个还可以知道字段名
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "dsn=chinaok;uid=;pwd="
set rs=server.createobject("adodb.recordset")
set rsSchema=Conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
response.write rsSchema("TABLE_NAME") & "<br>"
sql="select * from " & rsSchema("TAble_Name")
rs.open sql,conn,1,1
if not rs.eof then
fn=rs.fields.count
for n=0 to fn-1
response.write rs(n).Name &" | "
next
end if
rs.close()
response.write "<br><br>"
end if
rsSchema.movenext
Loop
set rs=nothing
set rsSchema=nothing
set Conn=nothing
%>