Leonardo Rocha

Outubro 14, 2008

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

Agosto 19, 2008

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:

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)

%>

<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>

<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%>" 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%>

<strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Produtos registrados <%=estab%></font></strong></font>

Estabelecimento:<%=estab%>

<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>

<br>

</tr>

<%

Do While Not objRS.EOF

%>

<tr>

</tr>

<%

objRS.MoveNext

Loop

%>

</table>

</center>

</div>

</form>

<%end if%>

Agosto 18, 2008

Pelo que entendi de acordo com o codigo do cliente que esta contidono value radio irá re-direcionar pra página distintas.
No value do radio você t~em somente o códgo do cliente?
Qtos clientes poderão ser?
Uma sugestão é criar um cadastro, ou no proprio cadastro do cliente, o nome da página a ser carrada e jogar esta valor para o value.

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"

Agosto 18, 2008

Não entedi nadinha! :lol:
Mas sou meio burro masmo!
Vamos ver se fica mais claro.
Será montado quanto radio buttons?
Qual o contéúdo de <%=rstSearch("cod_estabel")%>?

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.

Agosto 18, 2008

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!

Agosto 18, 2008

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.

Agosto 14, 2008

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
%>

Agosto 13, 2008

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.

<%

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

end function

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<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">

<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" >

</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

%>

<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>

<br>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

</tr>

<%

rstSearch.MoveNext

Loop

%>

</table>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

%>

</div></td>

</tr>

</table>

<\CODEBOX>

Agosto 13, 2008

Prezados colegas,

Gostaria de fazer o seguinte:

Tenho os seguintes dados:

LISTA DA TABELA

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é +

Outubro 23, 2006

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!!!

Entrar

Leonardo Rocha

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Leonardo Rocha

Inserir data com 10 anos após o registro.

Dois SUBMIT's em um FORM

Dois SUBMIT's em um FORM

Dois SUBMIT's em um FORM

Listar o conteudo de uma paginação de acordo com o critério da consult

dois submit's em um form

Paginação

Dois SUBMIT's em um FORM

Dois SUBMIT's em um FORM

Relacionamento De Tabelas.

Navegação

Atividades