asp獲取數(shù)據(jù)庫中表名和字段名的代碼
更新時(shí)間：2008年09月19日 18:16:16 作者：
今天冒出來一個(gè)想法，在僅知道數(shù)據(jù)庫名的情況下，用asp得到數(shù)據(jù)庫中的所有表名、所有表的字段名、以及所有字段中的內(nèi)容。經(jīng)過一段時(shí)間查詢資料和修改，終于做出來了，現(xiàn)在與大家分享。
復(fù)制代碼 代碼如下:
< %
'功能：顯示數(shù)據(jù)庫中表名、字段名、字段內(nèi)容
'原創(chuàng)：wangsdong
'原創(chuàng)文章，轉(zhuǎn)載請保留此信息，謝謝
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
% >
只要改變一下數(shù)據(jù)庫名，然后運(yùn)行一下這個(gè)程序，就可以看到結(jié)果了。
相關(guān)文章
用ASP和SQL實(shí)現(xiàn)基于Web的事件日歷
用ASP和SQL實(shí)現(xiàn)基于Web的事件日歷...2006-09-09
Access數(shù)據(jù)庫“自動(dòng)編號(hào)”數(shù)據(jù)類型是一個(gè)非常實(shí)用的類型，它可以很方便地幫助我們完成標(biāo)識(shí)不同記錄ID的工作。2008-08-08
asp實(shí)現(xiàn)sql的備份與恢復(fù)...2006-08-08
在線數(shù)據(jù)庫管理工具(db007) v1.5
以視圖界面方式在線處理access、sql數(shù)據(jù)庫的一個(gè)asp工具，需要的朋友可以試試2006-09-09
用sql設(shè)置access的默認(rèn)值...2006-09-09
在線管理數(shù)據(jù)庫 類...2006-08-08
用需要合并記錄集的朋友是個(gè)參考2008-07-07
asp實(shí)現(xiàn)的查詢某關(guān)鍵詞在MSSQL數(shù)據(jù)庫位置的代碼
整體而言，這段SQL只適宜用在小型數(shù)據(jù)庫上，ASP中的循環(huán)也沒效率，大庫還是別用了，小庫可以考慮。如果是大庫的話，請聯(lián)系皇子要另外一份牛人寫的SQL查詢語句。2010-04-04
ASP實(shí)現(xiàn)SQL備份、恢復(fù)...2006-08-08
FSO操作文件系統(tǒng)...2006-09-09