Método 1: use el método OpenSChema () de ADO para abrir ADSChematables y crear un conjunto de registros de esquema
Código:
<%
Constadschematables = 20
adschemacolumns = 4
dimconn, db
dimconnstr
DB = "TEMP.MDB" 'Nombre del archivo de base de datos de acceso, utilice la ruta absoluta en relación con el directorio raíz del sitio web
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.Mappath (DB)
Setconn = server.createObject ("ADODB.Connection")
Conn.openconnstr
Dimrstschema
Oscuro
Setrstschema = conn.openschema (adschematables)
Dowhilenottrstschema.eof
Response.Write ("TableName:" & rstschema ("table_name") y vbcr & _
"TableType:" & rstschema ("table_type") y vbcr)
Response.write ("<br/>")
I = i+1
rstschema.movenext
Bucle
rstschema.close
Conn.clar
%>
Método 2: La tabla del sistema de acceso msysObjects contiene una lista de objetos de base de datos. Aunque no está documentado en la documentación, aún puede obtener lo que desea al consultarla. Sin embargo, de forma predeterminada, la tabla del sistema operativo no se puede operar, y los permisos deben establecerse manualmente para consultar la tabla del sistema.
Consulte la siguiente animación: Cómo obtener permisos de operación para msysobject http://blog.iyi.cn/user/david/archives/images/msobject.swf
Sin embargo, no puedo encontrar estas tablas del sistema en Access2003. No sé si M $ mejora la seguridad de Access.
Use la siguiente instrucción SQL para obtener lo que desea
Código:
Consulta:
SelectMsySoBjects.nameFrommSySObjectswhere (izquierda ([nombre], 1) <> "~") y (msySoBjects.type) = 5orderBymsOsObjects.name;
Forma:
SelectMsySoBjects.nameFrommSySObjectSwhere (izquierda ([nombre], 1) <> "~") y (msysObjects.type) =-32768OrderByMsySoBjects.name;
superficie:
SelectMsOsObjects.nameFrommSySObjectSwhere (izquierda ([nombre], 1) <> "~") y (izquierda $ ([Nombre], 4) <> "msys") y (msysObjects.type) = 1erDermysySoBjects.name;
Informe:
SelectMsySoBjects.nameFrommSySObjectswhere (izquierda ([nombre], 1) <> "~") y (msysObjects.type) =-32764erByMsysObjects.name;
Módulo:
SelectMsySoBjects.nameFrommSySObjectSwhere (izquierda ([nombre], 1) <> "~") y (msySoBjects.type) =-32761erDerByMsySoBjects.name;
Macro:
SelectMsySoBjects.nameFrommSySObjectSwhere (izquierda ([nombre], 1) <> "~") y (msySoBjects.type) =-3276666666666SOrByMsOsObjects.name;