Ir para conteúdo
Fórum Script Brasil

evertonviana

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    86

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que evertonviana postou

  1. evertonviana
    Bem pessoal, A ideia é a seguinte: Em uma empresa que faz manutenção em equipamentos de informatica, é necessário fazer um acompanhamento das maquinas que já foram "verificadas". Então fiz um formulário para listar todas as maquinas ativas do cliente, listando os seguintes campos: Código do cliente Código do equipamento Esses campos são lidos do BD em MySQL e listados um em baixo do outro, junto dos campos para preenchimento do usuário: Campo Checkbox -> Para o técnico marcar se esse equipamento já passou pela verificação Campo Ocorrencia Agora o problema: Se eu selecionar 1 equipamento da lista(Selecionando o Checkbox), preencher as informações de ocorrência e salvar, sem problemas os dados são salvos no BD. Porem se eu marcar mais de um equipamento, recebo o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers erro '80040e21' O driver ODBC não oferece suporte para as propriedades solicitadas. /workstation/os/preventiva/salva_preventiva_nova.asp, linha 36 Código do formulário: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><HTML> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <% 'recupera codigo do cliente cod_cli = session("cod_cli") 'Conexão MYSQL - Cadastro de Inventario Set Conex = Server.CreateObject("ADODB.Connection") Conex.ConnectionString = "DSN=inv_cli" Conex.Open 'Conexão MYSQL - Cadastro de OS Set Conex2 = Server.CreateObject("ADODB.Connection") Conex2.ConnectionString = "DSN=os" Conex2.Open 'Abro conexão com a base e tabelas alvo sql = "select * from inventario where codigo = "&cod_cli&" and situacao_equip = 'Ativo'" Set mostra = Server.CreateObject("ADODB.Recordset") mostra.CursorLocation = 3 mostra.open sql, conex, 3,3 'Salva no Banco de Dados sql2 = "select * from reg_preventiva" Set salva = Server.CreateObject("ADODB.Recordset") salva.open sql2, conex2, 3,3 'Contamos quantos registros foram selecionados Inventario = mostra.Recordcount %> <style type="text/css"><!-- .header {font-family:Tahoma, sans-serif; font-size: 12px; COLOR:#2FFFFF; padding-left:10; padding-right:5; font-weight:900 } .text {font-family:Tahoma,sans-serif; font-size: 11px; color:#ffffff; padding-left:20; padding-right:10 } .text2 {font-family:Verdana,sans-serif; font-size: 10px; color:#ffffff; padding-left:20; padding-right:10 } .news {font-family:Arial, sans-serif; font-size: 9px; color:#ffffff; padding-left:10; padding-right:5; font-weight:900; } a:link{text-decoration: none; color:#004FDF} a:visited{text-decoration: none; color: #004FDF} a:hover{text-decoration: underline; color: #004FDF} a:active{text-decoration: none; color: #004FDF} li { list-style-image:url('images/pic.jpg') } --></style> </HEAD> <BODY BGCOLOR=#FFFFFF> <script language="JavaScript"> //Fun&ccedil;&atilde;o para abrir janelas pop-up function janela(popupfile,winheight,winwidth) { open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=no"); } </script> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="99%"><b><font face="Arial" color="#FFAA00">&nbsp;</font><font face="Arial" color="#0E2850">- Equipamentos Encontrados:</font><font face="Tahoma" size="2"> <%=inventario%><br> &nbsp;</font><font face="Arial" size="3" color="#0E2850">- Selecione os equipamentos que a rotina está sendo realizada</font><font face="Tahoma" size="2"><br> </font><font face="Arial" color="#0E2850">________________________________________________________________</font></b><form method="POST" action="salva_preventiva_nova.asp" name="Preventiva"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="108"> <tr> <%while not mostra.eof%> <td width="21%" height="20"> <font face="Tahoma" style="font-size: 9pt; font-weight: 700" color="#0E2850"> Preventiva efetuada? </font> <input type="checkbox" name="preventiva" value="<%=(mostra.Fields.Item("id").Value)%>"></td> <td width="17%" height="20"> <font face="Tahoma" style="font-size: 9pt; font-weight: 700" color="#0E2850"> Cod. Cliente:</font></td> <td width="29%" height="20"> <font face="Tahoma" style="font-size: 9pt; font-weight: 700" color="#0E2850"> Equipamento:</font></td> <td width="58%" height="20"> <font face="Tahoma" style="font-size: 9pt; font-weight: 700" color="#0E2850"> Ocorrência</font></td> </tr> <tr> <td width="21%" height="69">&nbsp;</td> <td width="17%" height="69" valign="top"> <input type="text" name="cod_cli<%=(mostra.Fields.Item("id").Value)%>" size="20" value="<%=(mostra.Fields.Item("codigo").Value)%>"></td> <td width="29%" height="69" valign="top"> <input type="text" name="equipamento<%=(mostra.Fields.Item("id").Value)%>" size="20" value="<%=(mostra.Fields.Item("equipamento").Value)%>"></td> <td width="58%" height="69"> <textarea rows="4" name="ocorrencia<%=(mostra.Fields.Item("id").Value)%>" cols="29"></textarea></td> </tr> <tr> <td width="92%" colspan="3" height="19"><b><font face="Arial" color="#0E2850">________________________________________________________________</font></b></td> </tr> <% salva.addnew salva("preventiva") = "N" salva("cod_cli") =mostra("codigo") salva("equipamento") = mostra("equipamento") salva("contador") = "1" salva.update %> <%mostra.movenext wend%> </table> <p align="left"> &nbsp;<b><font face="Arial" color="#FF0000">ATENÇÃO:</font></b> <b><font face="Arial" color="#0E2850" size="2">Após o envio do formulário não será possível edição das preventivas enviadas!</font></b></p> <p align="center"> <input type="submit" value="Enviar preventiva" name="B1"></p> </form> <p>&nbsp;</td> <td width="1%"> &nbsp;</td> </tr> </table> <!-- End ImageReady Slices --> </BODY> </HTML> Código da pagina que salva os dados: <% '--------------------------------------------------------------------------------------------- 'recupera codigo do cliente cod_cli = session("cod_cli") '--------------------------------------------------------------------------------------------- 'Conexão MYSQL - Cadastro de Inventario Set Conex = Server.CreateObject("ADODB.Connection") Conex.ConnectionString = "DSN=inv_cli" Conex.Open 'Conexão MYSQL - Cadastro de OS Set Conex2 = Server.CreateObject("ADODB.Connection") Conex2.ConnectionString = "DSN=os" Conex2.Open 'Conexão MYSQL - Cadastro de clientes Set Conex3 = Server.CreateObject("ADODB.Connection") Conex3.ConnectionString = "DSN=cad_cli" Conex3.Open '--------------------------------------------------------------------------------------------- 'Define o momento de abertura data_inclusao = date() hora_inclusao = time() 'Define Responsavel pela preventiva responsavel = session("login_work1") '--------------------------------------------------------------------------------------------- 'Recupera estado do Checkbox preventiva = request("preventiva" & id) IF preventiva <> "" THEN 'Abro conexão com a base e tabelas de inventario sql = "select ID from inventario where id = "&id Set mostra = Server.CreateObject("ADODB.Recordset") mostra.open sql, conex, 3,3 '--------------------------------------------------------------------------------------------- 'Rotina de repetição While Not mostra.EOF id = mostra("id") cod_cli = Request("cod_cli" & id) equipamento = Request("equipamento" & id) ocorrencia = request("ocorrencia" & id) '--------------------------------------------------------------------------------------------- 'Salva no Banco de Dados sql2 = "select * from reg_preventiva" Set salva = Server.CreateObject("ADODB.Recordset") salva.open sql2, conex2, 3,3 salva("preventiva") = "S" salva("cod_cli") = cod_cli salva("equipamento") = equipamento salva("ocorrencia") = ocorrencia salva("data") = data_inclusao salva("hora") = hora_inclusao salva("contador") = "1" salva("responsavel") = responsavel salva.update salva.close set salva = nothing mostra.MoveNext Wend END IF '--------------------------------------------------------------------------------------------- 'Salva o respectivo numero cotnador no cadastro do cliente, para consulta e atualização 'Salva contador sql3 = "select * from cad_cli_p1 where codigo = "&cod_cli&"" Set salva2 = Server.CreateObject("ADODB.Recordset") salva2.open sql3, conex3, 3,3 salva2("cont_preventivas") = "1" salva2.update salva2.close set salva2 = nothing '--------------------------------------------------------------------------------------------- 'Redireciona para uma pagina de agradecimento e confirmação response.Write("<html><head><title>"&titulo_site&"</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body><style type='text/css'><!--a:link{text-decoration: none; color:#004FDF}a:visited{text-decoration: none; color: #004FDF}a:hover{text-decoration: underline; color: #004FDF}a:active{text-decoration: none; color: #004FDF}--></style><table width='100%' height='100%'><tr><td><table align='center'><tr><td><div align='center'><font color='#000000' size='1' face='Verdana, Arial, Helvetica, sans-serif'>Manutenções preventivas selecionadas foram salvas!!<br><br><a href='#' onClick='javaScript:window.close()'>Fechar </a><BR><BR></font><br></div></td></tr></table></td></tr></table></body></html>") 'Finaliza conexão com Banco de Dados conex.close conex2.close conex3.close %>
  2. evertonviana
    Gente, achei que havia resolvido, mas percebi depois que se eu fizer uma seleção múltipla do Checkbox para salvar dois registros por exemplo, retorna o seguinte erro: O driver ODBC não oferece suporte para as propriedades solicitadas. os/preventiva/salva_preventiva_continuativa.asp, linha 26 Linha 26: 'Recupera estado do Checkbox preventiva = request("preventiva" & id) IF preventiva <> "" THEN 'Abro conexão com a base e tabelas de inventario sql = "select ID from reg_preventiva where ID = "&preventiva Set mostra = Server.CreateObject("ADODB.Recordset") mostra.open sql, conex, 3,3 -> LINHA 26 '-------------------------------------------------------------------------------- 'Rotina de repetição While Not mostra.EOF id = mostra("id") cod_cli = Request("cod_cli" & id)
  3. evertonviana
    Bem, conseguia a ideia para gerar a solução em outro fórum: http://forum.wmonline.com.br/topic/236123-update-com-varios-campos-e-varios-registros-asp/
  4. evertonviana
    ninguém?
  5. evertonviana
    Boa tarde, Utilizando ASP + MySQL Sei que muitos vão achar "Já perguntaram isso aqui", mas de todas as situações que identifiquei em outros fóruns, nenhuma das soluções se encaixou bem no meu problema, segue: Tenho o seguinte formulário: Gostaria de Salvar todos os registros desse formulário que estivessem com Checkbox marcado. PS.: Estou utilizando esse loop para exibir esses resultados do formulário: <%while not mostra.eof% <%mostra.movenext wend%> Como fazer?
  6. evertonviana
    ninguém:?
  7. evertonviana
    Gente, boa tarde! Situação: Tenho em uma pagina 2x campos: Valor de Custo e Margem, minha idéia é que quando o usuario preenche esses campos e clique no Hiperlink Gerar Valor. Abra uma janela que faça o calculo e depois retorne para pagina anterior com resultado em Valor de Venda. Duvida: Gostaria de saber como levar os 2x valores digitados nos campos Margem e Valor de Custo, atravez desse hiperlink para a segunda pagina que gerará o valor final. Lembrando que não estou enviando o formulario para gerar o resultado, quero que a operação seja feita durante o preenchimento do formulario.
  8. evertonviana
    Salve Sandro, Havia resolvido sexta feira passada, mais ou menos como você sugeriu só que mais automatizado. 1) Criei uma pagina com instruções de consulta, comparação com a data atual e disparo do e-mail 2) Criei uma tarefa no agendador de tarefas do servidor, onde todo dia as 1:00hs da manhã ele executa essa pagina criada no item 1 Com isso se houver registros na data comparada o disparo do e-mail acontece! Ficou perfeito! Se quiserem coloco o código aqui! Abraço
  9. evertonviana
    Bem, se você já tem um campo chamado Nucleo, onde ali serão informados se o aluno é, usando seu exemplo, Palmeiras ou Santos, basta inseir no seu select a instrução abaixo: Pagina de acesso ao Diretor do Nucleo Santos: SQL = "SELECT * FROM alunos WHERE nucleo = 'Santos'" Pagina de acesso ao Diretor do Nucleo Palmeiras: SQL = "SELECT * FROM alunos WHERE nucleo = 'Palmeiras'" Caso a duvida for outra retorne...
  10. evertonviana

    Exibir Noticias

    pergunta respondeu ao Fabio AVILA de evertonviana em ASP

    Não testei, mas acho que a resposta é parecida com essa: http://www.superasp.com.br/forum_respostas...,0&id=11419
  11. evertonviana
    Fabio, bom dia! Seguinte, primeiro as minhas duvidas: No ato do cadastro desses alunos, existia algum campo que categorizava esses alunos por "ANO". Caso sim, qual nome do campo no BD? Obs.: Quando for colar o código, tenta "capar" ele, pra não ficar tão dificil de entender, porque 90% do codigo que você botou abaixo é dispensavel, nesse caso(referente a sua duvida), o que importa mesmo é a parte de conexão e select... Abraço
  12. evertonviana
    Salve galera! Necessidade: Chamados de Help-desk são abertos, porem alguns assuntos problemas necessitam serem revistos dias depois, não podem ser solucionados na hora. Idéia: 1) Pensei em adicionar um campo de "Data do Lembrete" no help-desk, pra que servisse de parametro pra função que dispararia um e-mail quando a data chegasse. 2) A parte de disparar o e-mail eu sei fazer Duvida: Como fazer o sistema entender que a data do "evento" chegou e ele deve disparar o e-mail? Se não entenderem a necessidade, retornem que explico de outra maneira!
  13. evertonviana

    Inserindo Datas

    pergunta respondeu ao evertonviana de evertonviana em MySQL

    ninguém?
  14. evertonviana

    Inserindo Datas

    pergunta respondeu ao evertonviana de evertonviana em MySQL

    Fala Fabiano, primeiramente obrigado por ajudar! Agora me explique porque em todas as outras inserções, a data inserida da maneira 00/00/0000 funciona e somente nesse arquivo estou recebendo esse erro? Estou tendo muitos problemas pra entender essas "divergencias" do Mysql. Outra coisa que não entendo, o porque algumas vezes consigo inserir utilizando esse cabeçalho: 'Salva no Banco de Dados sql = "select * from atendimento" Set salva = Server.CreateObject("ADODB.Recordset") salva.open sql, conex, 3,3 salva.addnew salva("cod_cli") = codigo salva.update e em outros casos somente assim: sql = "Insert Into contratos (campo1, campo2) Values ('" & valor1 & "', '" & valor2 & "')" Conex.Execute(sql) Obrigado novamente!
  15. evertonviana
    Fala Kuroi! Pois é ontem no final do expediente, fiz esse teste, porem dessa vez o resultado foi outro(Não sei se pelo fato de ter mudado recentemente de servidor, pois agora estou operando em um IIS7). Recebi o seguinte erro: [MySQL][ODBC 5.1 Driver][mysqld-5.1.51-community]Incorrect date value: '19/01/2011' for column 'data_inicio' at row 1 E sinceramente começo a pensar: "Cara, não tem outro jeito vou ter que fazer um curso de MySql pra entender essas doideiras...", pois realmente é doideira isso pra mim, pois tenho sei lá, 100 arquivos que fazem esse procedimento de inserção na BD, todos então identicos a esse arquivo e não sei porque o valor '19/01/2011' esta incorreto... Ta brabo esse problema!
  16. evertonviana

    Inserindo Datas

    uma questão postou evertonviana MySQL

    Galera, Porque quando tento inserir uma data, recebo esse erro: Incorrect date value: '10/10/2011' for column 'data_inicio' at row 1 O Tipo de dados é DATE, uso o MySQL 5.1 Esse mesmo tipo de campo existe em outras tabelas e sempre salvei da mesma maneira, porem não esta rolando...
  17. evertonviana
    ninguém?
  18. evertonviana
    Bom dia! Galera, em uma pagina em ASP estou tetando salvar em um BD(MYSQL), alguns itens. Porem em dado momento do processo, recebo os eguinte erro: Erro de tempo de execução do Microsoft VBScript erro '800a01fb' Exceção: 'salva.Update' Achei que o problema fosse com o codigo ASP, mesmo já tendo-o verificado, então fui ao Forum de ASP debati com os melhores do mesmo e eles tambem não acharam erros no codigo(http://scriptbrasil.com.br/forum/index.php?showtopic=162001). O que me leva a duvidar do MYSQL, logo queria ajuda de vocês... Existe algum limite de itens a salvar simultaneamente em Mysql? Vejam a minha ultima resposta ao tópico que abri no forumd e ASP, onde achei uma informação importante referente ao MYSQL!(http://scriptbrasil.com.br/forum/index.php?showtopic=162001) Desde já agradeço! Vou colocar o Codigo abaixo para vocês verem quantos itens estão sendo salvos: 'Salva no Banco de Dados Set salva = Server.CreateObject("ADODB.Recordset") sql = "select * from contratos" salva.open sql, Conex, 3,3 salva.AddNew salva("cod_cli") = codigo salva("nome") = nome salva("tel1") = telefone1 salva("tel2") = telefone2 salva("tel3") = telefone3 salva("cnpj") = cnpj salva("endereco") = endereco salva("resp_contrato") = resp_contrato salva("email") = email salva("tipo_contrato") = tipo_contrato salva("data_inicio") = data_inicio salva("custo_equipamento") = custo_equipamento salva("qnt_equipamentos") = Equipamento salva("valor_inicial") = valor_inicial salva("encarregado") = encarregado salva("cod_encarregado") = cod_encarregado salva("lista_equipamentos") = Equipamentos_todos salva("objetivo") = objetivo salva("servicos") = servicos salva("cobertura") = cobertura salva("atendimento") = atendimento salva("horas") = horas salva("prazos") = prazos salva("comp_cobertos") = comp_cobertos salva("valor") = valor salva("programas") = programas salva("inventario") = inventario salva("gestao_ti") = gestao_ti salva("responsabilidades") = responsabilidades salva("foro") = foro salva("n_contrato") = n_contrato salva("status") = "Pendente" salva("operador") = operador salva.Update Esqueci de comentar, no forum de ASP alguns me disseram que o problema poderia ser o fato de estar utilizando o .addnwe e .update com BD Mysql, porem acho muito estranho, pois todas as outras partes do programa, que fazem as mesmas operações estão utilizando esse metodo de inserção sem problemas, somente nessa parte da aplicação estou com esse problema...
  19. evertonviana
    Galera, desculpe a demora... Hoje, pude retomar meu projeto e como na ultima postagem, fui tentando esmiuçar tanto o BD quanto a pagina em ASP e realmente não identifiquei problemas, que foram sugeridos pelo KUROI. Porem notei um ponto muito estranho, vejam o teste que fiz: Deletei a Tabela que estou tentando operar>Criei novamente e fui criando campo a campo e cada vez que criava um novo campo, fazia um novo teste de inserção, utilizando o mesmo codigo com o .addnew e .Update. Consegui ir bem até a linha salva("atendimento") = atendimento, porem após ela o erro novamente é apresentado. Pensei "Opa, achei o problema!", porem não foi assim que aconteceu, notei logo depois que seja qual for o campo após salva("cobertura") = cobertura, o erro acontece. O que me leva a seguinte duvida(na qual acho que talvez o tópico será mudado de Forum), Será que o MySQL tem um limite de operações como essa? O que acham?
  20. evertonviana
    É tentei o procedimento passado pelo Bareta, mas não rolou! Vou tentar identificar o que você falou acima, vlw pela ajuda...
  21. evertonviana
    Boa tarde, Amigo! Sim, o erro é somente esse. Tem um codigo de erro acima, mas tenho quase que 100% de certeza que não serviria de nada: Erro de tempo de execução do Microsoft VBScript erro '800a01fb' Exceção: 'salva.Update'
  22. evertonviana
    Fala bareta! Ok, posso tentar aqui, mas até mesmo para não aconter isso no futuro, porque do erro? O que me causa estranhesa, é o fato de todos os outros arquivos que fazem as mesmas operações em minha aplicação, estão exatamente dessa maneira, eu verifiquei minuciosamente cada parte do arquivo e não notei nada diferente... Vou testar e aviso, mas se puder me explciar o motivo, fico grato!
  23. evertonviana
    Bom dia! Galera, por favor analisem o codigo que colocarei abaixo e me digam onde existe algo de incorreto. Já comparei, revisei e não encontro nada que justifique o erro Exceção: 'salva.Update' na linha 82. <% '----------------------------------------------- 'Recupera sessions codigo = session("codigo") nome = session("nome") telefone1 = session("telefone1") telefone2 = session("telefone2") telefone3 = session("telefone3") cnpj = session("cnpj") endereco = session("endereco") resp_contrato = session("resp_contrato") email = session("email") tipo_contrato = session("tipo_contrato") data_inicio = session("data_inicio") custo_equipamento = session("custo_equipamento") Equipamento = session("Equipamento") valor_inicial = session("valor_inicial") encarregado = session("encarregado") cod_encarregado = session("cod_encarregado") Equipamentos_todos = session("Equipamentos_todos") objetivo = session("objetivo") servicos = session("servicos") cobertura = session("cobertura") atendimento = session("atendimento") horas = session("horas") prazos = session("prazos") comp_cobertos = session("comp_cobertos") valor = session("valor") programas = session("programas") inventario = session("inventario") gestao_ti = session("gestao_ti") responsabilidades = session("responsabilidades") foro = session("foro") n_contrato = session("n_contrato") operador = session("login_user") '----------------------------------------------- 'Conexão MYSQL - Cadastro de contratos Set Conex = Server.CreateObject("ADODB.Connection") Conex.ConnectionString = "DSN=contratos" Conex.Open 'Salva no Banco de Dados Set salva = Server.CreateObject("ADODB.Recordset") sql = "select * from contratos" salva.open sql, Conex, 3,3 salva.AddNew salva("cod_cli") = codigo salva("nome") = nome salva("tel1") = telefone1 salva("tel2") = telefone2 salva("tel3") = telefone3 salva("cnpj") = cnpj salva("endereco") = endereco salva("resp_contrato") = resp_contrato salva("email") = email salva("tipo_contrato") = tipo_contrato salva("data_inicio") = data_inicio salva("custo_equipamento") = custo_equipamento salva("qnt_equipamentos") = Equipamento salva("valor_inicial") = valor_inicial salva("encarregado") = encarregado salva("cod_encarregado") = cod_encarregado salva("lista_equipamentos") = Equipamentos_todos salva("objetivo") = objetivo salva("servicos") = servicos salva("cobertura") = cobertura salva("atendimento") = atendimento salva("horas") = horas salva("prazos") = prazos salva("comp_cobertos") = comp_cobertos salva("valor") = valor salva("programas") = programas salva("inventario") = inventario salva("gestao_ti") = gestao_ti salva("responsabilidades") = responsabilidades salva("foro") = foro salva("n_contrato") = n_contrato salva("status") = "Pendente" salva("operador") = operador salva.Update salva.close set salva = nothing '----------------------------------------------- 'Depois de salvar no BD, limpa a session que contem o valor por maquina, para limpar p/ o próximo cadastro session("custo_equipamento") = 0 '----------------------------------------------- 'Redireciona Response.Redirect"imprime_contrato_11101.asp" conex.close %>
  24. evertonviana
    É impressionante como eu busquei em foruns de MySQL pela internet e nehuma das soluções me ajudou com esse mesmo problema. Quando venho ao Forum de ASP, consigo a solução totalmente simplificada. Pra mim tb funcionnou a que esta abaixo: Conn.CursorLocation = 3 VLW!
  25. evertonviana
    Opa, alterei! Vlw!
×
×
  • Criar Novo...