Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] listar qualquer tabela de um bd

Recommended Posts

script para listar qualquer tabela de um bd

 

 

<% 
'Abrir conexão ADO 
constring="provider=microsoft.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("bd/seu_bd.mdb") 
set conexao = Server.CreateObject("ADODB.Connection") 
conexao .open constring 

vartabela = request("tabela") 
if vartabela = "" then 
Const adSchemaTables = 20 
Set rsTabs = Conn.OpenSchema(adSchemaTables) 
%> 
<form action="tabelas.asp" name="formulario"> 
<select name="tabela "> 
<% Do Until rsTabs.EOF %> 
<% if rsTabs("TABLE_TYPE") = "TABLE" then %> 
<option value="<% =rsTabs("TABLE_NAME") %>"><% =rsTabs("TABLE_NAME") 
%></option> 
<% end if 
rsTabs.MoveNext %> 
<% Loop %> 
</select> 
<input type="submit" name="aceitar"> 
</form> 
<% 
else 
' Executa a query à tabela ------------------------------------------- 
Set rs = conn.Execute("SELECT * FROM " & vartabela Order By nome) 
' -------------------------------------------------------------------- 
%> 
<p align="center"><% =vartabela %></p> 
<br> 
<table width="100%" border="1"> 
<% 
<tr> 
<% 
For Each fld In rs.Fields 
response.write "<td>" & fld.Name & "</td>" 
Next 
%> 
</tr> 
<% 
do until rs.EOF 
%> 
<tr> 
<% 
For Each fld In rs.Fields 
response.write "<td>" & fld.value & "</td>" 
Next 
rs.movenext 
%> 
</tr> 
<% 
loop 
%> 
</table> 
<% 
end if 
%> 

<% 
set rs = nothing 
set conn = nothing 
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.