Sou_Designer

Membros
  • Content Count

    25
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Sou_Designer

Perfil

  • Gender
    Female
  • Location
    RJ
  1. :wacko: vou tentar, obrigado
  2. Eu sou mt básica nisso... to lendo apostila mas tenho dificuldade ... é complicado pra quem é design aprender com facilidade essa l´gocia toda... Postei um tópico novo com todo o código... Mais uma vez te agradeço !!! Bjs!!
  3. Sou_Designer

    Ajuda listar tudo

    Bom dia/tarde gente... Tenho um cód aqui que é para alterar se a pessoa passou (SIM), não passou (NÃO) ou ainda vai realizar a prova (REALIZAR). Esta busca é feita por CPF... porém nesta página de busca por CPF querem que já apareça listado todas as pessoas que estão no banco de dados... 50 por 50 pessoas.. paginando... e com a opção de editar cada pessoa se ela passou (SIM), não passou (NÃO) ou ainda vai REALIZAR a prova. Vamos lá... Página 1... onde busca o CPF e tem que ser implementada a listagem... Listagem deverá conter o NOME (COD_NOME), CPF e SITUAÇÃO (situação está na tabela <style type="text/css"> <!-- .style1 {color: #FF0000} --> </style> <body class="BODY"> <table border="0" align="center" cellspacing="0" class="Tabela_Boleto_Bancario" style="margin-top:5px;"> <form name="FORM_NOTA_FINAL" action="" method="post"> <tr> <td align="center" style="font-family:Verdana; font:bold; font-size:12px;"> <img src="../img/logo.jpg" border="0" align="absmiddle" style="float:left"> </td> </tr> <tr> <td align="center" style="font-family:Verdana; font:bold; font-size:12px; background-color:#999999; color:#FFFFFF; height:25;"> Listagem de Resultado</td> </tr> <tr> <td class="Texto">&nbsp;&nbsp;&nbsp;Informe aqui o CPF do candidato: <span class="style1">*</span> &nbsp;&nbsp; <input name="CAD_CD_CPF" type="text" class="Formulario" id="CAD_CD_CPF" onFocus="this.className='Formulario_focus';this.value=''" onBlur="this.className='Formulario';" onKeyPress="SomenteNumeros(this)" onKeyUp="Mascara_CPF('CAD_CD_CPF')" size="23" maxlength="14">&nbsp;&nbsp;<img src="../img/lupa.gif" onClick="CPF_Cadastrado();" border="0"> </td> </tr> <tr> <td align="center" style="font-family:Verdana; font:bold; font-size:12px; background-color:#999999; color:#FFFFFF; height:25;">Cadastrar Nota Final </td> </tr> <tr> <td class="Texto_Comprovante" style="padding:5px;"> <span id="Resultado_CPF_Cadastrado" class="Texto_Azul"></span> </td> </tr> <tr> <td class="Texto_Comprovante" style="padding:5px;">&nbsp;</td> </tr> <tr> <td class="Texto_Comprovante" style="padding:5px;">&nbsp;</td> </tr> <tr> <td class="Texto_Comprovante">&nbsp;</td> </tr> <tr> <td background="../img/background_faixa_bottom.jpg" style="background-repeat:no-repeat; height:27px;">&nbsp; </td> </tr> </form> </table> </body> <% END IF %> Página CPF CANDIDATO: <!--#include file="connect.asp" --> <% Session.LCID = 1046 Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 Response.Buffer = true Response.Charset="ISO-8859-1" 'acentuação, caracteres especiais, codificação, etc no Ajax. VAR_CPF = Request.QueryString("CPF") VAR_CPF = REPLACE(VAR_CPF,".","") VAR_CPF = REPLACE(VAR_CPF,"-","") Query_CPF_Cadastrado = " " +_ " SELECT " +_ " CANDI_CD_MATRICULA, " +_ " CANDI_NM_CANDIDATO, " +_ " RESVEST_TX_APROVADO, " +_ " RESVEST_DT_CADASTRO " +_ " FROM " +_ " CONSULTA_NOTA_FINAL " +_ " WHERE " +_ " CANDI_CD_CPF = " +_ " '"&VAR_CPF&"' " Set CPF_Cadastrado = Conect.Execute(Query_CPF_Cadastrado) %> <table width="100%" border="0" class="Texto"> <% IF CPF_Cadastrado.EOF THEN %> <tr> <td colspan="2">CPF <%=Request.QueryString("CPF")%>, não cadastrado!</td> </tr> <% ELSE %> <tr> <td width="12%" class="Texto_Negrito">Matricula:</td> <td><%=CPF_Cadastrado("CANDI_CD_MATRICULA")%></td> </tr> <tr> <td class="Texto_Negrito">Nome:</td> <td><%=CPF_Cadastrado("CANDI_NM_CANDIDATO")%></td> </tr> <tr> <td class="Texto_Negrito">Aprovado:</td> <td> <% IF CPF_Cadastrado("RESVEST_TX_APROVADO") = "S" THEN Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S' checked>&nbsp;Sim") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N'>&nbsp;N&atilde;o") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar") ELSEIF CPF_Cadastrado("RESVEST_TX_APROVADO") = "N" THEN Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S'>&nbsp;Sim") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N' checked>&nbsp;N&atilde;o") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar") ELSE Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='S'>&nbsp;Sim") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='N'>&nbsp;N&atilde;o") Response.Write("<input name='RESVEST_IN_APROVADO' id='RESVEST_IN_APROVADO' type='radio' value='R'>&nbsp;Realizar") END IF %> </td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2"> <% IF CPF_Cadastrado("RESVEST_TX_APROVADO") <> "" THEN Response.Write("<input name='B3' type='button' class='Botao' id='B3' value='MODIFICAR' onClick='Gravar_Nota()'>") Response.Write("<input type='hidden' name='CD_TIPO_REGISTRO' id='CD_TIPO_REGISTRO' value='UPDATE'>") ELSE Response.Write("<input name='B3' type='button' class='Botao' id='B3' value='GRAVAR' onClick='Gravar_Nota()'>") Response.Write("<input type='hidden' name='CD_TIPO_REGISTRO' id='CD_TIPO_REGISTRO' value='INSERT'>") END IF %> <input type="hidden" name="CD_MATRICULA" id="CD_MATRICULA" value="<%=CPF_Cadastrado("CANDI_CD_MATRICULA")%>"> </td> </tr> <% END IF %> </table> Página Gravar Nota Final: <!--#include file="connect.asp" --> <% Session.LCID = 1046 Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 Response.Buffer = true Response.Charset="ISO-8859-1" 'acentuação, caracteres especiais, codificação, etc no Ajax. IF Request.QueryString("TIPO_REG") = "INSERT" THEN Query_Cadastro_Nota = " " +_ " INSERT INTO " +_ " TB_RESULTADO_VESTIBULAR " +_ " (CANDI_CD_MATRICULA, " +_ " RESVEST_TX_APROVADO, " +_ " RESVEST_DT_CADASTRO) " +_ " VALUES " +_ " ("&Request.QueryString("CD_MATRICULA")&", " +_ " '"&Request.QueryString("CD_NOTA")&"', " +_ " '"&Now()&"') " Set Cadastro_Nota = Conect.Execute(Query_Cadastro_Nota) Response.Write("Resultado cadastrado com sucesso!") ELSE Query_Atualiza_Nota = " " +_ " UPDATE " +_ " TB_RESULTADO_VESTIBULAR " +_ " SET " +_ " RESVEST_TX_APROVADO = '"&Request.QueryString("CD_NOTA")&"', " +_ " RESVEST_DT_ATUALIZADO = '"&Now()&"' " +_ " WHERE " +_ " CANDI_CD_MATRICULA = "&Request.QueryString("CD_MATRICULA")&" " Set Atualiza_Nota = Conect.Execute(Query_Atualiza_Nota) Response.Write("Resultado modificado com sucesso!") END IF %> No banco de dados o resultado se passou, não passou ou realizar está na tabela TB_RESULTADO_VESTIBULAR campo RESVEST_TX_APROVADO. Desde já agradeço muito quem puder me ajudar !!!! Valeu gente ! :wub:
  4. Ok ! Obrigada amigo pela atenção !!!!!! Outra coisinha, como se faz para listar tudo o que estiver no banco de dados ? Apesar de saber que isto não é usual estão me pedindo isso aqui... Para listar todos os inscritos... São 600... E ao lado de cada nome (CD_NOME) e CPF (CD_CPF) irá aparecer a opção se passou SIM, NÃO ou se ainda vai REALIZAR a prova... Gostaria que fossem listados 50 por página...... :( é verdade .. tava sim e SIM :blush: Obrigadade novo!!!!!! Outra coisinha, como se faz para listar tudo o que estiver no banco de dados ? Apesar de saber que isto não é usual estão me pedindo isso aqui... Para listar todos os inscritos... São 600... E ao lado de cada nome (CD_NOME) e CPF (CD_CPF) irá aparecer a opção se passou SIM, NÃO ou se ainda vai REALIZAR a prova... Gostaria que fossem listados 50 por página...... :(
  5. Bom gente, muito obrigada ! Não funcionou.. fuxiquei etc etc e assim deu certo: <!--#Include File="conexao.asp"--> <% 'Set rstConsulta = conVest_2009_1.execute("Select * From CADASTRO Where COD_CPF='"& Request.Form("cpf")& "'") 'if rstConsulta ("Aprovados") = "SIM" then 'response.write "Parabéns! Você foi aprovado!" 'else 'if rstConsulta ("Aprovados") = "NÃO" then 'response.write "Infelizmente você não passou. Tente novamente no nosso próximo vestibular. Acompanhe em: www.suesc.com.br" 'else 'if rstConsulta.eof then 'response.write "CPF não encontrado." 'end if 'end if 'end if 'OUTRO 'Set rstConsulta = conVest_2009_1.execute("Select * From CADASTRO Where COD_CPF='"& Request.Form("cpf")& "' AND aprovados = 'SIM'") 'if rstConsulta.eof then 'response.write "cpf não encontrado" 'end if 'if rstConsulta ("aprovados") = "SIM" then 'response.write "Parabéns!Você foi aprovado!" 'else 'response.write "Infelizmente você não passou. Tente novamente no nosso próximo vestibular. Acompanhe 'em: www.suesc.com.br" 'end if 'MAIS UM COM REALIZAR Session.LCID = 1046 Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 Response.Buffer = true Response.Charset="ISO-8859-1" 'acentuação, caracteres especiais, codificação, etc no Ajax. Set rstConsulta = conVest_2009_1.execute("Select * From TB_CANDIDATO Where CANDI_CD_CPF='"& Request.Form("cpf")& "'") IF rstConsulta.EOF THEN VAR_URL = "vestibular_2009_1.asp" Response.Write("<script>alert('CPF "&Request.Form("cpf")&"\nNão encontrado!')</script>") Response.Write("<script>window.top.location.href=('"&VAR_URL&"')</script>") ELSE IF rstConsulta("CANDI_CD_APR") = "SIM" THEN Response.Write("Parabéns!Você foi aprovado!") ELSEIF rstConsulta("CANDI_CD_APR") = "NÃO" THEN Response.Write("Infelizmente você não passou.<br>Tente novamente no nosso próximo vestibular.") ELSEIF rstConsulta("CANDI_CD_APR") = "REALIZAR" THEN Response.Write("Infelizmente você ainda não realizou a Prova.") END IF END IF %>
  6. Muito obrigado ! Tá consultando porém diz, em todo CPF, que a pessoa não PASSOU, mesmo no banco estando SIM... e não critica se eu entrar com CPF inválido. :wacko: :rolleyes:
  7. Testei sim ! Descompactei e etc Minha maior dúvida é nesse select não é COD_CPF = sim é o seguinte 1a página: Aluno entra com o CPF Esta página tem que validar o CPF e puxar os dados relacionados a este CPF ( NOME, APROVADO (SIM ou não)); Se o CPF for válido: O sistema vai no banco de dados e puxa o nome do aluno e se ele foi aprovado ou não Senão Dá mensagem de que "Este CPF não está cadastrado" Entendeu .. agora acho que me expressei melhor... por ai: 1a página: <form action="consulta_vestibular_2009_1.asp" method="post" name="consulta"> Insira seu CPF: &nbsp; <input name="cpf" type="text" size="20"> &nbsp; &nbsp; <input name="Consultar" type="submit" id="Consultar" value="Consultar"> </form> página consulta_vestibular_2009_1.asp: <% if Request.Form("cpf") <> "" then Set rstConsulta = conVest_2009_1.execute("Select * From CADASTRO Where COD_CPF='"& Request.Form("cpf")& "'") [b][color="#FF0000"]OBS AQUI TEM QUE ENTRAR MAIS UMA COISA, AND IF APROVADO for igual a SIM[/color][/b] if not rstConsulta.EOF then %> [b][color="#FF0000"]?????????[/color][/b] <%end if else %> <script language="JavaScript"> alert("CPF não encontrado em nosso cadastro") history.back() </script> Socorro :)) Obrigadãoooooooooo você terá que fazer o tema de casa...só lhe dei um exemplo... porque não testou o arquivo que lhe indiquei? Chegou a descompactar ele? Subiu ele pra um servidor e o testou? Tem consulta sim... e além desse arquivo tem vários outros exemplos prontos ali em cima clicando em "códigos livres"... Pra consultar esses cpf's basta fazer uma query com uma clausula de where do tipo: sql = "select * from sua_tabela where campo_cpf = 'SIM'" Denovo sómente um exemplo... incompleto por sinal... mas com isso que lhe indiquei você tem base mais que sificente para fazer seus primeiros testes! Mão na massa e qualquer dúvida poste aqui! []'s Rafael Spilki
  8. Certo, mas esse exemplo está relacionado a inserir no banco de dados certo ? Eu quero consultar... estou pesquisando aqui nos tópicos... Hein Rafael... Como eu faço para validar esse cpf quando o aluno entrar com o CPF ? Ao entrar com o CPF, tem que ver no banco de dados se esse CPF passou ou não na prova CPF: Coluna COD_CPF PROVA: Coluna APROVADOS (Opções SIM ou NÃO) Não to conseguindo :(
  9. Boa tarde todos (as) ! Gente, eu sou designer e estou precisando de uma ajudinha. :wub: Onde trabalho tem um banco de dados Access... Preciso criar uma consulta (abrindo conexão, fechando conexão, essas coisas todas, pois não sei fazer) onde traga do banco de dados os aprovados numa prova. Nesse BD tem o CPF, o NOME da pessoa e uma coluna de aprovados (SIM ou não). Preciso que ao entrar com o CPF, a página busque se esse CPF foi aprovado (SIM ou NÃO). Preciso de ajuda pra fazer a página que irá entrar o CPF (html :P), a consulta e a página do resultado, que eu gostaria que aparecesso o nome da pessoa que entrou com o CPF e o resultado SIM ou NÃO. Alguém poderia me ajudar ? Sei que é mt básico para vocês mas é que realmente estou sem tempo para pesquisar pois não deve ser difícil. Desde já agradeço ! Valeu gente!!!!!!!!
  10. No banco DATA e ABREVIADA e quando eu coloco o seu código : Conexao.Execute("Update dados set cod_data_i=" & date(now()) ou Conexao.Execute("Update dados set cod_data_i='" & date(now()) a página do formulário nem abre e dá erro de cara... sem esse comando que eu quero da ddata a página abre e grava os dados direitinhos: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EE) ')' esperado /bd/df_inclusao.asp, line 12, column 60 Conexao.Execute("Update dados set cod_data_i=" & date(now()) e a COLUNA 60 é o último PARÊNTESES Obrigada amigo!!!
  11. Mesmo erro :( .. infelizmente, nem abre o formulário pra preencher Como posso fazer então pra pegar a data, armazenar numa variável, e essa variável jogar no BD Access campo cod_data_i
  12. Queridos, fiz direitinho como vocês falaram mas dá erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EE) ')' esperado /bd/df_inclusao.asp, line 12, column 60 Conexao.Execute("Update dados set cod_data_i=" & date(now()) -----------------------------------------------------------^ está assim: strCon = "DBQ=C:\Inetpub\wwwroot\FACULDADE_SUESC\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};" Conexao.Execute("Update dados set cod_data_i=" & date(now()) Não aguento mais.......... pior que já são 18hs Já verifiquei e o BD está com o usr SYSTEM com controle total socorro!
  13. Bom, funcionando com a forma de conexão: strCon = "DBQ=C:\Inetpub\wwwroot\FACULDADE_SUESC\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};" Agora vem aquele velho problema de 5a... que você me ajudou mas não funcionou... o formulário pegar a data que a pessoa tá se inscrevendo (pode ser quando enviaro send) automaticamente do windows e jogar no banco de dados (cod_data_i) ... Desta forma que me orientou nem conectar ao banco conecta (comentando a linha da data)... dá erro na mesma linha que tava dando o outro, será que não é nenhum outro espacinho ? :)) E no: Conexao.Execute("Update dados set data=" & date(now()) como fica o comando se o meu campo no BD é cod_data_i ? MUUUUITO OBRIGADA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14. Nooooooooossa... muito obrigada mesmo pela sua presteza e atenção ! Tá caminhando... agora o erro é: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x8b0 Thread 0xc40 DBC 0x129352c Jet' do Registro. naquela mesma linha