Ir para conteúdo
Fórum Script Brasil

Notax

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    501

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Notax postou

  1. Notax
    Fala Fercosmig... valeu aí... mas olha só no caso da questão dois... ou seja para proibir o uso de (.) aquele script ali elimina o uso de qualquer outra tecla que não seja números... mas no meu caso eu preciso permitir o uso da vírgula (,) daí como eu posso fazer?
  2. Notax
    E aí pessoal, beleza? Seguinte, duas dúvidas com relação aos dois textfield tais quais abaixo: <input name="txtdd" type="text" id="txtdd" size="2" maxlength="2"> <input name="txtmm" type="text" id="txtmm" size="2" maxlength="2"> 1) Como eu faço para que quando ao preencher o campo "txtdd" com dois caracteres ele passe o foco automaticamente para o campo "txtmm"? 2) Como eu faço para "proibir" o uso de . (ponto final) dentro destes textfield? Existiria alguma forma de quando o (.) ser digitado automaticamente já ser excluído? Queria evitar trabalhar com alerts nesse caso... Alguma sugestão? Pessoal, por hoje eram essas as minhas dúvidas! tomara que alguém possa me dar uma atenção aí... valeu a força. Notax
  3. Notax
    da uma olhadinha nesse link aí: http://www.geocities.com/cantinhodemais/ferramentas.htm é o terceiro tópico de cima pra baixo... abração!
  4. Notax

    Ta Dando Erro De Sintax

    pergunta respondeu ao Matheus19 de Notax em ASP

    Tenta assim amigão: Strcadastro = "DBQ=" & Server.MapPath("\bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
  5. Notax
    Pessoal, tenho um checkbox que está setado da seguinte forma: <input name="chcBoleto" type="checkbox" id="chcBoleto" value="ON" onclick="ExibeCampo(this.checked)"> Daí lá no asp eu preciso criar condicionais para ele... por exemplo: quando está marcado faço assim: if chcBoleto = "ON" then ... end if Agora o problema está quando o checkbox esta desmarcado... já tentei das formas que coloco abaixo mas nenhuma funcionou: if chcBoleto = "" then if chcBoleto = "OFF" then if chcBoleto = 0 then if chcBoleto = "0" then if chcBoleto = "false" then if chcBoleto = false then alguém pode me dizer qual a sintaxe certa? valeu a força
  6. Notax

    Formail

    uma questão respondeu Notax em ASP

    Amigão... to te passando um tuto que eu tenho aqui... acredito que com poucas alterações você conseguirá adaptar as suas necessidades, ok? Abração.
  7. Notax
    Fala Kuroi... Anota mais essa aí na minha conta! Anota aí tb Andreia... valeu a força pessoal... Entendi o meu erro e fiz assim: lá aonde verificava o login e senha eu criei a seguinte session: Session ("nomeusuario") = request.form("usuario") e daí o select da consulta ficou assim: usuario = Session("nomeusuario") strQuery = "SELECT * FROM login WHERE nome ='" & usuario & "'" valeu mais uma vez... abração
  8. Notax
    isso mesmo! central_escolhe_pra_alterar.asp, conforme o script abaixo: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection, usuario Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("usuarios.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'usuario = Trim(LCase(Request.Form("usuario"))) usuario = Session("login") 'usuario = request.form("usuario") strQuery = "SELECT * FROM login WHERE nome ='" & usuario & "' " Set ObjRs = objConn.Execute(strQuery) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>Tela de Consulta - ASPBRASIL</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="1" align="center"> <tr> <td width="448" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center"> <tr bgcolor="ffffff"> <td colspan="3"> </td> </tr> <tr> <td colspan="3"> <table width="736" border="0" cellspacing="0" cellpadding="0" height="18"> <tr> <td align="center" height="1" width="734"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br> Confirme seu usu&aacute;rio!</b></font></td> </tr> </table> <form method="GET" action="central_form_altera.asp"> <table width="736" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table border="0" width="100%" height="63" cellpadding="2" align="center"> <tr bgcolor="#0099FF"> <td width="41" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">N&ordm;:</font></b> </font></td> <td width="289" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Login:</font></b> </font></td> <td colspan="2" height="2" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b> </font></td> <td width="66" height="2" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Alterar"> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FF9900"> <td width="41" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("autonum")%> </font> </b></font></div></td> <td width="289" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("nome")%> </font> </b></font></div></td> <td colspan="2" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("nomecompleto")%> </font></b></font></div></td> <td width="66" height="2" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="radio" name="radio" value="<%=objRS(0)%>"> </font> </b></font></div></td> </tr> <% 'Move para o próximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </div> </body> </html>
  9. Notax
    Fala Kuroi... beleza? Não... ele redireciona para a consulta, mas não mostra nenhum resultado... e precisaria mostrar apenas como resultado a linha da tab onde aparece o nome do usuario e senha digitados anteriormente... Nenhuma mensagem de erro... nada nada!
  10. Notax
    Oi minha amiga... valeu a força, entendi sim, mas já havia tentado dessa forma, e por alguma outra razão não está funcionando! :-( o que acontece é o seguinte: primeiro passo: o usuario digita seu login e senha em campos conforme o ex. abaixo: <input type="text" name="usuario"> <input type="text" name="senha"> segundo passo: estas infs são verificadas por um script onde faço os referidos "request.form" para saber se o user e senha são corretos; terceiro passo: se o login e senha são corretos vai para outro script, o da consulta, onde não estou conseguindo resgatar estes dados (login e senha)... podes ver ali no script que coloquei que já tinha tentado assim: usuario = request.form ("usuario") mas não rolou! Sei lá... será que tu terias uma outra idéia? Será que eu posso estar errando em alguma outra coisa? porque tipo, lá nos input não tem nada errado, porque se tivesse não seria possivel fazer a verificação do usuario e senha em primeiro plano... será que não é porque ta passando por esse script intermediario de verificação antes? valeu mais uma vez pela atenção. Brigadaço! Abração
  11. Notax
    Oi pessoal, estou aqui pra mais esta dúvida... tenho esse script de verificação de senha e nome de usuario, que vem de um form de dois textfields denominados: usuario e senha. A partir daí queria fazer uma consulta onde apresentasse como resultado somente o usuario digitado no primeiro form... mas já tentei de tudo e não rolou... olha só: esse é o script da verificação do usuario e senha digitado no form anterior: <!--#include file="conexao_central.asp"--> <% Dim usuario, senha usuario = Trim(LCase(Request.Form("usuario"))) senha = Trim(LCase(Request.Form("senha"))) if len(usuario) = 0 then response.redirect "logar.asp?erro=1" end if if len(senha) = 0 then response.redirect "logar.asp?erro=2" end if Call AbrirDB sql = "SELECT * FROM login WHERE nome='" & usuario & "'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,ConnDB,3,3 if not RS.EOF then if RS("senha") <> senha then response.redirect "logar.asp?erro=4" else Session("login") = True response.redirect "central_escolhe_pra_alterar.asp" end if else response.redirect "logar.asp?erro=3" end if RS.close Set RS = Nothing Call FecharDB %> e aqui a parte da consulta onde acredito estar o erro está assim: 'usuario = Trim(LCase(Request.Form("usuario"))) 'usuario = request.form ("usuario") ' tentei desses jeitos acima, mas tb não funcionaram... usuario = Session("login") strQuery = "SELECT * FROM login WHERE nome ='" & usuario & "'" Set ObjRs = objConn.Execute(strQuery) algúem sabe me dizer onde errei? desculpem qualquer. coisa... forte abraço e muito obrigado pela atenção!
  12. Notax
    Acho que isso deve ajudar! http://scriptbrasil.com.br/forum/index.php?showtopic=108360 Abração
  13. Notax

    Topicos Exclusivos

    pergunta respondeu ao bareta de Notax em ASP

    Fala Bareta, beleza? Cara me diz um troço... to atras de Tutoriais ou preferencialmente códigos comentados (que é a melhor forma se aprender, na minha opinião) sobre três assuntos específicos: 1) Nível de Usuário; 2) Código de barras; 3) Controle de estoque; Lógicamente já achei algumas coisas pela net... Mas scripts e tutoriais nunca são demais, certo? Se tiver alguma coisa por aí e puder postar agradeço! Forte abraço
  14. Notax
    Pois é che... quando eu tava com um probleminha parecido com esse usei uma função tipo essa: <% function inclui(arquivo) arquivo= request.serverVariaveis("APPL_PHYSICAL_PATH") & arquivo set confile = createObject("scripting.filesystemobject") set fich = confile.openTextFile(arquivo) while not fich.atEndOfStream lineactual = fich.readLine response.write(lineactual) wend end function %> não sei se te ajudei em alguma coisa... todo caso, tenho aqui o link da página que usei pra resolver aqui o meu caso... talvés te ajude mais do que eu! rsssssssssssss Link sobre Include forte abraço
  15. Notax
    uma perguntinha meio cretina, mas tipo, não custa nada perguntar... não tem aí no seu código, antes dessa parte que postou, um: on error resume next, que possa ser desabilitado temporariamente pra ver se aparece alguma mensagem de erro? forte abraço
  16. Notax

    Data De Expiração

    pergunta respondeu ao Gustavo Moraes de Notax em ASP

    se você usar data3 = DateAdd("m",2,data2) por ex... e o mês for 11 o ano vai virar automaticamente... não??? no caso da sua dúvida então... acho que seria alguma coisa parecida com isso: datainicial = Request.Form("nome do campo") dataexpira = DateAdd("m",2,datainicial) strQuery = "INSERT INTO a_pagar (campodatainicial, campodataexpira) VALUES ('"&daatainicial&"','"&dataexpira&"')" Set ObjRs = objConn.Execute(strQuery) era isso que você queria? qualquer. coisa posta ai! forte abraço
  17. Notax

    Duvida Com Data

    pergunta respondeu ao Gustavo Moraes de Notax em ASP

    Mas amigão... na função você ta pedindo pra aumentar o dia não? olha só: data3 = DateAdd("d",60,data2) tenta assim: data3 = DateAdd("m",2,data2) testa aí e vê se ficou do jeito q você queria? não ficou? então explica um pouquinho melhor qual é o seu objetivo com esta função... o que você quer fazer com ela? qualquer. coisa posta aí denovo! forte abraço
  18. Notax
    Pô amigão... valeu aí! brigadão mesmo forte abraço!
  19. Notax
    Fala amigão! Bha che! agora sim! Consegui chegar a algum lugar... graças a sua ajuda! ficou quase tudo funcionando... só ta faltando um detalhe que é inverter a data! o que acontece é que agora está deletando e incluindo legal... só que quando inclui, inclui com a data invertida! tipo mm/dd/yyyy daí eu tentei com sessions assim... mas não rolou! 'loop para inserir dados atraves do id For i=0 to ubound(array_id) Session.LCID=1033 sql = "Select * From a_pagar Where a_pagar.codigo = " & Trim(array_id(i)) Set objRS = objConn.Execute(sql) Session.LCID=1046 sql = "Insert Into lcaixa (data, historico, tipo, saidas) Values ('"& objRS("data") &"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("valor") &"')" objConn.Execute(sql) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next daí eu pensei em usar uma função cdate alí no objRS("data") e fiz assim: 'loop para inserir dados atraves do id For i=0 to ubound(array_id) Session.LCID=1033 sql = "Select * From a_pagar Where a_pagar.codigo = " & Trim(array_id(i)) Set objRS = objConn.Execute(sql) Session.LCID=1046 objRS("data") = Cdate(month (objRS("data")) &"/"& day (objRS("data")) &"/"& year (objRS("data"))) sql = "Insert Into lcaixa (data, historico, tipo, saidas) Values ('"& objRS("data") &"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("valor") &"')" objConn.Execute(sql) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next neste último caso apareceu a seguinte mensagem de erro: ADODB.Recordset error '800a0cb3' Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype. /padrão/action_efetuar_pagto.asp, line 24 que vem a ser: objRS("data") = Cdate(month (objRS("data")) &"/"& day (objRS("data")) &"/"& year (objRS("data"))) como é que eu posso sair dessa? mas pô... super obrigado até agora... já ajudou pra caramba... pelo menos já está deletando e inserindo... se acertar a data agora fica perfeito! se puder dar mais alguma colaboração agradeço... vou tentando por aqui... e se conseguir resolver posto na sequencia! um forte abraço! e mais uma vez muito obrigado! EDITADO Ae Kuroi... Consegui resolver a questão da data... fiz assim: txtData = objRS("data") txtData = Cdate(month(txtData) &"/"& day (txtData) &"/"& year (txtData)) sql = "Insert Into lcaixa (data, historico, tipo, saidas) Values ('"&txtData&"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("valor") &"')" Amigão... valeu mais uma vez! muito obrigado por não desistir de mim, nestes dois tópicos "casca" que tu me ajudou... desculpa tb pela encheção de saco e por qualquer. inconveniente... um forte abraço
  20. Notax
    Bah rafaeltejeda... libera pra galera aí o script! Num da não? Muita folga né? mas enfim, o não eu já tenho... to indo atrás do sim! como proposta não ofende! não custa nada tentar né? rssssssssss
  21. Notax

    Duvida Com Data

    pergunta respondeu ao Gustavo Moraes de Notax em ASP

    Posta o código aí como ficou depois das alterações! valeu
  22. Notax
    Amigão... pô... esse troço não ta saindo da minha cabeça... olha só o erro que começou a dar agora é de "type mismach" na linha do insert: strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('"& objRS("data") &"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("saidas") &"')" e eu acho que é por que na tab a_pagar o campo valor tem nome de VALOR e na tab lcaixa o campo valor tem nome de SAIDAS... pode ser isso? sabes como eu poderia resolver? eu já tentei igualar valor=saidas, mas não rolou! Agora... eu ia lhe pedir pra me explicar uma coisa... porque eu tava achando que isso deveria ser muito mas muito mais simples do que está sendo... veja bem: esse é o código exclusivo de exclusão da tab a_pagar que funciona perfeitamente... saca só: <% Option Explicit Response.Expires = 0 Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id id = Request.QueryString("checkbox") 'Caso ocorra algum erro os precessos não são interrompidos 'e é passado para a próxima linha de comando On error Resume Next ' Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Deletando registro da tabela contato onde esta a id if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " 'campo texto, então" & Trim(array_id(i)) & " OR " 'caso numerico '" & Trim(array_id(i)) & "' OR " Next sql_id = left(sql_id,(len(sql_id)-4)) stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" objConn.Execute(stringSQL) objConn.close Set objConn = Nothing if err = 0 Then response.redirect "efetuar_pagto_sucesso.asp" end if else End if %> Então pô... eu parei pra pensar... será que é mesmo necessário criar uma outra array só para inclusão? porque... os registros que quero incluir na tab lcaixa são exatamente os mesmos que quero excluir da tab a_pagar... a única coisa é que preciso incluir antes de excluir, certo? ;-) Daí recapitulando pensei, minha única dificuldade é que pelo que estudei, não posso fazer o insert como está o delete abaixo: stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" porque dá erro de sintaxe se eu tentar assim: stringSQL = "INSERT INTO lcaixa where "&sql_id&" (data,historico,tipo,valor) VALUES ('"&data&"','"&historico&"','"&tipo&"','"&saidas&"')" Então... pensei... vou meter o insert dentro dum loop e resolvo o problema... mas até agora estava tentando criar um loop novo, com nova array e etc... minha pergunta é: será que não teria como e não seria muito mais fácil enfiar o insert dentro do loop do delete! e usar um loop só pra duas coisas? afinal são os mesmo registros! o que acha? não facilitaria? o problema é, como fazer? rsssssssssssss valeu a força... forte abraço!
  23. Notax
    entendi o erro... de qualquer forma o testei denovo e o erro coincidiu com esse abaixo... que ocorreu quando tentei ainda utilizar duas arrays... que na verdade são basicamente a mesma coisa, só com nomes diferentes! o erro que deu foi esse aqui: Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'left' /padrão/action_efetuar_pagto.asp, line 37 que vem a ser: sql_idi = left(sql_idi,(len(sql_idi)-4)) o script agora ta assim: <% Option Explicit Response.Expires = 0 Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id, strQuery, saidas, valor, objRs, data, historico, tipo, array_idi, x, sql_idi, idi Session.LCID=1033 'data = Request.querystring ("txtData") 'data = Cdate(day (data) &"/"& month (data) &"/"& year (data)) 'historico = request.querystring ("txtHistorico") 'tipo = request.querystring ("txtTipo") 'saidas = request.querystring ("txtValor") id = Request.QueryString("checkbox") 'idi = Request.QueryString("checkbox") 'On error Resume Next Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set objRs = Server.CreateObject("ADODB.Connection") objRs.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "Select * From NOME_DA_SUA_TABELA WHere NOME_DO_SEU_CAMPO_ID = " & array_idi(x) Set objRS = objConn.Execute(strQuery) strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('"& objRS("data") &"','"& objRS("historico") &"','"& objRS("tipo") &"','"& objRS("saidas") &"')" sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objConn.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046 stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" objConn.Execute(stringSQL) objConn.close Set objConn = Nothing objRs.close Set objRs = Nothing if err = 0 Then response.redirect "efetuar_pagto_sucesso.asp" end if else End if End if%>
  24. Notax
    rssssssss... putz que coincidencia... estou aqui na batalha e vinha pensando a mesma coisa! olha só como to tentando agora aí embaixo... to indo pela mesma linha de raciocinio... e mais... porque eu então não posso usar a mesma array do delete? afinal vem tudo do mesmo lugar, não? mas ta dando esse erro aqui: Microsoft VBScript compilation error '800a0401' Expected end of statement /padrão/action_efetuar_pagto.asp, line 25 strQuery = "INSERT INTO lcaixa " & array_id & " VALUES ('" & Request.Form("data" & i + 1) & "','" & Request.Form("historico" & i + 1) & "','" & Request.Form("tipo" & i + 1) & "','" & Request.Form("valor" & i + 1) & "')"sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " o erro aponta pra essa parte especifica: )"sql_id = sql_id o codigo ta assim... o que acha? parte da escolha: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf Dim strConnection ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "SELECT * FROM a_pagar" Set ObjRs = objConn.Execute(ComandoSQL) Session.LCID=1046 %> <html> <head> <title>SJ Finance - à Pagar - exclui</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Contas &agrave; <font color="#FF0000">Pagar</font> - Efetuar Pagto.</strong></em></font></p> <table width="947" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td width="947" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="958"> <tr> <td> <form method="GET" action="action_efetuar_pagto.asp"> <table width="736" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table border="0" width="952" height="65" cellpadding="2"> <tr bgcolor="#0099FF"> <td width="96" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">DATA</font></b></font></td> <td colspan="2" height="1" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">HIST&Oacute;RICO</font></b> </font></td> <td width="302" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">TIPO</font></b></font></td> <td width="124" height="1" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">VALOR</font></b> </font></td> <td width="67" height="1" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Excluir"> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FF9900"> <td width="96" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("data")%> </font> </b></font></div></td> <td colspan="2" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("historico")%> </font></b></font></div></td> <td width="302" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("tipo")%></a> </font></b></font></div></td> <td width="124" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write formatnumber(objRS("valor"),2) %> </font></b></font></div></td> <td width="67" height="1" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="checkbox" name="checkbox" value="<%=objRS(0)%>"> </font> </b></font></div></td> </tr> <% 'Movendo para o proximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table></td> </tr> </table> </form></td> </tr> </table> </td> </tr> </table> </div> </body> </html> delete e insert: <% Option Explicit Response.Expires = 0 Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id, strQuery, saidas, valor, objRs, data, historico, tipo, array_idi, x, sql_idi, idi Session.LCID=1033 'data = Request.querystring ("txtData") 'data = Cdate(day (data) &"/"& month (data) &"/"& year (data)) 'historico = request.querystring ("txtHistorico") 'tipo = request.querystring ("txtTipo") 'saidas = request.querystring ("txtValor") id = Request.QueryString("checkbox") 'idi = Request.QueryString("checkbox") 'On error Resume Next Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set objRs = Server.CreateObject("ADODB.Connection") objRs.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " strQuery = "INSERT INTO lcaixa " & array_id & " VALUES ('" & Request.Form("data" & i + 1) & "','" & Request.Form("historico" & i + 1) & "','" & Request.Form("tipo" & i + 1) & "','" & Request.Form("valor" & i + 1) & "')"sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) 'if err = 0 and id <> "" then 'array_idi = split(idi,",") 'For x=0 to ubound(array_idi) 'strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('" & Request.Form("txtData" & x + 1) & "','" & Request.Form("txtHistorico" & x + 1) & "','" & Request.Form("txtTipo" & x + 1) & "','" & Request.Form("txtValor" & x + 1) & "')"sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " ' objRS.MoveNext 'objRs.Execute(strQuery) 'next 'sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046 stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" objConn.Execute(stringSQL) objConn.close Set objConn = Nothing objRs.close Set objRs = Nothing if err = 0 Then response.redirect "efetuar_pagto_sucesso.asp" end if else End if End if%>
  25. Notax
    Puxa... eu entendi integralmente tudo o que quiseste dizer... mas não é por vagabundagem... mas eu não consegui colocar na pratica... Agora eu entendi por exemplo a questão dos campo hidden, do porque só estava icluindo um... mas minha dificuldade está em implantar sua sugestão no meu script... porque ela já tem uma lógica parecida, e daí quando eu incluo essa fica tipo "bagunçado" e eu não to sabendo organizar as ideiais... deixar a casa em ordem... implantar a sua ideia dentro da já existente... eu vou postar os dois codigos completos abaixo... e tenho certeza que ira entender o que eu quiz dizer... é que nesse código já estou usando o While Not objRS.EOF e o movefirst objRS e daí por causa disso o form de escolha ficou todo alterado! já com relação a essa parte aqui: "já não sei direito como funciona seu codigo?? essa variavel idi é o q?? o ubound do array_idi vai trazer o numero de registros q você tem q incluir?? se for, você poderia fazer o insert mais o menos assim:" isso mesmo... o ubound é pra trazer o numero de registros a serem incluidos... e o idi são os digamos "chckboxes" marcados... ela está assim: idi = Request.QueryString("checkbox")... Bom... fico chateado de não ter conseguido aproveitar as tuas valiosas sujestões ainda devido a minha grande falta de conhecimento... mas to lutando pra adquiri-lo de forma mais rápida... estudando cada vez mais! Estou muito grato por todo sua atenção e dedicação... vamos aos códigos: daqui vem os dados a serem deletados / incluidos <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, ComandoSQL, Conexao, objrs2, strsql2, valor_resultado, ddi, mmi, aai, datai, ddf, mmf, aaf, dataf Dim strConnection ddi = request.form ("txtddi") mmi = request.form ("txtmmi") aai = request.form ("txtaai") datai = (ddi &"/"& mmi &"/"& aai) datai = Cdate(day (datai) &"/"& month (datai) &"/"& year (datai)) ddf = request.form ("txtddf") mmf = request.form ("txtmmf") aaf = request.form ("txtaaf") dataf = (ddf &"/"& mmf &"/"& aaf) dataf = Cdate(day (dataf) &"/"& month (dataf) &"/"& year (dataf)) Session.LCID=1033 ComandoSQL = "SELECT * FROM a_pagar WHERE DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "SELECT * FROM a_pagar" Set ObjRs = objConn.Execute(ComandoSQL) Session.LCID=1046 %> <html> <head> <title>SJ Finance - à Pagar - exclui</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Contas à <font color="#FF0000">Pagar</font> - Efetuar Pagto.</strong></em></font></p> <table width="947" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td width="947" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="958"> <tr> <td> <form method="GET" action="action_efetuar_pagto.asp"> <%Response.Write("<input type='hidden' name='txtData' VALUE='" & objRS("data") & "' />")%> <%Response.Write("<input type='hidden' name='txtHistorico' VALUE='" & objRS("historico") & "' />")%> <%Response.Write("<input type='hidden' name='txtTipo' VALUE='" & objRS("tipo") & "' />")%> <%Response.Write("<input type='hidden' name='txtValor' VALUE='" & objRS("valor") & "' />")%> <table width="736" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table border="0" width="952" height="65" cellpadding="2"> <tr bgcolor="#0099FF"> <td width="96" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">DATA</font></b></font></td> <td colspan="2" height="1" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">HISTÓRICO</font></b> </font></td> <td width="302" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">TIPO</font></b></font></td> <td width="124" height="1" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">VALOR</font></b> </font></td> <td width="67" height="1" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Excluir"> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#FF9900"> <td width="96" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("data")%> </font> </b></font></div></td> <td colspan="2" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("historico")%> </font></b></font></div></td> <td width="302" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("tipo")%></a> </font></b></font></div></td> <td width="124" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write formatnumber(objRS("valor"),2) %> </font></b></font></div></td> <td width="67" height="1" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="checkbox" name="checkbox" value="<%=objRS(0)%>"> </font> </b></font></div></td> </tr> <% 'Movendo para o proximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table></td> </tr> </table> </form></td> </tr> </table> </td> </tr> </table> </div> </body> </html> aqui é onde eles são de fato deletados de uma tab e incluidos em outra: <% Option Explicit Response.Expires = 0 Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id, strQuery, saidas, valor, objRs, data, historico, tipo, array_idi, x, sql_idi, idi Session.LCID=1033 data = Request.querystring ("txtData") data = Cdate(day (data) &"/"& month (data) &"/"& year (data)) historico = request.querystring ("txtHistorico") tipo = request.querystring ("txtTipo") saidas = request.querystring ("txtValor") id = Request.QueryString("checkbox") idi = Request.QueryString("checkbox") 'On error Resume Next Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set objRs = Server.CreateObject("ADODB.Connection") objRs.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "a_pagar.codigo = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) if err = 0 and id <> "" then array_idi = split(idi,",") For x=0 to ubound(array_idi) strQuery = "INSERT INTO lcaixa " & array_idi & " VALUES ('" & Request.Form("txtData" & x + 1) & "','" & Request.Form("txtHistorico" & x + 1) & "','" & Request.Form("txtTipo" & x + 1) & "','" & Request.Form("txtValor" & x + 1) & "')"sql_idi = sql_idi & "a_pagar.codigo = " & Trim(array_idi(x)) & " OR " objRS.MoveNext objRs.Execute(strQuery) next sql_idi = left(sql_idi,(len(sql_idi)-4)) Session.LCID=1046 stringSQL = "DELETE * FROM a_pagar WHERE "&sql_id&"" objConn.Execute(stringSQL) objConn.close Set objConn = Nothing objRs.close Set objRs = Nothing if err = 0 Then response.redirect "efetuar_pagto_sucesso.asp" end if else End if End if%> só lembrar que o delete ta funcionando legal... o problema mesmo tá no insert! valeu a força! um forte abraço...
×
×
  • Criar Novo...