【下载文档:  asp获取ACCESS数据库表名及结构的代码.txt 】

---

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 %>