asp获取数据库中所有表名和字段名
ASP/Visual Basic Code复制内容到剪贴板
- < %
- '功能：显示数据库中表名、字段名、字段内容
- '原创：wangsdong
- '来源：aspprogram.cn
- '原创文章，转载请保留此信息，谢谢
- set rs=server.CreateObject("adodb.recordset")
- db="db1.mdb"
- set conn=server.CreateObject("adodb.connection")
- connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
- conn.open connstr
- Set rs=Conn.OpenSchema(20)
- Do Until rs.EOF
- If rs(3)="TABLE" Then
- response.write "表名:"&rs(2)"<br />"
- Set rs1=server.CreateObject("adodb.recordset")
- sql="select * from "&rs(2)
- Set rs1=conn.execute(sql)
- response.write "字段名:"
- For i=0 To rs1.fields.count-1
- response.write rs1.fields(i).name" "
- Next
- response.write "<br />"
- Do While Not rs1.eof
- response.write " "
- For i=0 To rs1.fields.count-1
- t=rs1.fields(i).name
- response.write rs1(t)" "
- Next
- response.write " "
- rs1.movenext
- Loop
- response.write " "
- End If
- rs.MoveNext
- Loop
- Set rs=Nothing
- Set conn=nothing
- % >
查看所有评论
