Exibir Dados Do Bd Access No Browser

Duany Morais · Maio 25, 2004

Olá amigos, é a primeira vez que incluo um tópico neste fórum, pois encontrei aqui, pelo que vi, pessoas que gostam de ajudar.

Sou iniciante em asp, bem iniciante, por isso acho que minha dúvida é banal, mas não sei onde posso estar errando.

Tenho em meu BD uma tabela mais ou menos assim:

Nome, Tipo, Email

Duany, Colaborador, duany@draitonsys.com

Cristiano, Pesquisador, cristiano@draitonsys.com

Julia, Estudante, julia@draitonsys.com

Cristiani, Estudante, cristiani@draitonsys.com

Gostaria que quando o usuário clicasse em meu site num link -> "Membros" ele fosse direcionado para uma página em asp conforme abaixo:

Membros da Equipe

Pesquisador

Cristiano - cristiano@draitonsys.com

Estudante

Cristiani - cristiani@draitonsys.com

Julia - julia@draitonsys.com

Colaborador

Duany - duany@draitonsys.com

________________________________________

Meu código está abaixo, não sei qual o problema...

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados labecto.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../bd/labecto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela cadastro
strQuery = "SELECT * FROM cadastro WHERE tipo='pesquisador'"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<link href="../doc/css/labecto_css.css" rel="stylesheet" type="text/css">
<head>
<title>Cadastro de Membros da Equipe</title>
</head>
<body bgcolor="#FFFFFF">
<div align="left">
<div align="left"> 
    <table width="81%" border="0" cellspacing="0" cellpadding="0" height="1" align="left">
      <tr> 
        <td width="456" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="428" align="center">
            <tr bgcolor="ffffff"> 
              <td colspan="3" valign="top" bgcolor="ffffff"></td>
            </tr>
            <tr> 
              <td colspan="3" valign="top"> <form action="form_altera.asp" method="GET" name="pesquisador" id="pesquisador">
                  <table width="428" border="0" cellspacing="0" cellpadding="0" height="1">
                    <tr> 
                      <td height="1" align="center" width="734"> <table width="445" height="41" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
                          <tr bgcolor="#006600"> 
                            <td width="437" height="34" align="center"><font size="2"><b><font size="1" color="FFFFFF"> 
                              </font><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">:: 
                              Altera&ccedil;&atilde;o ::</font></b></font></td>
                          </tr>
                          <tr bgcolor="#BEDEDE"> 
                            <td height="2" align="center" bgcolor="#BEDEDE"> <div align="left"><b> 
                                <span class="rotulos"> </span> </b> <font size="1" color="FFFFFF"><b><span class="rotulos"> 
                                <%Response.write objRS("tipo")%>

                                </span></b> </font></div></td>
                          </tr> 
                          <%While Not objRS.EOF %>
                          <tr bgcolor="#FFFFE6"> 
                            <td height="1" align="center"> <div align="left"><font size="1" color="FFFFFF"><b><span class="rotulos"> 
                                </span></b></font> 
                                <%Response.write objRS("nome")%>
                                - 
                                <%Response.write objRS("cargo")%>
                              </div></td>
                          </tr>
                          <%
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
                        </table></td>
                    </tr>
                  </table>
                </form></td>
            </tr>
          </table>
          
        </td>
      </tr>
    </table>
  </div>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p><font size="1" color="FFFFFF"><b><span class="rotulos"> </span></b></font><font size="1" color="FFFFFF"> 
    </font></p>
  
</div>
</body>
</html>

Já tentei mudar a linha strQuery = "SELECT * FROM cadastro WHERE tipo='pesquisador'" mas não surtiu efeito.

Ficaria grato se alguém pudesse me ajudar.

Obrigado desde já.

Duany Morais

duany.morais@draitonsys.com

http://www.draitonsys.com

joao.vanelli · Maio 25, 2004

Tente no sql o comando

'"&Request.Form("pesquisador")&"'

em vés de só pesquisador

Falow

Duany Morais · Maio 25, 2004

Tente no sql o comando
'"&Request.Form("pesquisador")&"'
em vés de só pesquisador
Falow

Desculpe, mas como falei sou iniciante, estou ainda quebrando cabeça para escrever meus próprios scripts :-(

Seria assim?

strQuery = "SELECT * FROM cadastro WHERE '"&Request.Form("pesquisador")&"'"
Set ObjRs = objConn.Execute(strQuery)

Como definiria as demais opções (Colaborador e Estudante)? Não deveria fazer referência ao campo "Tipo" da tabela?

Desculpe mais uma vez se estiver falando besteira, estou aprendendo sozinho... hehehe

Obrigado pelo interesse em ajudar.

Duany Morais

Maio 25, 2004

Cara você não precisa colocar a clausula WHERE

Maio 25, 2004

Cara você não precisa colocar a clausula WHERE na select porque você quer listar todos os registros da tabela membros independente dele ser pesquisador , colaborador ou estudante, pelo exemplo de página q você colocou.
Falow

Tenta isso

Duany Morais · Maio 25, 2004

Cara você não precisa colocar a clausula WHERE

desculpe, mas como falei ainda estou aprendendo... hehehe

tentei como me orientaram, mas ele lista todos os nomes independente de serem Pesquisadores, Estudantes ou Colaboradores.

está aparecendo:

Pesquisador

Duany

Cristiani

Cristiano

Julia

Desculpe a ignorância. heheh

[ ]'s

Duany Morais

Duany Morais · Maio 25, 2004

Cara você não precisa colocar a clausula WHERE na select porque você quer listar todos os registros da tabela membros independente dele ser pesquisador , colaborador ou estudante, pelo exemplo de página q você colocou.
Falow

Tenta isso

desculpe, mas quero listar todos os registros de minha tabela, mas conforme abaixo, ou seja, por categoria.

Gostaria que quando o usuário clicasse em meu site num link -> "Membros" ele fosse direcionado para uma página em asp conforme abaixo:

Membros da Equipe

Pesquisador

Cristiano - cristiano@draitonsys.com

Estudante

Cristiani - cristiani@draitonsys.com

Julia - julia@draitonsys.com

Colaborador

Duany - duany@draitonsys.com

________________________________________

Maio 25, 2004

então 1º de um SELECT trazendo só os pesquisadores e listando eles daí você fecha esse recordset e abre outro.

Só q dessa vez pegando só os estudantes e listando eles e fecha esse recordset tb.

Depois dê um terceiro select pegando somente os colaboradores e listando - os.

Falow

Se tiver dúvida posta ai

Duany Morais · Maio 25, 2004

então 1º de um SELECT trazendo só os pesquisadores e listando eles daí você fecha esse recordset e abre outro.
Só q dessa vez pegando só os estudantes e listando eles e fecha esse recordset tb.
Depois dê um terceiro select pegando somente os colaboradores e listando - os.
Falow
Se tiver dúvida posta ai

Ok, vou fazer os teste, e qualquer coisa voltamos a postar, hehehe

Mais uma vez obrigado pela atenção de todos.

Duany Morais

Florianópolis/Santa Catarina

joao.vanelli · Maio 25, 2004

Cara você não precisa colocar a clausula WHERE
desculpe, mas como falei ainda estou aprendendo... hehehe
tentei como me orientaram, mas ele lista todos os nomes independente de serem Pesquisadores, Estudantes ou Colaboradores.
está aparecendo:
Pesquisador
Duany
Cristiani
Cristiano
Julia
Desculpe a ignorância. heheh
[ ]'s
Duany Morais

Olá

você falou que tem um campo na tabela "Tipo" que guarda se ele é pesquisador ou outra coisa, então

Do While not Tabela.EOF
  if Tabela("Tipo")="Pesquisador" then
   Response.Write(Tabela("Tipo"))
  end if
Loop

Faz isso para todos os tipos

Falow

[ GuTo ] · Maio 26, 2004

Pelo que eu entendi, tire apenas o: WHERE tipo='pesquisador'

E pronto!

Bob Esponja · Maio 26, 2004

strQuery = "SELECT * FROM cadastro WHERE tipo='"&Request.Form("pesquisador")&"'"

tenta assim q eu acho q vai resolver seu problema....

vlw !

Duany Morais · Maio 26, 2004

strQuery = "SELECT * FROM cadastro WHERE tipo='"&Request.Form("pesquisador")&"'"
tenta assim q eu acho q vai resolver seu problema....
vlw !

Pessoal, vou fazer alguns testes, analisei novamente o código e creio que meu problema está quando vou imprimir as variáveis na tela...

Tipo:

<%While Not objRS.EOF
if objRS("Tipo")="Pesquisador" then
Response.write objRS("nome")
Response.write objRS("cargo")
end if
if objRS("Tipo")="Estudante" then
Response.write objRS("nome")
Response.write objRS("cargo")
end if
'Move para o próximo registro
objRS.MoveNext
Wend
%>

O único problema é que com esta linha "While Not objRS.EOF" o tipo vai se repetindo... e não era isso que eu queria...

Mas obrigado pela atenção de todos até o momento, e se alguém tiver alguma nova idéia de como resolver o problema, eu agradeço.

E já aviso, quem precisar de mim e se eu puder ajudar, pode perguntar...

Duany Morais

MSN: ddsmorais@hotmail.com

[ GuTo ] · Maio 27, 2004

Você ainda não resolveu, certo?

Pois bem, explique com calma novamente o que realmente você deseja.

No final, insira os códigos que você já tem e diga em q parte você tem dúvida, beleza?

Duany Morais · Maio 28, 2004

' date='May 27 2004, 01:12 AM'] Você ainda não resolveu, certo?
Pois bem, explique com calma novamente o que realmente você deseja.
No final, insira os códigos que você já tem e diga em q parte você tem dúvida, beleza?

Estou tentando como disse, exibir uma página com as informações descritas dessa maneira:

PESQUISADOR
Duany - duany@email.com
ESTUDANTE
Cristiani - cristiani@email.com
Cristiano - cristiano@email.com
COLABORADOR
Júlia - julia@email.com

Essas informações são trazidas de uma tabela "Cadastro" no meu BD.

Pensei que pudesse resolver o problema alterando a linha da instrução SQL, mas estou indo por outro caminho, mas ainda assim estou com problemas...

Com o código abaixo, só estão aparecendo os pesquisadores....

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados labecto.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../bd/labecto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Selecion0a da tabela cadastro
strQuery = "SELECT * FROM cadastro"
Set ObjRs = objConn.Execute(strQuery)
%>


<html>
<link href="../doc/css/labecto_css.css" rel="stylesheet" type="text/css">
<head>
<title>Cadastro de Membros da Equipe</title>
</head>
<body bgcolor="#FFFFFF">
<p><%if objRS("tipo")="Pesquisador" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Pesquisador" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  end if%></p>

<p><%  objRS.MoveFirst
if objRS("tipo")="Estudante" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Estudante" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
   end if %></p>

<p><%objRS.MoveFirst 
if objRS("tipo")="Colaborador" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Colaborador" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
   end if %></p>

<%
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>

</body>
</html>

Desculpe se não consegui assimilar bem as dicas anteriores, mas testei e mesmo assim não funcionou, portanto busquei em outras fontes a solução acima, mas como falei, ainda não consegui.

Grato.

Duany Morais

Florianópolis/SC

Duany Morais · Junho 2, 2004

,May 27 2004, 01:12 AM] Você ainda não resolveu, certo?
Pois bem, explique com calma novamente o que realmente você deseja.
No final, insira os códigos que você já tem e diga em q parte você tem dúvida, beleza?
Estou tentando como disse, exibir uma página com as informações descritas dessa maneira:
PESQUISADOR
Duany - duany@email.com
ESTUDANTE
Cristiani - cristiani@email.com
Cristiano - cristiano@email.com
COLABORADOR
Júlia - julia@email.com
Essas informações são trazidas de uma tabela "Cadastro" no meu BD.
Pensei que pudesse resolver o problema alterando a linha da instrução SQL, mas estou indo por outro caminho, mas ainda assim estou com problemas...
Com o código abaixo, só estão aparecendo os pesquisadores....
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados labecto.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../bd/labecto.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Selecion0a da tabela cadastro
strQuery = "SELECT * FROM cadastro"
Set ObjRs = objConn.Execute(strQuery)
%>


<html>
<link href="../doc/css/labecto_css.css" rel="stylesheet" type="text/css">
<head>
<title>Cadastro de Membros da Equipe</title>
</head>
<body bgcolor="#FFFFFF">
<%if objRS("tipo")="Pesquisador" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Pesquisador" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  end if%>

<%  objRS.MoveFirst
if objRS("tipo")="Estudante" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Estudante" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
   end if %>

<%objRS.MoveFirst 
if objRS("tipo")="Colaborador" then
  Response.write objRS("tipo")
While Not objRS.EOF
if objRS("tipo")="Colaborador" then
Response.write objRS("nome")
end if
  'Move para o próximo registro
  objRS.MoveNext
  Wend
   end if %>

<%
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>

</body>
</html>
Desculpe se não consegui assimilar bem as dicas anteriores, mas testei e mesmo assim não funcionou, portanto busquei em outras fontes a solução acima, mas como falei, ainda não consegui.
Grato.
Duany Morais
Florianópolis/SC

Pessoal, obrigado a todos que me ajudaram, mas achei a solução.

Abaixo o código, se alguém precisar...

<%

Dim rstPesquisador

Dim rstPesquisador_numRows

Set rstPesquisador = Server.CreateObject("ADODB.Recordset")

rstPesquisador.ActiveConnection = objConn

rstPesquisador.Source = "SELECT * FROM cadastro WHERE tipo='Pesquisador'"

rstPesquisador.CursorType = 0

rstPesquisador.CursorLocation = 2

rstPesquisador.LockType = 1

rstPesquisador.Open()

rstPesquisador_numRows = 0

%>

<%

Dim rstEstudante

Dim rstEstudante_numRows

Set rstEstudante = Server.CreateObject("ADODB.Recordset")

rstEstudante.ActiveConnection = objConn

rstEstudante.Source = "SELECT * FROM cadastro WHERE tipo='Estudante'"

rstEstudante.CursorType = 0

rstEstudante.CursorLocation = 2

rstEstudante.LockType = 1

rstEstudante.Open()

rstEstudante_numRows = 0

%>

<%

Dim rstColaborador

Dim rstColaborador_numRows

Set rstColaborador = Server.CreateObject("ADODB.Recordset")

rstColaborador.ActiveConnection = objConn

rstColaborador.Source = "SELECT * FROM cadastro WHERE tipo='Colaborador'"

rstColaborador.CursorType = 0

rstColaborador.CursorLocation = 2

rstColaborador.LockType = 1

rstColaborador.Open()

rstColaborador_numRows = 0

%>

<html>

<head>

<title>Documento sem título</title>

</head>

<body>

<%Response.write rstPesquisador("tipo")%>

<%While Not rstPesquisador.EOF %>

<%Response.write rstPesquisador("nome")%> - <%Response.write rstPesquisador("email")%>

<%

'Move para o próximo registro

rstPesquisador.MoveNext

Wend

%>

<%Response.write rstEstudante("tipo")%>

<%While Not rstEstudante.EOF %>

<%Response.write rstEstudante("nome")%> - <%Response.write rstEstudante("email")%>

<%

'Move para o próximo registro

rstEstudante.MoveNext

Wend

%>

<%Response.write rstColaborador("tipo")%>

<%While Not rstColaborador.EOF %>

<%Response.write rstColaborador("nome")%> - <%Response.write rstColaborador("email")%>

<%

'Move para o próximo registro

rstColaborador.MoveNext

Wend

%>

</body>

</html>

<%

rstPesquisador.Close()

Set rstPesquisador = Nothing

%>

<%

rstEstudante.Close()

Set rstEstudante = Nothing

%>

<%

rstColaborador.Close()

Set rstColaborador = Nothing

%>

Entrar

Exibir Dados Do Bd Access No Browser

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Guest - André -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns