Este método pode obter o nome da tabela de dados ACCESS, sua estrutura, tipo de dados, etc... O programa filtra várias tabelas ocultas de vários bancos de dados ACCESS (esta pode ser a razão pela qual o banco de dados ACCESS ficará maior após a exclusão dos dados)
<html>
<cabeça>
<title>Obter nome da tabela do banco de dados ACCESS_www.vevb.com</title>
</head>
<body style=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<form style=padding:5px;margin:5px;margin-left:0px name=getaction=method=post>
Caminho do banco de dados:<tipo de entrada=nome do texto=valor do caminho= tamanho=50 />
<tipo de entrada = nome oculto = valor ari = 1 />
<tipo de entrada=enviar valor=Visualizar/>
</form>
<h>
<%
se request.form(ari)=1 e request.form(path)<> então
dim conn,connstr,i,sql,rs
em caso de erro, retome a seguir
Connstr=DRIVER=Driver Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(path))
Definir Conn=Server.CreateObject(ADODB.Connection)
conn.Open connstr
Se errar então
err.Limpar
SetConn=Nada
Erro de conexão do banco de dados Response.Write, verifique a string de conexão.
Resposta.Fim
Terminar se
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
escurecer contagem de tabelas
contagem de tabelas = 0
Definir shm = conn.OpenSchema(20)
shm.MoveFirst
Faça enquanto não shm.EOF
Se shm(TABLE_TYPE) = TABLE Então
If Left(shm(table_name), 1) <> ~ Then 'Filtre as tabelas ocultas aqui
j=j+1
chame GetFileds(shm(nome_tabela))
Terminar se
Terminar se
shm.MoveNext
Laço
response.write Existem tabelas de dados &j& no total!
outro
response.write <h3>Por favor, insira o caminho relativo para o banco de dados para visualizar o conteúdo específico!</h3>
terminar se
%>
</body>
</html>
<%
Função GetFileds(NomeTabela)
Definir rs = server.createobject(adodb.recordset)
Escurecer SQL
SQL = selecione * de & TableName
rs.Open SQL, conexão, 1, 1
DimCont
Cont = rs.Fields.Count
resposta.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee>&vbcrlf
A tabela response.write <font color=red><b>&TableName&</b></font> contém campos &Cont&, como segue:<br>&vbcrlf
Para i = 0 Para Cont - 1
dimfiltype
selecione o caso rs.fields(i).type
caso 3
filtype=número automático(número)
caso 202
tipo de filtro = caractere
caso 203
filtype=observações
caso 125
tipo de arquivo=data
caso 11
filtype = verdadeiro/falso (sim/não)
final selecionar
resposta.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Próximo
resposta.write </div>&vbcrlf
rs.Fechar
definir rs = nada
Função final
%>