Visualizar BD e Tabelas

[ricardo coelho designer 0]

Bom dia estou fazendo um adm de BD... Ele cria BD, deletaBD, Insere tabela, exclui tabela.O problema é o seguinte preciso que ele visualize os BDS e as tabelas com conteudo.Aguem pode me dar uma luz que não sei por onde começo... Como fazer esse código....?Agradeço desde já.

[jothaz 1]

Camarada,Para qual bd? SQL Server, Access, MySQL ou adminitraria qq bd?Seja mas claro pois assim falicita e acelera a ajuda.t+

[ricardo coelho designer 0]

Camarada,Para qual bd? SQL Server, Access, MySQL ou adminitraria qq bd?Seja mas claro pois assim falicita e acelera a ajuda.t+

OKPeço perdão por minha falta de informação, o BD é ACCESS

[jrcardozo 4]

camarada, como é access creio que você possa utilizar fso para pegar os dbs, depois tenta usar esse código para listar as tabelas e campos

set rsTabela=abredb.execute("SHOW TABLES IN "&base_de_dados&";")if not rsTabela.eof then	do while not rsTabela.eof		Response.Write("TABELA "&rsTabela(0)&"<br>")		set rs=abredb.execute("SHOW COLUMNS IN "&rsTabela(0)&";")		if not rs.eof then			do while not rs.eof						Response.Write(rs(0)&"--"&rs(1)&"--"&rs(2)&"--"&rs(3)&"<br>")				rs.movenext			loop		end if			rsTabela.movenext	Response.Write("<br>")	loop	end if

veja bem, apenas uma tentativa pois esse codigo funciona no mysql, possivelmente funcione no access

[ricardo coelho designer 0]

Cara acrescentei o FSO mas ele me retorna o seguinte erroErro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: ''/accessadmin/AccessAdmin/visualizarBD.asp, line 6

<%DIM abredbSet objFSO = Server.CreateObject("Scripting.FileSystemObject")set rsTabela=abredb.execute("SHOW TABLES IN C:\Inetpub\wwwroot\AccessAdmin\AccessAdmin\"&base_de_dados&";")if not rsTabela.eof thendo while not rsTabela.eofResponse.Write("TABELA "&rsTabela(0)&"<br>")set rs=abredb.execute("SHOW COLUMNS IN "&rsTabela(0)&";")if not rs.eof thendo while not rs.eofResponse.Write(rs(0)&"--"&rs(1)&"--"&rs(2)&"--"&rs(3)&"<br>")rs.movenextloopend ifrsTabela.movenextResponse.Write("<br>")loopend if%>

[Ted k' 126]

Cara:

 

"abredb"

 

ñ está faltando algo ai ñ?

[jrcardozo 4]

pára tudo....confundiste algo ai....veja bem:

primeiro.....use o fso para pegar todos os nomes dos arquivos da pasta, cria um while e utiliza o código que passei, vou postar ele completo na versão MySQL, terá que mudar a string de conexão

 

<%'aqui você pega os arquivos contidos na pasta X e faz o whilebase_de_dados="loja" '<<<=== aqui você coloca o registro atual do while referente ao nome do banco de dadosserverDb="localhost"usuarioDb="root"senhaDb="root"Set abredb = Server.CreateObject("ADODB.Connection")abredb.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER="&serverDb&";DATABASE="&base_de_dados&"; UID="&usuarioDb&"; PWD="&senhaDb&";OPTION=35" '<<=== aqui você coloca a string de conexão para accessset rsTabela=abredb.execute("SHOW TABLES IN "&base_de_dados&";")if not rsTabela.eof then	do while not rsTabela.eof		Response.Write("TABELA "&rsTabela(0)&"<br>")		set rs=abredb.execute("SHOW COLUMNS IN "&rsTabela(0)&";")		if not rs.eof then			do while not rs.eof						Response.Write(rs(0)&"--"&rs(1)&"--"&rs(2)&"--"&rs(3)&"<br>")				rs.movenext			loop		end if			rsTabela.movenext	Response.Write("<br>")	loop	end if'<<==aqui você faz  o loop até terminar os arquivos da pasta%>

[ricardo coelho designer 0]

Eu fiz desse jeito e está dando o seguinte erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperado./accessadmin/AccessAdmin/visualizarBD2.asp, line 8

<%url_conexao = "C:\Inetpub\wwwroot\AccessAdmin\AccessAdmin\vitrine.mdb"set abredb = Server.CreateObject("ADODB.Connection")abredb.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexaoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")set rsTabela=abredb.execute("SHOW TABLES IN "&base_de_dados&";")if not rsTabela.eof then    do while not rsTabela.eof        Response.Write("TABELA "&rsTabela(0)&"<br>")        set rs=abredb.execute("SHOW COLUMNS IN "&rsTabela(0)&";")        if not rs.eof then            do while not rs.eof                Response.Write(rs(0)&"--"&rs(1)&"--"&rs(2)&"--"&rs(3)&"<br>")                rs.movenext            loop        end if    rsTabela.movenext    Response.Write("<br>")    loopend ifSet objFSO = Nothing 'Fecha ObjetoSet rs = Nothing'<<==aqui você faz  o loop até terminar os arquivos da pasta%>

[jrcardozo 4]

eu sabia que já tinha visto isso aqui no fórum...segue o mamão com açucar

http://www.imasters.com.br/forum/index.php?showtopic=8547

[ricardo coelho designer 0]

Cara peço desculpas pela minha ignorancia em alguns assuntos em asp, mas estou aprendendo... gostaria de ter o conhecimento tão avançado quanto ao seu, estou engatinhando no aprendizado....Agradeço pelo tempo desperdiçado com minha questão e obrigado pela solução.

[jrcardozo 4]

beleza cara, o proposito do fórum é ajudar, principalmente as pessoas que tem interesse em aprender(seu caso) e não simplesmente ganhar uns trocados com a ajuda da galera