Listar Tabelas, Campos e Valores

[Salgado 4]

Código para Listar as TABELAS contidas em um DB.

Vou deixar bem claro:

Não fui eu que fiz, encontrei em um outro Fórum!

Mas funciona bem.

Ele retorna todas as tabelas e os valores (se existirem) de um BD.

<%@Language="VBScript"%>
<%
Set Cn = CreateObject("ADODB.Connection")
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")
Cn.Open ConnString

Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = cn

for i = 0 to cat.tables.count - 1
if lcase(cat.tables(i).type) = "table" Then

set rs = server.createobject("adodb.recordset")
rs.open "select * from " & cat.tables(i).name, cn, 1,3,1

response.write "<br>" & "Tabela: " & cat.tables(i).name & "<br>"

do until rs.eof
for x = 0 to rs.fields.count - 1
response.write "Campo: " & rs.fields(x).name & " / Valor: " & rs.fields(x).value & "<br>"
next

rs.movenext
loop

end if
next

rs.close
Cn.Close

Set rs = Nothing
Set Cn = Nothing
%>

[Mário Monteiro 179]

Independentemente de ter sido você que fez salgado, valew por compartilhar conhecimento conosco

[Xandão Grunge 0]

Olá a todos!

 

Sei que este tópico está um pouco velho, mas eu gostaria de saber o que eu devo fazer para saber se um campo é auto incrementavel

<%@Language="VBScript"%><%Set Cn = CreateObject("ADODB.Connection")ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")Cn.Open ConnStringSet cat = CreateObject("ADOX.Catalog")cat.ActiveConnection = cnfor i = 0 to cat.tables.count - 1if lcase(cat.tables(i).type) = "table" Thenset rs = server.createobject("adodb.recordset")rs.open "select * from " & cat.tables(i).name, cn, 1,3,1response.write "<br>" & "Tabela: " & cat.tables(i).name & "<br>"do until rs.eoffor x = 0 to rs.fields.count - 1 response.write "<div style=""font-size:12px"">Campo: " & rs.fields(x).name & " - Tipo: " &  rs.fields(x).type & " - Valor: " & rs.fields(x).value & "</div>"nextrs.movenextloopend ifnextrs.closeCn.CloseSet rs = NothingSet Cn = Nothing%>

A única alteração foi mostar o tipo de dados, que no caso mostra por código. Olhando uma referência do w3schools percebi que este era o campo inteiro. Mas ele não diferencia se é auto numeravel ou não. Algúém poderia me ajudar a descobrir se o campo é autonumeravel ou não?

 

desde já agradeço,

Xandão Grunge B)

[[ GuTo ] 0]

Mamão com açúcar :lol:

[4P. 0]

Olá amigo!Pra saber se um campo e autoincrent você tem que abrir a base de dadosAbrir a tabela no modo de estrutura e ver o tipo do campo, e neste elemeto que diz que tipo de campo é.

[Marcelo Barcellos 0]

Olá amigo!Pra saber se um campo e autoincrent você tem que abrir a base de dadosAbrir a tabela no modo de estrutura e ver o tipo do campo, e neste elemeto que diz que tipo de campo é.

????

[Xandão Grunge 0]

Olá amigo!Pra saber se um campo e autoincrent você tem que abrir a base de dadosAbrir a tabela no modo de estrutura e ver o tipo do campo, e neste elemeto que diz que tipo de campo é.

Eu precisava saber como faz isto via código, pois o que eu quero fazer é um script de migração para MySQL e tudo de forma automática. De qualquer forma agradeço a intenção.Xandão Grunge B)