ASP获取ACCESS数据库表名及结构的代码

数据库路径:

---

<%
if request.form("ari")="1" and request.form("path")<>"" then
dim conn,connstr,i,sql,rs
on error resume next
COnnstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="+server.mappath(request.form("path"))
Set COnn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set COnn= Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%=conn.connectionstring%>

---

<%
j=0
dim tablecount
tablecount=0
Set shm = conn.OpenSchema(20)
shm.MoveFirst
Do While Not shm.EOF
If shm("TABLE_TYPE") = "TABLE" Then
If Left(shm("table_name"), 1) <> "~" Then '这里过滤掉隐藏表
j=j+1
call GetFileds(shm("table_name"))
End If
End If
shm.MoveNext
Loop
response.write "共有 "&j&" 个数据表!"
else
response.write "

请输入数据库相对路径查看具体内容!

"
end if
%>
<%
Function GetFileds(TableName)
Set rs = server.createobject("adodb.recordset")
Dim SQL
SQL = "select * from " & TableName
rs.Open SQL, conn, 1, 1
Dim Cont
COnt= rs.Fields.Count
response.write ""&vbcrlf
rs.Close
set rs=nothing
End Function
%>