Sugestões que possam melhorar e aperfeiçoar o script são bem vindas!
Senti a necessidade de criar uma maneira mais genérica de mostrar os dados de um determinado SQL.
Desenvolvi esta função simples que recebe como parâmetro um comando.
Ela executará o SQL e irá gerar uma table com os registros.
Obs: não me preocupei com o visual, apenas com o resultado esperado.
index.asp
<html>
<!--#include file="funcoes.asp" -->
<body>
<%
call grid("SELECT * FROM USUARIOS")
Response.Write "<br>"
call grid("SELECT LOGIN as Login, SENHA as Senha FROM USUARIOS")
%>
</body>
</html>
funcoes.asp
<script LANGUAGE="vbscript" RUNAT="Server">
sub grid(sql)
Dim conObj
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open "STRING DE CONEXÃO COM O BANCO DE DADOS"
Dim rs
Set rs = conObj.Execute(sql)
Response.Write "<table border='0' width='100%'>"
Response.Write "<tr>"
'imprime as colunas
i = 0
do while i <= rs.Fields.Count-1
Response.Write "<td><b>" & rs.fields(i).name & "</b></td>"
i = i+1
loop
Response.Write "</tr>"
'imprime os registros
do while not rs.eof
i = 0
Response.Write "<tr>"
do while i <= rs.Fields.Count-1
Response.Write "<td>"&rs(i) & "</td>"
i = i+1
loop
Response.Write "</tr>"
rs.movenext
loop
Response.Write "</table>"
Response.Write "<br>"
rs.close
conObj.close
set rs = nothing
set conObj = nothing
end sub
</SCRIPT>
Pergunta
Anderson Buzzi
Sugestões que possam melhorar e aperfeiçoar o script são bem vindas!
Senti a necessidade de criar uma maneira mais genérica de mostrar os dados de um determinado SQL.
Desenvolvi esta função simples que recebe como parâmetro um comando.
Ela executará o SQL e irá gerar uma table com os registros.
Obs: não me preocupei com o visual, apenas com o resultado esperado.
index.asp
<html> <!--#include file="funcoes.asp" --> <body> <% call grid("SELECT * FROM USUARIOS") Response.Write "<br>" call grid("SELECT LOGIN as Login, SENHA as Senha FROM USUARIOS") %> </body> </html>funcoes.asp<script LANGUAGE="vbscript" RUNAT="Server"> sub grid(sql) Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "STRING DE CONEXÃO COM O BANCO DE DADOS" Dim rs Set rs = conObj.Execute(sql) Response.Write "<table border='0' width='100%'>" Response.Write "<tr>" 'imprime as colunas i = 0 do while i <= rs.Fields.Count-1 Response.Write "<td><b>" & rs.fields(i).name & "</b></td>" i = i+1 loop Response.Write "</tr>" 'imprime os registros do while not rs.eof i = 0 Response.Write "<tr>" do while i <= rs.Fields.Count-1 Response.Write "<td>"&rs(i) & "</td>" i = i+1 loop Response.Write "</tr>" rs.movenext loop Response.Write "</table>" Response.Write "<br>" rs.close conObj.close set rs = nothing set conObj = nothing end sub </SCRIPT>Editado por Anderson BuzziLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.