国产精品无码久久综合网,成人极品,日本特一级色色色色

^{<blockquote id="tnwjz"><i id="tnwjz"></i></blockquote>}

金喜正规买球

產品

產品
資訊
資源
視頻
學院
示例

金喜正規買球 > 資訊 > asp獲取數據庫中所有表名和字段名

asp獲取數據庫中所有表名和字段名

轉帖|其它|編輯：郝浩|2008-09-16 13:39:14.000|閱讀 1223 次

概述：asp獲取數據庫中所有表名和字段名

# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>

今天冒出來一個想法，在僅知道數據庫名的情況下，用asp得到數據庫中的所有表名、所有表的字段名、以及所有字段中的內容。經過一段時間查詢資料和修改，終于做出來了，現在與大家分享。

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

只要改變一下數據庫名，然后運行一下這個程序，就可以看到結果了。

標簽：

本站文章除注明轉載外，均為本站原創或翻譯。歡迎任何形式的轉載，但請務必注明出處、不得修改原文相關鏈接，如果存在內容上的異議請郵件反饋至chenjj@fc6vip.cn

文章轉載自：中國站長站

上一篇：ASP + Serv-u 實現FTP的代碼下一篇：Chrome發布10天份額穩定在5-6%之間