Ir para conteúdo
Fórum Script Brasil

qwert133

Membros
  • Total de itens

    59
  • Registro em

  • Última visita

Tudo que qwert133 postou

  1. qwert133

    Select

    Ola pessoal, eu to querendo fazer o seguinte: eu tenho uma tabela que tem a seguinte a conexão: tblrs = "Select * From cprovao where" tblrs = tblrs&" cprovao.matricula = '" & Session("matricula") &"'" tblrs = tblrs&" and cprovao.matricula = cprovao.matricula" o que eu quero: tblrs = tblrs&" And cprovao.media < (campo "media" da tabela colegio)" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open tblrs, conexao, 3, 3 ___________________________________________________ e tem outra que é onde fica a media do colegio: tab_colegio = "SELECT * FROM colegio" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open tab_colegio, conexao, 3, 3 ________________________ ai eu quero pegar no select de cima, colocar para ele buscar um dado na tabela "colegio", é porque eu quero que no select ele só mostre os registros que sejam abaixo da media.
  2. qwert133

    Select Verificar

    Ola pessoal, eu tenho que usar essas memas condições do select, mais preciso acrescenta algumas coisas ai, é o seguinte Eu preciso mandar verificar na tabela "media" se o campo "media" é menor que 7, é porque eu só quero que mostre só os registros que a media é menor que 7, tblrs = "Select * From alunos, materias where" tblrs = tblrs&" alunos.matricula = '" & Session("matricula") &"'" tblrs = tblrs&" And alunos.matricula = materias.matricula" tblrs = tblrs&" And materias.matricula = materias.matricula" Valeu.
  3. Ola pessoal. Eu t precisando saber o que eu faço para quando colocar uma senha no banco access não de erro no asp, e tambem estou precisando de um criptografador beleza, que seja facil de instalar, Estou aguardando
  4. Ola pessoal, Eu to querendo fazer o seguinte, tem uma popup que abre no meu sistema que é para ela mostrar todas as médias que são <7, mais essa media não está no banco de dados, no banco so tem os 4 campos que vão ser somado e divido por 4 para dar a media, está nesse formato; media = campo1 +......... campo4 / 4 Como eu faço isso?, para mostrar só os registros que tem a media abaixo de 7, no select acho que não da porque esse campo "media" não tem no BD, . Postem ai alguma solução; VALEU>
  5. qwert133

    Trata Campo

    Eu criei uma função para tratar os campos, mais quando os campos estão vazios da aquele erro de BOF EOF, como eu faço, para nessa função acrescentar se o campo for vazio num mostre nada, mais num dê erro. function tratacampo(string) if IsNull(string) = True then string = 0 end if tratacampo = string end function
  6. qwert133

    Busca Na Pagina

    Ola pessoal, Eu to precisando fazer uma busca interna (não é no codigo asp) é assim, é porque as buscas normais, busca no Banco de dados, e algumas, busca no codigo asp. Mais eu não quero nenhuma das duas, o que eu quero é: Tem a página mostrando dados do db que sempre fica variando, ai eu quero fazer uma busca igualzinha ao do Internet Explorer - CTRL+F iai escreve o que quizer, Eu queria a mesma busca do Internet explorer, mais dentro do codigo, Se alguém souber.
  7. qwert133

    Somar Campos

    Tem alguma coisa errada, está faltando eu acho que selecionar a tabela que tem esses campos;.
  8. qwert133

    Somar Campos

    OLA pessoal. Eu to com um problema que é o seguinte: Tem uma tabela com o campo: "valor" "situacao" e ai vai ser cadastrado varios valores , 10 20 30 .... ai eu quero pegar esses valores e somar, é isso que num to conseguindo, somar, mais tem um outro problema, a soma, tem que ser só nas linhas que tiverem no campo "situacao" o valor "aprovado"; OBS, não é para somar todas as linhas, tem que somar só as linhas que tiverem no campo situação o valor "aprovado", os que não tiverem não soma nada.
  9. qwert133

    Expirar Sessão

    Ola, Como eu faço para expirar uma sessão num tempo determinado por mim, tipo 5 minutos....
  10. qwert133

    Maiuscula E Minuscula

    alguém por favor me diz o que eu uso para verificar isso.
  11. Ola, Como eu faço para na hora que for verificar a senha, ele diferenciar minuscula de maiuscula, Por exemplo: a senha é "Teste" se o cara colocar "teste" ou "TESTE".... num funcionar.
  12. qwert133

    3 Relações No Asp

    alguém responde.!!!
  13. qwert133

    3 Relações No Asp

    Ola, Eu to querendo fazer uma relação assim desse modo, mais não está dando certo: tblrs = "Select * From alunos, provas where" tblrs = tblrs&" alunos.turma = '" & Session("matricula") &"'" tblrs = tblrs&" And alunos.turma = provas.turma" ---------------------------------------------------------- Eu tenho um banco access, com 2 tabelas, 1 - alunos: com os dados do aluno, "matricula", "turma" ..... 2 - provas: com as datas disciplina "turma". Ai eu quero fazer a seguinte relação: 1º tem a tela de login com matricula senha, isso eu já fiz, ai eu quero que quando por exemplo um aluno da turma 12v3 , matricula: 1010 , logar, ele for ver as provas dele, ai tenha uma relação: para mostrar apenas os dados da tabela "provas" que tenha no campo "turma" , o mesmo valor do campo que tem na tabela alunos, da matricula que se logou, Ou seja, se na tabela provas no campo turma tiver 12v3, e na tabela alunos no campo matricula 1010 na mesma direção tiver a turma 12v3, mostre todas as provas que tem na tabela provas, Estou por aqui, se tiver alguma duvida post, que eu mando,
  14. qwert133

    Problemas

    Ola, Meu problema é o seguinte: Tenho um sistema de boletim escolar: e nesse sistema tem as 4 unidades de cada materia, e eu quero mostrar os dados assim, ao invés de 5 mostrar 5,0 . Ai eu tava usando o formatnumber(variavel,1) , se tiver no banco de dados, tudo preenchido ele funciona normalmente, mais se por exemplo, tiver na 2ª unidade a 3ª e a 4ª não vai está preenchida. ai da erro, pois o formatnumber num aceita campo em branco. o que eu já tentei e não tive sucesso: _______________________ 1 - colocar no proprio banco para mostrar com uma casa decimal, ele mostra na tabela mais quando chega para mostrar no ASP não funciona. 2 - Colocar como padrão no banco de dados 0 (não ira da erro pois não está em branco), ai fazer a função se for 0 não mostrar nada, e se for sr mostrar 0 ou sr mesmo, não deu certo pois o formatnumber não aceita letras, __________________________________________ A ideia que eu tenho, mais não sei como montar a função e queria que alguém montasse é bem parecida com a de cima são duas, escolham a mais facil: 1 - Colocar como padrão no banco de dados 0 (não ira da erro pois não está em branco), ai fazer a função se for 0 não mostrar nada, e se for sr mostrar 0 ou sr mesmo, e dentro da função dizer que se for letra num mostre com o formatnumber mostre normalmente o texto, agora tem a parte do calculo que é: media=campo1+campo2+campo3+campo4/4 se por exemplo o campo3 e campo4 estiverem com 0 iria dar certo, pois a soma não ia mudar, mais se por exemplo o aluno tirou "sr" o calculo não iria entender, media=campo1+campo2+sr+sr/4 , então teria que transformar o "sr" em "0" só na parte do calculo, sacou. 2 - Colocar para se no banco estiver vazio, ele não mostre nada e não de erro, e se tiver 0 ele mostre 0 mesmo. agora tem a parte do calculo que é: media=campo1+campo2+campo3+campo4/4 se por exemplo o campo3 e campo4 estiverem com 0 iria dar certo, pois a soma não ia mudar, mais se por exemplo a terceira e quarta unidade estivessem vazias media=campo1+campo2++/4 iria ficar assim, da erro, então na parte do calculo tinha que entender que se tivesse o campo em branco no calculo fique como "0".; Agradeço, Fico esperando alguma resposta.; (y)
  15. qwert133

    Formata Dados

    Ola, Eu queria saber qual é a função que uso para: se o numero for 5,14 mostre 5,1 se for 5 mostre 5,0 e assim vai... O que eu usava era o formatnumber mais ele só funciona se no banco de dados o campo esteja como numero, mais as vezes eu vou precisar usar letras, tem algum comando que aceite os dois, ou uma função para se for letra mostrar normalmente e se for numeros mostrar com o formatnumber, Agradeço.
  16. qwert133

    Ajuda Calculo

    achu q estou tendo dejavu... mas vamos la ... if isnull(var) then var=0 end if aff o resto é um monte de if else end if pra testar as condições ... deu pra sacar? Oh, cara num da pra mandar o resto não,
  17. qwert133

    Ajuda Calculo

    Ola pessoal, eu estou com um problema num sistema, o meu problema é que: por exemplo se tiver na segunda unidade, a terceira e quarta não estara preenchida no banco de dados, e com isso da erro de compatibilidade porque o comando que eu estou usando "formatnumber" não aceita o campo em branco, ai eu queria criar funções para driblar o quadro em branco: 1 - se o campo1 por exemplo no banco de dados, estiver em branco, ele entenda como zero no calculo da media, que é campo1+campo2+campo3+campo4 fique como se fosse 0+campo2+campo3+campo4 e tambem na hora de mostrar ele tem que entender como se ele fosse 0, pois o formatnumber ira aceitar o "0" -------- OBS. esse 0 não pode aparecer no Browse, pois o aluno vai pensar que ele tirou "0" nas outras unidades. Então ai eu queria que não aparecece nada, ou "-------------" 2 - se o campo estiver com 0 apareça "SR" 3 - se for menor que 5 - apareça com cor vermelha 4 - se for entre 5 e 7 - apareça com cor preta 5 - se for maior que 7 - apareça com cor azul Fico esperando,
  18. qwert133

    4 Condições

    é usando "if" mesmo, é porque eu não to sabendo ligar, eu sou novato ainda na area.,
  19. qwert133

    4 Condições

    Ola, Eu quero fazer um esquema com 4 condições: como faço é o seguinte: São essas as 4 condições, eu quero que se tal dado que eu pego no db for menor que "5" seja com fonte vermelha, se for entre 5 e 7 seja preta, e maior que 7 seja azul, e a 4 condição se for igual a 0, apareça "-----". 1 - se for menor que 5 2 - se for entre 5 e 7 3 - se for maior que 7 4 - se for igual a 0 Agradeço.
  20. na verdade o calculo é feito mais da o erro: Tipos incompatíveis: 'FormatNumber' porque quando eu vou mostrar o calculo eu faço assim: para mostrar sempre com 1 casa decimal, ex: 5 mostrar 5,0 Response.write "<font color='#0033CC'>" & FormatNumber(calculo,1) & "</font>"
  21. Ola, eu to precisando de uma ajuda, é porque: eu fiz um script que tem o calculo: campo1+campo2+campo3+campo4/4 e esse campo1 campo2 campo3 campo4 , eu pego de um banco de dados, mais as vezes só vai ter preenchido o campo1, depois de um tempo o campo2, e quando preencho o campo1 e fico sem preencher os outros campos, o calculo vai sair errado, tem como por exemplo: colocar uma função que quando campo2 , campo3 e campo4 / campo3 e campo4 / campo4 , estiverem vazios mostrar como se fosse 0, mais na verdade esse zero num pode está no banco de dados, pois se não vai ter um valor, Espero uma resposta, valeu
  22. Não entendi, Como eu adciono nesse script que tenho: pagina do formulario: </head> <body> <form method="post" action="insert_into.asp" name="form" onsubmit="return valida_campo()"> <div align="center"> <center> <table width="44%" border="0" cellspacing="2" cellpadding="2"> <tr align="center"> <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#CCCCCC">Incluir</font></font></b></font></div> </td> <td bgcolor="#f5f5f5" width="30%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div> </td> <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div> </td> </tr> </table> <table border="0" width="300" bgcolor="F5F5F5"> <tr bgcolor="#FFFFFF"> <td colspan="2" height="34"> <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Cadastro ASPBRASIL.</font></b></font></div> </td> </tr> <tr> <td width="76"><font size="2" face="Verdana" color="0000cc">Nome:</font></td> <td width="210"> <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"> </td> </tr> <tr> <td width="76"><font size="2" face="Verdana" color="0000cc">E-mail:</font></td> <td width="210"> <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()"> </td> </tr> <tr> <td width="76"><font size="2" face="Verdana" color="0000cc">Telefone:</font></td> <td width="210"> <input type="text" name="telefone" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"> </td> </tr> <tr> <td width="76"><font size="2" face="Verdana" color="0000cc">Comentário:</font></td> <td width="210"> <textarea rows="4" name="comentario" cols="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"></textarea> </td> </tr> <tr> <td width="286" colspan="2"> <p align="center"> <input type="submit" value="Enviar" name="enviar"> </td> </tr> </table> </center> </div> </form> </body> </html> ------------------------------------------------------------------------------------------ pagina com o script de inserção <% 'Força a declaração de todas as variáveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, comentario 'Atrubuição dos valores as respectivas variáveis nome = Request.Form("nome") telefone = Request.Form("telefone") email = Request.Form("email") comentario = Request.Form("comentario") 'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection") 'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access... '(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox) '(*.mdb) indica que o arquivo utiliza extensão mdb objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Insere os dados na tabela aberta strQuery = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')" 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set objRs = Nothing Set objConn = Nothing if err = 0 Then response.redirect "sucesso.asp" end if %> O que eu faço por exemplo para cadastrar o "telefone" da tabela contato e também cadastrar na tabela contato2, cadastrar as duas de vez. Por favor, use CODE, para identificar seu código !!
  23. Ola pessoal, Eu uma vez vi um script pronto de login, que era mais ou mesnos assim: tinha: o banco access e numa tabela tinha um campo url: onde você colocava um link, ao invés de ser por nivel o login, já era direto para um link, sacou. Mais agora eu to precisando desse script e num acho, e num tenho ideia de como faço. Se alguém tiver ou um parecido, por favor, posta ai meu email é: qwert133133@hotmail.com
  24. Ola, eu to querendo usar um mesmo campo de texto para cadastrar em duas tabelas: exemplo: Nome: |_________________| e ele inserir os dados no access: tabelas: 01 02 estrutura 01: nome teste teste2 ... estrutura 02: nome qual kajk .... e cadastrar logo nas duas tabelas 01 e 02, no campo nome ,
×
×
  • Criar Novo...