Metode 1: Gunakan metode openschema () ADO untuk membuka adschematables dan buat set rekaman skema
Kode:
<%
Constadschematables = 20
adschemacolumns = 4
Dimconn, db
dimconnstr
DB = "Temp.MDB" 'Access Database File Name, silakan gunakan jalur absolut relatif terhadap direktori root situs web ini
Connstr = "provider = microsoft.jet.oledb.4.0; datasource =" & server.mappath (db)
SetConn = server.CreateObject ("adodb.connection")
Conn.openconnstr
DIMRSTSCHEMA
Redup
Setrstschema = conn.openschema (adschematables)
Dowhilenottrstschema.eof
response.write ("Tablename:" & rstschema ("table_name") & vbcr & _
"Tabletype:" & rstschema ("Table_Type") & VBCR)
response.write ("<br/>")
I = i+1
rstschema.movenext
Lingkaran
rstschema.close
Conn.Close
%>
Metode 2: Tabel Sistem Akses MsysObjects berisi daftar objek basis data. Meskipun tidak didokumentasikan dalam dokumentasi, Anda masih bisa mendapatkan apa yang Anda inginkan dengan menanyakannya. Namun, secara default, tabel sistem operasi tidak dapat dioperasikan, dan izin harus diatur secara manual untuk menanyakan tabel sistem.
Silakan merujuk ke animasi berikut: Cara mendapatkan izin operasi untuk msysObject http://blog.iyi.cn/user/david/archives/images/msobject.swf
Namun, saya tidak dapat menemukan tabel sistem ini di Access2003. Saya tidak tahu apakah M $ meningkatkan keamanan akses.
Gunakan pernyataan SQL berikut untuk mendapatkan apa yang Anda inginkan
Kode:
Pertanyaan:
SfectmsysObjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (msysObjects.type) = 5OrderByMsySoBjects.name;
Membentuk:
SfectmsysoBjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (msysObjects.type) =-32768OrderByMsysObjects.name;
permukaan:
Sfectmsysobjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (kiri $ ([name], 4) <> "msys") dan (msysObjects.type) = 1OrderByMsySoBjects.name;
Laporan:
SfectmsysoBjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (msysObjects.type) =-32764OrderByMsysObjects.name;
Modul:
SfectmsysObjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (msysObjects.type) =-32761OrderByMsysObjects.name;
Makro:
SfectmsysObjects.namefrommsysObjectswhere (kiri ([nama], 1) <> "~") dan (msysObjects.type) =-32766OrderByMsysObjects.name;