Este método puede obtener el nombre de la tabla de datos de ACCESS, su estructura, tipo de datos, etc... El programa filtra varias tablas ocultas de varias bases de datos de ACCESS (esta puede ser la razón por la cual la base de datos de ACCESS aumentará de tamaño después de eliminar los datos)
<html>
<cabeza>
<title>Obtener la tabla de la base de datos ACCESS nombre_www.vevb.com</title>
</cabeza>
<estilo del cuerpo=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<estilo de formulario=relleno:5px;margen:5px;margin-left:0px nombre=obtener acción= método=publicación>
Ruta de la base de datos:<tipo de entrada=nombre de texto=valor de ruta= tamaño=50 />
<tipo de entrada=nombre oculto=valor ari=1 />
<tipo de entrada=valor de envío=Ver/>
</formulario>
<hora>
<%
si request.form(ari)=1 y request.form(path)<> entonces
conexión tenue,connstr,i,sql,rs
en caso de error reanudar siguiente
Connstr=DRIVER=Controlador de Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(ruta))
Establecer conexión=Servidor.CrearObjeto(ADODB.Conexión)
conn.Abrir connstr
Si se equivoca entonces
errar.Borrar
SetConn=Nada
Response.Write Error de conexión a la base de datos, verifique la cadena de conexión.
Respuesta.Fin
Terminar si
%>
<font color=rojo><%=conn.connectionstring%></font><hr>
<%
j=0
recuento de mesa tenue
recuento de tablas = 0
Establecer shm = conexión.OpenSchema(20)
shm.MoveFirst
Hazlo mientras no seas shm.EOF
Si shm(TABLE_TYPE) = TABLA Entonces
If Left(shm(table_name), 1) <> ~ Entonces 'Filtrar tablas ocultas aquí
j=j+1
llamar a GetFileds(shm(nombre_tabla))
Terminar si
Terminar si
shm.MoverSiguiente
Bucle
Response.write ¡Hay &j& tablas de datos en total!
demás
Response.write <h3>¡Ingrese la ruta relativa a la base de datos para ver el contenido específico!</h3>
terminar si
%>
</cuerpo>
</html>
<%
Función GetFileds(NombreTabla)
Establecer rs = servidor.createobject(adodb.recordset)
SQL tenue
SQL = seleccionar * de & NombreTabla
rs.Abrir SQL, conexión, 1, 1
DimCont
Cont = rs.Campos.Contar
respuesta.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;fondo:#eeeeee>&vbcrlf
La tabla Response.write <font color=red><b>&TableName&</b></font> contiene campos &Cont&, de la siguiente manera:<br>&vbcrlf
Para i = 0 Para continuar - 1
tipo de filtro tenue
seleccione caso rs.fields(i).tipo
caso 3
tipo de filtro = número automático (número)
caso 202
tipo de filtro=carácter
caso 203
tipo de filtro=observaciones
caso 125
tipo de filtro=fecha
caso 11
tipo de filtro = verdadero/falso (sí/no)
finalizar seleccionar
respuesta.escribir <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Próximo
respuesta.escribir </div>&vbcrlf
rs.Cerrar
establecer rs = nada
Función final
%>