西安网站建设asp获取数据库中表名和字段名的代码

14572012-05-15
< % 

'功能:西安网站建设显示数据库中表名、字段名、字段内容 
'原创文章,转载请保留此信息,谢谢 
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 
% > 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1