公司有一套asp+access的後台程式,我要盡快了解,在了解其資料庫結構的時候對著access非常的不直觀,便想將所有表名稱及其欄位名稱列印出來,輸出這些內容便成問題,有沒有辦法用asp將這些內容輸出到乙個頁面呢?搜尋了相關資料後總算是實現了,下邊是程式:
1dimconn,rs,rs2,sqlstr,t_count,table_name,i
3onerror
resume
next
4setconn
=server.createobject(
"adodb.connection")
5conn.connectionstring="
provider=microsoft.jet.oledb.4.0;data source="&
"data1.mdb")
6conn.open
7iferr
then
8response.write
"請檢查資料庫路徑!"9
err.clear
10response.end
11endif
12t_count =0
13setrs
=conn.openschema(20)
14dowhile
notrs.eof
15ifrs(
"table_type")
="table
"then
16t_count
=t_count +1
17table_name
=rs(
"table_name")
18response.write
"表"&
table_name &"
:"19
sqlstr ="
select * from "&
table_name
20setrs2
=server.createobject(
"adodb.recordset")
21rs2.open sqlstr,conn,0,
122fori=0
tors2.fields.count-1
23ifi
=rs2.fields.count-1
then
24response.write rs2.fields.item(i).name
25else
26response.write rs2.fields.item(i).name &"
,"27
endif
28next
29response.write ""
30rs2.close
31setrs2
=nothing
32endif
33rs.movenext
34loop
35response.write
"總計"&
t_count &"
個表"36
rs.close
37setrs
=nothing
38conn.close
39setconn
=nothing
40%>
2.
顯示資料庫中所有表及其資訊
alter procedure dbo.storedprocedure1 asselect case when columnproperty ss.id,ss.name,isidentity 1 then 1 else 0 end n 標識 case when select count from s...
查詢資料庫中所有表名,查詢表中所有欄位名
mysql 1.查詢資料庫中所有表名稱 select table name from information schema.tables where table schema 資料庫名稱 包含檢視 select table name from information schema.tables wh...
mysql清空庫中所有表的資料
清除表資料 select concat truncate table table name,from information schema.tables where table schema db1 執行後生成的是清除語句，複製之後貼上再次執行。修改表備註 select concat alter t...