Fazendo um Select Passo - a - Passo

[dark0]

Fazendo um Select Passo - a - Passo!

<%

'conectamos ao banco

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

'selecionamos toda a tabela do banco

sql = "select * from tabela"

set rs = conexao.execute(sql)

'testamos se a tabela esta vazia, pra não dar erros

if rs.eof then

response.write "Nada no banco de dados"

else

'vamos pro primeiro registro da tabela

rs.movefirst

'iniciamos a repetição.. até chegar ao fim da tabela

do while not rs.eof

'mostramos os dados da tabela do banco.. usando rs("campo").. onde RS é o objeto que executa o SQL que seleciona o banco

response.write "Nome: " + rs("nome")

response.write "Email: " + rs("email")

'vamos para o proximo registro

rs.movenext

loop

end if

%>

onde as linhas que estao em azul, são comentarios, para vocês entenderem o codigo.

Podem deixar eles no codigo, pois eu coloquei uma aspa simples antes da frase.. e isso faz com que aquela linha não seja executada!

Abraços, e até a proxima!