公司有一套ASP+ACCESS的后台程序,我要尽快了解,在了解其数据库结构的时候对着ACCESS非常的不直观,便想将所有表名称及其字段名称打印出来,输出这些内容便成问题,有没有办法用ASP将这些内容输出到一个页面呢?搜索了相关资料后总算是实现了,下边是程序:

<%
Dim conn,rs,rs2,sqlstr,t_count,table_name,i
On error resume next
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Connectionstring="provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("data1.mdb")
Conn.open
If err then
  Response.write "请检查数据库路径!"
  err.clear
  Response.End
End if
T_count = 0
Set rs = Conn.openschema(20)
Do while not rs.eof
  If rs("table_type")="TABLE" then
    T_count = T_count + 1
    table_name = rs("table_name")
    Response.write "<b>表" & table_name & ":</b><br>"
    Sqlstr = "select * from " & table_name
    Set rs2 = Server.CreateObject("ADODB.RecordSet")
    Rs2.open sqlstr,conn,0,1
    For i=0 to rs2.fields.count-1
      If i = rs2.fields.count-1 then
        Response.write rs2.fields.item(i).name
      Else
        Response.write rs2.fields.item(i).name & ","
      End if
    Next
    Response.write "<p>"
    Rs2.close
    Set rs2 = nothing
  End if
  Rs.movenext
Loop
Response.write "<u><b>总计</b><font color=red>" & t_count & "</font><b>个表</b></u>"
Rs.close
Set rs = nothing
Conn.close
Set conn=nothing
%>

其中主要是运用了Connection对象的openschema方法,这边要注意的是rs("table_type")="TABLE"一句中TABLE一定要大写。此方法在ASP教材中很少看到,搜索了大量资料后我还不是非常了解,下边是我搜索到的两篇相关文章,有兴趣的朋友可以看看:

http://dev.csdn.net/article/68/68466.shtm
http://fishcat.blog.com.cn/archives/2006/386828.shtml

上一篇: 通用媒体播放器(JS版,ASP版)
下一篇: IIS中多个站点共同使用一个IP
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: