|
|
<< Volta para a lista de códigos#1 - 01/07/2006 12:00:00
Conexão a Banco de Dados e listagem do conteúdo 
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Listando o conteúdo de uma tabela do banco de dados</TITLE>
</HEAD>
<BODY>
<%
'Conexão a banco de dados e listagem de conteúdo
'Em nosso exemplo faremos uma conexão a banco de dados por "string de
'conexão", método comumente usado em servidores que oferecem hospedagem gratuita.
'Para isso vamos declarar e definir a string de conexão propriamente dita, a
'instrução SQL, os objetos "Connection" e "RecordSet".
'Consideraremos uma tabela chamada agenda com nome e telefone, apenas, e a
'listaremos em ordem alfabética. Os campos de nossa tabela serão chamados "nome"
'e "telefone". Desconsideraremos, em nosso exemplo, a possibilidade de a tabela
'estar vazia. Assumiremos que existem dados e geraremos uma tabela com esses
'dados.
Dim strConn, oConn, oRS, strSQL
strConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("nomedobanco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM agenda ORDER BY nome"
'Gerando a tabela:
Response.Write "<table border=1>"
Response.Write "<tr><td>Nome</td><td>Telefone</td></tr>"
'Agora a criação do "corpo" da tabela (HTML) utilizando os dados da tabela (do
'banco de dados).
oRS.Open strSQL, strConn
DO WHILE NOT oRS.EOF
Response.Write "<tr>"
Response.Write "<td>" & oRS("nome") & "</td>"
Response.Write "<td>" & oRS("telefone") & "</td>"
Response.Write "</tr>"
oRS.MoveNext
LOOP
Response.Write "</table>"
oRS.Close
Set oRS = Nothing
Set oConn = Nothing
'É muito importante que qualquer objeto "instanciado" seja depois liberado
'(Set <objeto> = Nothing), pois "alivia" o servidor. É, inclusive, uma boa
'idéia, durante a confecção do código, que na linha imediatamente seguinte à
'criação da "instância" já haja a "liberação". O corpo do código pode ser
'inserido no meio. Evita esquecimentos que podem se transformar em
'aborrecimentos...
'Variações da instrução SQL poderiam ser:
'Para listar os nomes que começam por "A"
strSQL = "SELECT * FROM agenda WHERE nome LIKE 'A%' ORDER BY nome"
'Para listar os nomes terminados por "Silva"
strSQL = "SELECT * FROM agenda WHERE nome LIKE '%Silva' ORDER BY nome"
'Para utilizar ordem decrescente...
strSQL = "SELECT * FROM agenda ORDER BY nome DESC"
%>
</BODY>
</HTML>
<< Volta para a lista de códigos
|
|
