วิธีนี้สามารถรับชื่อตารางของข้อมูล ACCESS โครงสร้างประเภทข้อมูล ฯลฯ ... โปรแกรมจะกรองตารางที่ซ่อนอยู่หลายตารางของฐานข้อมูล ACCESS หลายแห่ง (นี่อาจเป็นเหตุผลว่าทำไมฐานข้อมูล ACCESS จะมีขนาดใหญ่ขึ้นหลังจากลบข้อมูล)
<html>
<หัว>
<title>รับตารางฐานข้อมูล ACCESS name_www.vevb.com</title>
</หัว>
<body style=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<form style=padding:5px;margin:5px;margin-left:0px name=get action= method=post>
เส้นทางฐานข้อมูล:<ประเภทอินพุต=ชื่อข้อความ=ค่าพาธ=ขนาด=50 />
<ประเภทอินพุต=ชื่อที่ซ่อนอยู่=ค่า ari=1 />
<ประเภทอินพุต=ค่าส่ง=มุมมอง/>
</แบบฟอร์ม>
<ชม.>
-
ถ้า request.form(ari)=1 และ request.form(path)<> แล้ว
หรี่ conn, connstr, i, sql, rs
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
Connstr=DRIVER=ไดรเวอร์ Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(path))
ตั้งค่า Conn=Server.CreateObject(ADODB.Connection)
conn. เปิด constr
หากผิดพลาดแล้ว
ผิดพลาด เคลียร์
SetConn=ไม่มีอะไร
Response.Write Database error การเชื่อมต่อ โปรดตรวจสอบสตริงการเชื่อมต่อ
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
-
<font color=red><%=conn.connectionstring%></font><hr>
-
เจ=0
จำนวนโต๊ะสลัว
จำนวนโต๊ะ=0
ตั้ง shm = conn.OpenSchema (20)
shm.MoveFirst
ทำในขณะที่ไม่ใช่ shm.EOF
ถ้า shm(TABLE_TYPE) = TABLE แล้ว
If Left(shm(table_name), 1) <> ~ จากนั้น 'กรองตารางที่ซ่อนอยู่ที่นี่
เจ=เจ+1
โทร GetFileds(shm(table_name))
สิ้นสุดถ้า
สิ้นสุดถ้า
shm.MoveNext
วนซ้ำ
response.write มีตารางข้อมูล &j& ทั้งหมด!
อื่น
response.write <h3>โปรดป้อนเส้นทางสัมพันธ์ไปยังฐานข้อมูลเพื่อดูเนื้อหาเฉพาะ!</h3>
สิ้นสุดถ้า
-
</ร่างกาย>
</html>
-
ฟังก์ชัน GetFileds(ชื่อตาราง)
ตั้ง rs = server.createobject (adodb.recordset)
หรี่ SQL
SQL = เลือก * จาก & ชื่อตาราง
rs.เปิด SQL, conn, 1, 1
DimCont
ต่อ = rs.Fields.Count
response.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;พื้นหลัง:#eeeeee>&vbcrlf
response.write table <font color=red><b>&TableName&</b></font> มีฟิลด์ &Cont& ดังนี้:<br>&vbcrlf
สำหรับ i = 0 ถึงต่อ - 1
ประเภทดิมฟิล
เลือกกรณี rs.fields(i).type
กรณีที่ 3
filtype=หมายเลขอัตโนมัติ(หมายเลข)
กรณีที่ 202
filtype=อักขระ
คดีที่ 203
filtype=หมายเหตุ
กรณี 125
filtype=วันที่
กรณีที่ 11
filtype=true/false(ใช่/ไม่ใช่)
สิ้นสุดการเลือก
response.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
ต่อไป
ตอบกลับเขียน </div>&vbcrlf
rs.ปิด
ตั้งค่า rs=nothing
ฟังก์ชันสิ้นสุด
-