Pesquisar No Banco E Printa Na Tela

mkboy · Fevereiro 23, 2004

Simples, mas to me enrrolando.

Fiz um form e gravei alguns dados no banco (nome, email, idade, cidade, pais)

E agora fiz uma pagina e quero imprimir o conteudo desta tabela na tela, uma impressao simples, só para pegar o jeito e depois personalizar, mas to me enrrolando.

Como devo fazer, o meu fiz assim só que não ta printando na tela

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB")
Conn.Open ConStr
Set RS = Server.CreateObject("ADODB.Recordset")
%>
<%
thesql = "select * from coment"
Set RS = conn.execute(theSQL)
if not rs.eof then
response.redirect("erro.asp")
end if
%>
<html>
<head>
<title>Tester</title>
<%=nome%>
</body>
</html>

dark0 · Fevereiro 23, 2004

opa..

veja:

conecta no banco:

url_conexao = Server.MapPath("fish.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

seleciona os dados:

sql = "select * from coment"
set rs = conexao.execute(sql)

testa se a tabela do banco ta vazia

if rs.oef=true then
   response.redirect "erro.asp"
end if

acima.. veja que esta: se rs.eof (rs.fim) ou seja, se chegar no final da tabela, significa que esta vazia.. então, vai para o erro.. agora faz um LOOP, para mostrar todos os dados:

do while not rs.eof
    response.write rs("campo_tabela_banco")
    response.write "<br>"
rs.movenext
loop

teste... e veja como funciona..

abraços..

mkboy · Fevereiro 24, 2004

Primeiro desculpa de fiz algo de errado, pois sou enrrolado mesmo, mas veja como fiz

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("boletim/fish.MDB")
Conn.Open ConStr
Set RS = Server.CreateObject("ADODB.Recordset")

sql = "select * from coment"
set rs = conexao.execute(sql)
if rs.oef=true then
response.redirect "erro.asp"
end if
%>
<%
do while not rs.eof
response.write rs("nome")
response.write "<br>"
rs.movenext
loop
%>

Era isso que eu deveria fazer para listar os dados do banco na tela!!!

dark0 · Fevereiro 24, 2004

hehehe...

mas o que vale é que funcionou

mkboy · Fevereiro 24, 2004

Esse é o problema,

num ta funcionando...

hehe

Da uma forcinha ae pra corrigir...

mkboy · Fevereiro 24, 2004

Agora fiz assim e ainda não funciona, veja:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("boletim/fish.MDB")
Conn.Open ConStr
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from coment", Conn
set rs = conn.execute(sql)
if rs.oef=true then
response.redirect "erro.asp"
end if
%>
<%
Do while NOT rs.EOF
Response.write rs("nome") & rs("email") & "<br>"
rs.MoveNext
Loop
%>

Da dando esse erro:

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Command text was not set for the command object.
/pescaki/v2/total.asp, line 8

dark0 · Fevereiro 24, 2004

você não tentou mudar seu modo de conexao?

esse modo que você usa, eu acho mais complicado que o normal..

tenta esse..

url_conexao = Server.MapPath("boletim/fish.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

sql = "select * from coment"
set rs = conexao.execute(sql)

e depois:

if rs.oef=true then
  response.redirect "erro.asp"
end if

Do while NOT rs.EOF
Response.write rs("nome") & rs("email") & "<br>"
rs.MoveNext
Loop

Tork · Fevereiro 24, 2004

o problema é que você colocou que o recordset vai executar "sql", só que você n definiu sql..

faz assim:

sql = "select * from coment"
rs.Open sql, Conn

Do while NOT rs.EOF
Response.write rs("nome") & rs("email") & "<br>"
rs.MoveNext
Loop

mkboy · Fevereiro 24, 2004

Cara, funcionou.

Muito obrigado pela atenção!

BRIGADAUNNNNN!!!!

dark0 · Março 24, 2004

esse tópico tb pode ser fechado..

Entrar

Pesquisar No Banco E Printa Na Tela

Pergunta

mkboy

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Tork

Link para o comentário

Compartilhar em outros sites

mkboy

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades