轉(zhuǎn)帖|其它|編輯:郝浩|2008-09-16 13:39:14.000|閱讀 1233 次
概述:asp獲取數(shù)據(jù)庫(kù)中所有表名和字段名
# 界面/圖表報(bào)表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
今天冒出來一個(gè)想法,在僅知道數(shù)據(jù)庫(kù)名的情況下,用asp得到數(shù)據(jù)庫(kù)中的所有表名、所有表的字段名、以及所有字段中的內(nèi)容。經(jīng)過一段時(shí)間查詢資料和修改,終于做出來了,現(xià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ù)庫(kù)名,然后運(yùn)行一下這個(gè)程序,就可以看到結(jié)果了。
本站文章除注明轉(zhuǎn)載外,均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載,但請(qǐng)務(wù)必注明出處、不得修改原文相關(guān)鏈接,如果存在內(nèi)容上的異議請(qǐng)郵件反饋至chenjj@ke049m.cn
文章轉(zhuǎn)載自:中國(guó)站長(zhǎng)站