服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp获取数据库中表名和字段名的代码

asp获取数据库中表名和字段名的代码

2019-09-19 12:05asp教程网 ASP教程

今天冒出来一个想法,在仅知道数据库名的情况下,用asp得到数据库中的所有表名、所有表的字段名、以及所有字段中的内容。经过一段时间查询资料和修改,终于做出来了,现在与大家分享。

代码如下:


< % 
'功能:显示数据库中表名、字段名、字段内容 
'原创:wangsdong 
'原创文章,转载请保留此信息,谢谢 

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


只要改变一下数据库名,然后运行一下这个程序,就可以看到结果了。

延伸 · 阅读

精彩推荐