Jump to content
Fórum Script Brasil

Leonardo Rocha

Membros
  • Posts

    10
  • Joined

  • Last visited

About Leonardo Rocha

Leonardo Rocha's Achievements

0

Reputation

  1. Amigos, É o seguinte tenho dois campos "Data de Registro" e "Data de Vencimento". Necessito que após informar a "Data de Registro", o sistema adiciona no campo "Data de Vencimento" 10 anos após o registro. Isso é possível? Se sim, por favor necessito muito dessa ajuda. Agradeço a ajuda de todos.! Att, Leonardo Rocha
  2. Olá amigo, muito obrigado pela ajuda! É o seguinte eu consegui aplicar o código conforme você informou, porém não executa o formulário de acordo com o item selecionado. Ou seja, não está trazendo os dados do registro selecionado no "radio". Veja como ficou o formulário ao qual eu aplico o código que você enviou, no caso o "PRODUTO_LISTA.ASP" abaixo: <script> function defineDestino(strURL, lngCodCliente) { window.location.href = strURL + "?cod_estabel=" + lngCodCliente; } </script> <% If strSearch <> "" Then strDBPath = Server.MapPath("dbvinhos.mdb") Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "SELECT * " _ & "FROM estabelecimento " _ & "WHERE Processo LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome like '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY nome;" Set rstSearch = cnnSearch.Execute(strSQL) %> <form method="post" action="produto_lista.asp"> <table border="0" cellpadding="4" cellspacing="1" width ="80%" align="center"> <tr> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Estabelecimento </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Pedido</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Credenciamento</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Produtos</font></STRONG></FONT></th> <div align="right"><input type="image" src="btverificarproduto.gif"</div> <br> </tr> <% Do While Not rstSearch.EOF if (cor = 1) then bg = "#d5ffd5" cor = 2 else bg = "#f2fff2" cor = 1 end if %> <tr> <td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome").Value %></font></td> <td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Pedido").Value %></font></td> <td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Credenciamento").Value %></font></td> <td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("situacao").Value %></font></td> <td bgcolor="<%=bg%>" align="center"><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>"></td> <td><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>" onclick="defineDestino('estab_cadastra.asp', this.value);"></td> <td><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>" onclick="defineDestino('produto_lista.asp', this.value);"></td> </tr> <% rstSearch.MoveNext Loop %> </table> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %> </div></td> </tr> </table> </form> E UM DOS FORMULÁRIOS QUE EU DESEJO ABRIR, NESTE CASO O FORMULÁRIO "PRODUTO_LISTA.ASP" <% On error resume Next Dim objConn, stringSQL, strConnection, codigo, estab codigo = Request.QueryString("radio") estab = Request.QueryString("nome") ' Conectando com o banco de dados dbvinhos.mdb Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("dbvinhos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" stringSQL = "SELECT * FROM Produto WHERE cod_estabel = "&codigo Set objRS = objConn.Execute(stringSQL) if err <> 0 Then%> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!</b><br><a href="java script:history.back(-1)">Volta</a></font></div> <%else%> <div align="left"> <strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Produtos registrados <%=estab%></font></strong></font> <div align="left"> <form method="get" action="produto_visualiza.asp"> Estabelecimento:<%=estab%> <table border="0" cellpadding="4" cellspacing="1" width ="100%"> <tr> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Nome do Produto </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Registro</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Credenciamento</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Selecionar</font></STRONG></FONT></th> <div align="right"><input type="image" src="btdetalhesproduto.gif" value=<"a href="alterar.asp"></div> <br> </tr> <% Do While Not objRS.EOF %> <tr> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Nome").Value %></font></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Registro").Value %></font></div></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Data_Credenciamento").Value %></font></div></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Situação").Value %></font></div></td> <td bgcolor="#f0fff0" align="center"><input type="radio" name="radio" value="<%=objRS(0)%>"> </td> </tr> <% objRS.MoveNext Loop %> </table> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"></b><br><a href="java script:history.back(-1)"><img src="retornar.gif" alt="Produtos" border="0" width="50" height="30"></a></font></div> </center> </div> </form> <%end if%>
  3. Veja só... Eu tenho uma tabela que se chama cliente... Fiz uma uma página que lista todos os clientes em ordem alfábetica... Tenho um item do tipo "rádio" que ao selecionar o cliente desejado clico em um botão e o sistema direciona para outra página que me mostra os dados do cliente completo. Porém nesta mesma listagem eu gostaria de ter outro "rádio" e clicar no botão para abrir os produtos pertencentes a este cliente. No caso na tabela produto eu já tenho o código que é igual ao código do cliente. Aguardo ajuda, muito obrigado"
  4. Amigo, desculpe-me pela demora.. é que não recebi nenhum e-mail a respeito. É o seguinte: <%=rstSearch("cod_estabel")%>? é o código do estabelecimento ao qual, também existe na tabela produto.
  5. Colegas, tenho um arquivo que lista o conteúdo com paginação. Porém não consigo paginar de acordo com o critério de pesquisa que vem de outro arquivo... Como realizar a paginação obedecendo o critério da consulta. Já procurei algo semelhante e alguns diziam que deve-se utilizar session... Por favor se alguém souber como utilizar, me mande um exemplo. Obrigado a todos!
  6. Prezados colegas, Necessito muito desta ajuda, pois já a procurei aqui no forum e não conseguir, se alguém tiver algo semelhante e souber onde por favor me indiquem... Agradeço a atenção de todos.
  7. Leonardo Rocha

    Paginação

    Olá amigos, Fiz algumas adaptações com um código de paginação e consulta de dados. Colocando só a paginação ficou excelente, mas quando coloco a consulta a paginação não traz a próxima página. Gostaria que alguém me ajudasse. Vou postar o código completo: <% Dim strURL, cnnSearch, rstSearch, strDBPath, strSQL, strSearch, intContador, Conn, rs 'Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %> <style> .TProdutos{border: 1px solid White;margin: 0px 0px 2px 0px;background: #ecffec; border-collapse:collapse; width: 80%; font: 9pt Verdana, Arial;} .TProdutos td {border: 0px solid #ccffcc;border-collapse:collapse;} .TProdutos td#Titulo {border: 0px;font: 9pt Verdana, Arial, Helvetica;height: 4px; background:#006600; color:#FFFFFF;} .TProdutos td#Dados {border: 0px;font: 7pt Verdana, Arial, Helvetica;height: 0px;background: #f9fff9; color: #003300;} </style> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> <br> <br> <tr> <td><strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Consulta de Estabelecimentos</font></strong></font> <form action="<%= strURL %>" method="get"> <div style="width:80%"> <b><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2" color="#006a00">Nome do Establecimento ou Nº do Processo:</font></b>&nbsp;&nbsp; <font color="Lime"><input type="text" name="search" value="<%= strSearch %>" size="55"></font><input type="image" src="btbuscar.gif" align="absmiddle" > <input type="image" src="btlimpar.gif" onclick="java script:document.form.reset()" align="absmiddle"> </div></form> <div align="center"> <form id="form" method="get" action="produto.asp"> <table border="0" cellpadding="0" cellspacing="0" width ="100%"> <tr> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Estabelecimento </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Pedido </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Credenciamento </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Produtos</font></STRONG></FONT></th> <div align="right"><input type="image" src="btverificarproduto.gif"</div> <br> </tr> <% 'Efetuando a conexão com a base de dados criada ----------------------- If strSearch <> "" Then Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dbvinhos.mdb") Conn.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set rs = Server.CreateObject("adodb.recordset") rs.PageSize = 10 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL = "SELECT * " _ & "FROM estabelecimento " _ & "WHERE Processo LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY nome;" rs.Open SQL,Conn,3,3 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF rs.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rs.PageCount then intpagina=rs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < rs.PageSize and not rs.EOF %> <tr> <td class="TProdutos">&nbsp;<% Response.Write(rs("nome")) %>&nbsp;</td> <td class="TProdutos">&nbsp;<% Response.Write(rs("Data_Pedido")) %>&nbsp;</td> <td class="TProdutos">&nbsp;<% Response.Write(rs("Data_Credenciamento")) %>&nbsp;</td> <td class="TProdutos">&nbsp;<% Response.Write(rs("situacao")) %>&nbsp;</td> <td class="TProdutos" align="center">&nbsp;<input type="radio" name="radio" value="<%=rs("cod_estabel")%>">&nbsp;</td> </tr> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF rs.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <%=strSearch%><a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,rs.PageCount) <> 0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %> <% END IF %>
  8. Jothas, Muito obrigado mesmo pela força. Más é o seguinte coloquei o código como você descreveu, porém ao executá-lo o sistema não sai da página atual. Porém, de qualquer forma existe também um problema... O meu "VALUE" tem uma condição, portanto não posso utilizar como você falou. Vou postar o código inteiro aqui, porém sem adicionar o código que você enviou, ok!!! Gostaria, se possível, que você analisasse e me desse uma dica de como implementar aí os dois input's, pois necessito muito disso. <CODEBOX> <% Dim strURL, cnnSearch, rstSearch, strDBPath, strSQL, strSearch, intContador 'Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff"> <br> <br> <tr> <td><strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Consulta de Estabelecimentos</font></strong></font> <form action="<%= strURL %>" method="get"> <div style="width:70%"> <b><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2" color="#006a00">Nome do Establecimento ou Nº do Processo:</font></b> <font color="Lime"><input type="text" name="search" value="<%= strSearch %>" size="55"></font><input type="image" src="btbuscar.gif" align="absmiddle" > <input type="image" src="btlimpar.gif" onclick="java script:document.form.reset()" align="absmiddle"> </div></form> <% If strSearch <> "" Then strDBPath = Server.MapPath("dbvinhos.mdb") Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "SELECT * " _ & "FROM estabelecimento " _ & "WHERE Processo LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY nome;" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %> <div align="left"> <form id="form" method="get" action="produto.asp"> <table border="0" cellpadding="4" cellspacing="1" width ="100%"> <tr> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Nome do Estabelecimento </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Pedido</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Credenciamento</font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th> <th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Produtos</font></STRONG></FONT></th> <div align="right"><input type="image" src="btverificarproduto.gif"</div> <br> </tr> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome").Value %></font></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Pedido").Value %></font></div></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Credenciamento").Value %></font></div></td> <td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("situacao").Value %></font></div></td> <td bgcolor="#f0fff0" align="center"><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>"></td> </tr> <% rstSearch.MoveNext Loop %> </table> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %> </div></td> </tr> </table> <p> </p> <\CODEBOX>
  9. Prezados colegas, Gostaria de fazer o seguinte: Tenho os seguintes dados: <form name="form" method="get" action="produto.asp"> LISTA DA TABELA <td bgcolor="#f0fff0" align="center"><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>"></td> <td bgcolor="#f0fff0" align="center"><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>"></td> Gostaria que fosse criado dois INPUT do tipo "RADIO", um para que abra o form "detalhes.asp" e outro para abrir o form "produto.asp". Porém não consigo, pois o sistema só entende o primeiro form informado no ACTION, o que fazer para resolver isso. Até +
  10. Amigos preciso da seguinte ajuda: Tenho uma tabela chamada FUNCIONARIOS e outra chamada DEPENDENTES. Na primera tenho o CODFUNC e na segunda também. Agora no formulário em PHP tenho o formulário criado com todos os campos da tabela FUNCIONARIOS e quero colocar um botão que ao clicá-lo o sistema irá abrir o formúlário para cadastrar os DEPENDENTES, mas lembrando que, ao abrir este formulário o CODFUNC da tabela FUNCIONARIOS tem que ser gravado no campo CODFUNC que pertence a tabela de DEPENDENTES. Torço para que tenham entendido pois estou necessitando desta ajuda o mais rápido possível. Aguardo!!!
×
×
  • Create New...