Metode ini dapat memperoleh nama tabel data ACCESS, strukturnya, tipe data, dll... Program ini memfilter beberapa tabel tersembunyi dari beberapa database ACCESS (ini mungkin menjadi alasan mengapa database ACCESS akan menjadi lebih besar setelah menghapus data)
<html>
<kepala>
<title>Dapatkan nama tabel database ACCESS_www.vevb.com</title>
</kepala>
<body style=text-align:left;margin-left:50px;font-family:'arial';ukuran font:12px>
<form style=padding:5px;margin:5px;margin-left:0px nama=dapatkan tindakan= metode=posting>
Jalur basis data:<tipe masukan=nama teks=nilai jalur= ukuran=50 />
<tipe masukan=nama tersembunyi=nilai ari=1 />
<tipe masukan=kirim nilai=Lihat/>
</bentuk>
<jam>
<%
jika request.form(ari)=1 dan request.form(path)<> maka
redup samb,konstr,i,sql,rs
pada kesalahan lanjutkan berikutnya
Connstr=DRIVER=Driver Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(path))
Setel Koneksi=Server.CreateObject(ADODB.Connection)
samb.Buka konstr
Jika Salah Lalu
err.Clear
SetConn=Tidak ada
Response.Write Kesalahan koneksi database, silakan periksa string koneksi.
Respon.Akhir
Akhiri Jika
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
jumlah tabel redup
jumlah tabel=0
Setel shm = samb.OpenSchema(20)
shm.MoveFirst
Lakukan Sementara Tidak shm.EOF
Jika shm(TABLE_TYPE) = TABEL Lalu
If Left(shm(table_name), 1) <> ~ Lalu 'Saring tabel tersembunyi di sini
j=j+1
panggil GetFileds(shm(nama_tabel))
Akhiri Jika
Akhiri Jika
shm.MoveNext
Lingkaran
respon.write Ada total &j& tabel data!
kalau tidak
respon.write <h3>Silakan masukkan jalur relatif ke database untuk melihat konten spesifik!</h3>
berakhir jika
%>
</tubuh>
</html>
<%
Fungsi GetFileds (Nama Tabel)
Setel rs = server.createobject(adodb.recordset)
Redupkan SQL
SQL = pilih * dari & Nama Tabel
rs.Buka SQL, samb., 1, 1
DimCont
Lanjutan = rs.Fields.Count
respon.tulis <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee>&vbcrlf
respon.tulis tabel <font color=red><b>&TableName&</b></font> berisi kolom &Cont&, sebagai berikut:<br>&vbcrlf
Untuk i = 0 Ke Lanjut - 1
tipe dimfil
pilih kasus rs.fields(i).type
kasus 3
filtype=nomor otomatis(angka)
kasus 202
tipefil=karakter
kasus 203
filtype=komentar
kasus 125
filtype=tanggal
kasus 11
filtype=benar/salah(ya/tidak)
akhir pilih
respon.tulis <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Berikutnya
respon.tulis </div>&vbcrlf
rs.Tutup
atur rs=tidak ada
Fungsi Akhir
%>