Ola,
Gostaria de saber como faço para listar todas as tabelas de um Banco de dados do Access utilizando ASP.
Pesquiza Tabela Em Bd Access
Started By getpaulo, 27/08/2005, 05:05
1 reply to this topic
#1
getpaulo
-
- Usuários
-
- 82 posts
Normal
- Sexo:Não informado
- Localidade:MG
- Interesses:Apreender
Posted 27/08/2005, 05:05
getpaulo
"Mas, a todos quantos o receberam, aos que crêem no seu nome, deu-lhes o poder de se tornarem filhos de Deus; aos quais não nasceram do sangue, nem da vontade da carne, nem da vontade do varão, mas de Deus. JOÃO 1:12,13"
#2
Generation
-
- Usuários
-
- 1546 posts
Super Veterano
- Sexo:Masculino
- Localidade:Curitiba - PR
Posted 28/08/2005, 10:29
Bom segue abaixo um codigo encontrado no google e adaptado, testei e modifiquei funciona perfeito, basta voce adicionar umas coisitas mas para adaptar ao que voce precisa, para funcionar basta apenas voce mudar o nome do banco de dados na linha que contem o path do mesmo. 
Para saber mais sobre ADOX.Catalog visite http://msdn.microsof...dobjcatalog.asp
[]'s
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
db = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("suporte.mdb")
Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = db
set rs = server.createobject("ADODB.Recordset")%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table cellpadding="2" width="100%" >
<tr>
<td colspan="2">Estrura do Banco de dados</td>
</tr>
<tr>
<td align="center" width="10%"><b><%=cat.tables.Count/2%></b></td>
<td width="*"> Tabelas</td>
</tr>
</table>
<br />
<%
For i = 0 To (cat.tables.count - 1) Step 1
If LCase(cat.tables(i).type) = "table" Then
rs.open "select * from " & cat.tables(i).name, db, 0,1,1
%>
<table cellpadding="2" width="100%" >
<tr>
<td colspan="3"><b><%=cat.tables(i).name%></b> - Total de campos: <%=rs.fields.count%></td>
</tr>
<tr>
<td width="34%">Nome do Campo</td>
<td width="33%">Tipo</td>
<td width="33%">Tamanho</td>
</tr>
<%
For x = 0 To (rs.fields.count - 1) Step 1
%>
<tr>
<td width="34%"><%=rs.fields(x).name%></td>
<td width="33%">
<%
Select Case rs.fields(x).type
Case Else
t = rs.fields(x).type
End Select
Response.Write(t)%>
</td>
<td width="33%"><%=rs.fields(x).definedsize%></td>
</tr>
<%
Next
%>
</table>
<br>
<%
rs.close
End If
Next
Set rs = Nothing
%>
</td>
</tr>
</table>
</body>
</html>Para saber mais sobre ADOX.Catalog visite http://msdn.microsof...dobjcatalog.asp
[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
