Ir para conteúdo
Fórum Script Brasil

Sou_Designer

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    20

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Sou_Designer postou

  1. Sou_Designer

    Ajuda listar tudo

    pergunta respondeu ao Sou_Designer de Sou_Designer em ASP

    :wacko: vou tentar, obrigado
  2. Sou_Designer
    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

    uma questão postou Sou_Designer ASP

    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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. Sou_Designer
    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
  15. Sou_Designer
  16. Sou_Designer
    Não estou conseguindo colar o código todo, parece que o início é "comido"... não tá aparecendo............ help!!!!!!!!!!!!!!!!!!!!!!!!! esse cód ai não tá completo
  17. Sou_Designer
    Sim...Pode ser "data" ou qualquer outro campo !É só você escolher o nome do campo e colocar na tabela Sim, faz tudo "automatico".Entretando, você pode realizar modificações (se não conseguir, posta aí) Qualquer coisa, posta aí ! Oiiiiiiiiiiiiii !!!!!!! Não consigo... Coloquei a conexão para abrir da forma que você falou, só que sem a data para testar a conexão: dá erro:HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /bd/df_inclusao.asp, line 387 e dá erro na seguinte linha: objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM Cadastro Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %> E agora ? :(
  18. Sou_Designer
    Sim...Pode ser "data" ou qualquer outro campo !É só você escolher o nome do campo e colocar na tabela Sim, faz tudo "automatico".Entretando, você pode realizar modificações (se não conseguir, posta aí) Qualquer coisa, posta aí ! é VBScript :( <% @ LANGUAGE="VBSCRIPT" %> <% 'String de conexão para o banco de dados do Microsoft Access strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Nome da página de consulta pagina_consulta = "consulta.asp" 'Nome da página de alteração pagina_alteracao = "alteracao.asp" 'Nome da página de inclusão pagina_inclusao = "inclusao.asp" 'Nome da página de login pagina_login = "login.asp" '******************************************************************* %> é vbscript e no meu Banco o campo é cod_data_i onde irá armazenar a data automaticamente. Como faço em vbscript ? ou posso abrir duas conexões uma em asp e outra em vb script ? Porque mudar tudo p/ asp vai dar um trabalhão...
  19. Sou_Designer
    Ok muito obrigada ! Desculpem ai ! Sorry Já tem no meu código: set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\dados.mdb" --//-- data é o campo que terei que criar no meu MDB ? Essa linha já faz tudo automático ? Simples asssimmm :lol: Conexao.Execute("Update dados set data=" & date(now()) Obrigadinha ! <% @ LANGUAGE="VBSCRIPT" %> <% 'String de conexão para o banco de dados do Microsoft Access strCon = "DBQ=C:\Inetpub\wwwroot\BD\bdvest09.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Nome da página de consulta pagina_consulta = "consulta.asp" 'Nome da página de alteração pagina_alteracao = "alteracao.asp" 'Nome da página de inclusão pagina_inclusao = "inclusao.asp" 'Nome da página de login pagina_login = "login.asp" '******************************************************************* %> é vbscript e no meu Banco o campo é cod_data_i onde irá armazenar a data automaticamente. Alguém ?
  20. Sou_Designer
    Boa tarde, <_< Alguém me ajuda por favor... Tenho um formulário online que conecta-se a uma base ACCESS. Preciso que ao preencher este formulário, quando o usuário clicar em enviar, seja salvo no banco de dados a data que este usuário enviou o formulário. como posso fazer isso ? Help-me please ! Obrigada gente !!!! :wub:
×
×
  • Criar Novo...