Ir para conteúdo
Fórum Script Brasil

bolomaster

Veteranos
  • Total de itens

    827
  • Registro em

  • Última visita

Tudo que bolomaster postou

  1. Salve galera, beleza olha so é o seguinte eu to com um problema simples para se resolver, eu estou criando um sistema onde oh professor se loga, escolhe a materia e a turma... ai lista toda a turma e ele vai jogar as notas para aquela turma, olha so o meu codigo como esta ficando so que não consigo listar a turma no fim.. se alguém tiver alguma ideia .. eu agradeço selecionardistur.asp <form name="form1" method="post" action="selectmateria"> <% 'Sistema Desenvolvido por Rafael Marciano dim db, rs, tblrs, disciplina set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") tblrs = "Select * From disciplinasProfessor" rs.open tblrs, db %> <select name="disciplina"> <% do while not rs.eof %> <option value="<%=rs.fields("AbrevDisc")%>"><%=rs.fields("AbrevDisc")%></option> <% rs.movenext loop %> </select> <% rs.close db.close set rs = nothing set db = nothing %> <!-- ################################################## --> <% dim db2, rs2, tblrs2, turma set db2 = Server.CreateObject("ADODB.Connection") set rs2 = Server.CreateObject("ADODB.recordset") db2.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") tblrs2 = "Select * From Turmas" rs2.open tblrs2, db2 %> <Select name="turma"> <% do while not rs2.eof %> <option value="<%=rs2.fields("CodigoTurma")%>"><%=rs2.fields("CodigoTurma")%></option> <% rs2.movenext loop %> </select> <input name="selecionar" type="button" value="selecionar"> </form> <% rs2.close db2.close set rs2 = nothing set db2 = nothing %> agora o arquivo selectmateria <% dim Conn, RS, SQL, disciplina, turma, varsessao Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("db/secfac01.mdb") Conn.open disciplina = Request.Form("disciplina") turma = Request.Form("turma") SQL = "select * from connotas where AbrevDisc = '"&disciplina&"' and Turma = '"&turma&"' " Set RS = Conn.Execute(SQL) If RS.EOF Then Response.Write "não existem dados para esta turma/disciplina." Else varturma = RS.fields("turma") Session("turma") = varturma vardisc = RS.fields("AbrevDisc") Session("disc") = vardisc Response.Redirect "lancNotas.asp" End If %> Neste arquivo que da erro Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /atenas/Faculdade/selectmateria.asp, line 10 o erro da linha 10 é que no banco a tabela o tipo de dado é nº e faz parte de um relacionamento então não posso perder os dados já cadastro e não muda para texto como vou resolver este problema ? LancNotas.asp <% 'Sistema Desenvolvido por Rafael Marciano dim db, rs set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") tblrs = "Select * From connotas where turma = '" & Session("turma") &"' AND AbrevDisc = '"& Session("disc")& "'" rs.open tblrs, db %> <form action="atualizanotas" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="11%">Turma</td> <td width="16%">Disciplina</td> <td width="10%">Aluno</td> <td width="23%">Prova 1&ordm; Bim </td> <td width="15%">Prova 2º Bimestre </td> <td width="25%">Exame especial </td> </tr> <% do while not rs.eof %> <tr> <td><input name="turma" type="text" id="turma" value="<%=rs.fields("turma")%>"></td> <td><input name="disciplina" type="text" id="disciplina" value="<%=rs.fields("AbrevDisc")%>"></td> <td><input name="aluno" type="text" id="aluno" value="<%=rs.fields("NomeAluno")%>"></td> <td><input name="prova1b" type="text" id="prova1b" value="<%=rs.fields("Prova1bim")%>"></td> <td><input name="prova2b" type="text" id="prova2b" value="<%=rs.fields("Prova2bim")%>"></td> <td><input name="examespecial" type="text" id="examespecial" value="<%=rs.fields("examespecial")%>"></td> </tr> <%rs.movenext loop rs.close db.close set rs = nothing set db = nothing %> </table></form> abraços a todos
  2. Salve Galera, O grande irmao Vagner, como já haviamos conversado, estas nossas vidas .. tumultuadas, corridas são realmente uma loucura, sei de todo o seu caso sua falta eminente no forum, mas não se preocupe grande amigo, tudo vai se resolver, e logo voltaremos a nossa humilde vida pacata (apesar de gostar da vida agitada do ultimos tempos), cara você tem dois manos, que podem te ajudar que são realmente feras, ai .... o s3c e o grande Xara Arlon, Po envie o nome dos dois a admin, primeiro verifique se algum deles quer, e deixe o barco rolar, amigo vamos sentir muita falta de você na moderação, nunca deixe de visitar esta comunidade, eu estou ausente por uns dias para resolver uns problemas pessoais, mas logo voltarei a postar direito. Tenho certeza que assim como eu você nunca fechará o coração para o forum que nos recebeu de braços abertos .... Um grande abraço do Amigo Rafael Marciano (Bolomaster) Véio muita sorte ai..... fui
  3. não eles não oferecem este tipo de serviço, pois eu preciso é bloquear este conteudo em alguns computadores so tipo nas maquinas que ficam na biblioteca eu estava usando o conteudo protegido, da IE, mas ele so abre os sites cadastrados, imagina quando um aluno for no google e pesquisar por amor.. o quanto não iria listar... mas se souberem de algo por favor me deem um toque abraços
  4. Salve galera to procurando um programa para bloquear o conteudo da internet, tipo bloquear sites pornos, de conteudo adulto, eu conheço o we-blocker mas ele não bloqueia no windows XP, ou melhor ele não funciona, não instala entre outros, se alguém souber me fale ... ok abraços
  5. bolomaster

    Iniciante

    se voce já tiver se cadastrado no iped. faça o cursinho de asp do iped, é muito bom para os iniciantes, vai ajudar você a ter uma grande noçao sobre o que é ACTIVE SERVER PAGES. Abraços e ate ++++
  6. bolomaster

    Ae

    Grande Guto Parabens, lembre-se de que você não esta um ano mais velho, mas sim um ano mais sabio.. Abraços e muitas felicidades.... PS.. Que historia é esse de comer "bolo", ninguém vai comer "bolo", isso é intriga da oposição, vamos comer churrasco..... é mais gostoso e deixem o "bolo" fora disto rsrs.. fui
  7. bolomaster

    Dot.net = Asp.net?

    dotNET é (.NET) e ASP.NET (se lê ASP dotNET) é que ponto(.) é dot em ingles... Só que dotNEt é uma tecnologia da Microsoft cujo ASP.NET faz parte, também fazem parte da dotNET . c#, VB.NET, ADO.NET, e assim vai, beleza......... Abraços
  8. oh este problemas esta se tornando muito comum no forum já. vou fazer uma pesquisa e ver o que eu acho e posto aqui abraços
  9. o legal seria converter a string que é digitada em texto tipo oh cria uma variavel chamada varstring varstring := FloatToString(Edit1.text) e transforma este numero digitado lá em texto na verdade nem precisa criar variavel nenhuma é so você criar assim Query1.parambyname('cpf').asstring := FloatToString(edit1.text); Simples não ?????? Abraços
  10. bolomaster

    Delphi E Mysql

    da uma lidinha no artigo do site planet Delphi veja se o ajuda blzx abraços
  11. bolomaster

    Links

    Olha so vou postar o link da sessao do portal da programação muito legal.. este link leva direto para a parte de delphi Link Portal Delphi Abraços
  12. Salve Galera. dando uma olhado no portal do programador achei este artigo muito interessante se alguém quiser da uma lida ta ai abraços
  13. bolomaster

    Firebird

    para exportar as tabelas do paradox para o firebird você vai ter de usar o batchMove e para executar a troca de dados você da um BatchMove1.Execute; beleza lembre que as duas tabelas nos dois banco tem de ser identicas.. ok fui
  14. bolomaster

    Duvida

    o que você não entendeu ?
  15. cara gostei bem feito as animaçoes, nota 8.. so q precisa variar... beleza
  16. bolomaster

    Duvida

    olha a ideia, cria um campo cliques e toda vez que alguém clicar.. ele adiciona o valor do campo clique + 1 e salva no banco ai tipo cria um a variavel que recebe o valor do campo assim oh ai ao inserir você faz assim pego a manha do negocio? Abraços
  17. cara você fez o setup e o programa, ou você não fez nada ?
  18. tipo eu entedi, mas pelo que você esta fazendo da forma que você esta querendo fazer talvez não, imagina só ele não pode excluir um arquivo que está em uso, no caso seria o 4º não poderia ser excluido, mas agora se você fizer um bat, fica mais simples porque ele finaliza a sua aplicação e exclui estes arquivos, e você não precisa excluir a pasta basta excluir os arquivos um exemplo vamos supor que logo apos a aplicaçao você tenha um botao finalizar ai no evento OnClose do form você coloca para executar o bat ai o que ele vai fazer entrar na pasta dos arquivos deletar os arquivos de instalaçao sair olha um exemplo de como poderia ficar seu .bat cd prog delete setup0*.exe echo ####################### echo # Finalizando instalação # echo ####################### Pause echo ####################### echo # Instalação Finalizada # echo ####################### echo Por Favor pressione uma tecla para sair Pause exit Abraços e espero ter ajudado
  19. bolomaster

    Galeria

    Tipo ideia !!! você cria um banco de dados.. com os caminhos das fotos, e neste banco cria um campo para a figura que você quer que represente o evento, ai você faz o seguinte tipo id linkevent foto1 foto2 foto3 ... foton ai faz uma pagina onde mostra as fotos chamando todos os campos ta ligado ficaria sim ai no inicio da pagina você coloca assim e pronto simples ideia não
  20. bolomaster

    Socorro

    Salve amigo, vou fazer uma pequena correçao no seu script e diz ai depois se deu certo abraços anote: Amigo depois fala se funcionou abraços
  21. bolomaster

    Delphi Ou Vb?

    Esta é uma pergunta historica, Tipo perguntar se delphi é melhor que vb, é o mesmo que perguntar se php é melhor que asp, sinceramente, eu programo em Delphi, Programo em VB programo em php, to meio bambo em asp, e vou te falar.. não existe uma linguagem de programação melhor, existe o melhor programador, o delphi é mais poderoso que o VB, mas se o programador não for bom, o seu sistema em delphi, não vale nada .. e o sistema do joaozinho em VB, vale muito, então faça o seguinte, estude as duas.. mas escolha a de sua preferencia.. pois o programador pode programar em 200 linguagens diferentes("que loucura"), mas ele tem que escolher a que melhor te satisfaz, existe uma onde ele é o especialista, eu já descobri a minha e você já sabe qual é a sua ? Se não .. estude.. veja quais as facilidades de aprender uma delas e depois volte aqui e me diga ok abraços
  22. se você usa o interbase, você vai usar as ferramentas do interbase mesmo, o que você conhece de sql ? tipo você pode criar stored procedure onde ela faça o trabalho de admin do banco ta ligado.. não entedi muito sua duvida, mas acho que é isso mesmo abraços qualquer coisa. entre no link http://www.delphi.eti.br e da uma pesquisadinha sobre interbase.. vai achar muita coisa sobre o assunto fui
  23. bolomaster

    Proteção

    existem varias formas entre elas você pode usar o numero de serie para o programa rodar.. tipo você pode criar uma funçao onde kda instalação seja uma sequencia diferente tipo cria um form de somente depois que este form for preenchido o programa se torna ativo, como uma especie de trava ai você pode criar uma funçao com alguns numeros,, tipo essa sequencia já foi então não aceite.. e assim vai se tiver alguma duvida de como vai criar .. posta ai.. eu to te passando so a logica.. se não conseguir te ajudamos com o codigo, mas primeiro tenta ai.. so mais uma coisa .. armazene as sequencias em variaveis e ai faz a comparaçao do valor digitado num edit com o valor da variavel fui
  24. da uma lidinha Access depois fala ai se deu certo abraços
×
×
  • Criar Novo...