Duany Morais
-
Total de itens
8 -
Registro em
-
Última visita
Sobre Duany Morais
- Data de Nascimento 15/07/1978
Duany Morais's Achievements
0
Reputação
-
Estou tentando como disse, exibir uma página com as informações descritas dessa maneira: 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 Pessoal, obrigado a todos que me ajudaram, mas achei a solução. Abaixo o código, se alguém precisar... <!--#include file="conexao.asp" --> <% 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> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <b><%Response.write rstPesquisador("tipo")%></b><br> <%While Not rstPesquisador.EOF %> <%Response.write rstPesquisador("nome")%> - <%Response.write rstPesquisador("email")%><br> <% 'Move para o próximo registro rstPesquisador.MoveNext Wend %> <p></p> <b><%Response.write rstEstudante("tipo")%></b><br> <%While Not rstEstudante.EOF %> <%Response.write rstEstudante("nome")%> - <%Response.write rstEstudante("email")%><br> <% 'Move para o próximo registro rstEstudante.MoveNext Wend %> <p></p> <b><%Response.write rstColaborador("tipo")%></b><br> <%While Not rstColaborador.EOF %> <%Response.write rstColaborador("nome")%> - <%Response.write rstColaborador("email")%><br> <% '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 %>
-
Estou tentando como disse, exibir uma página com as informações descritas dessa maneira: 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
-
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: 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
-
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
-
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 ________________________________________
-
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
-
Desculpe, mas como falei sou iniciante, estou ainda quebrando cabeça para escrever meus próprios scripts :-( Seria assim? 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
-
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çã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> </p> <p> </p> <p> </p> <p> </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