用Asp取得数据库中所有表名和字段名的方法
发布时间:2023-12-21 14:52:47 所属栏目:Asp教程 来源:DaWei
导读: 用Asp取得数据库中所有表名和字段名的方法:
< %
set rs=server.CreateObject("adodb.recordset")
db="db.mdb"
'只要直接更改数据库名称就能够看到效果了。
set conn=server.Cre
< %
set rs=server.CreateObject("adodb.recordset")
db="db.mdb"
'只要直接更改数据库名称就能够看到效果了。
set conn=server.Cre
用Asp取得数据库中所有表名和字段名的方法: < % set rs=server.CreateObject("adodb.recordset") db="db.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 % > (编辑:大连站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
推荐文章
站长推荐