Ir para conteúdo
Fórum Script Brasil

Gilberto Jr

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    10

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Gilberto Jr

  1. Erro no codigo de paginação

    em ASP

    Postado

    Boa noite pessoal,

    Eu fiz o código de paginação, ele esta trazendo os dados corretamente mas quando clico no botão proximo ou anterior ele não muda os conteúdos que estão no banco,

    Se vocês poderem da uma olhada no código e agradeço.

    Segue abaixo o código.

    <%
'Abre a Conexão com o Banco
Dim caminho
Dim conexao
caminho = Server.MapPath("produtos.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

        'Seleciona todos os Produtos da Tabela
Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT * FROM TProdutos ORDER BY Produto_ID"
        rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

'Define o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
rsBuscaProdutos.PageSize = 10

'Cria as Validações
if rsBuscaProdutos.eof then
   Mensagem = "Nenhum Registro Encontrado"
   Response.End
else
   'Define 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"))>rsBuscaProdutos.PageCount then  
    intpagina = rsBuscaProdutos.PageCount
         else
    intpagina = Request.QueryString("pagina")
end if
      end if   
   end if   
        end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Teste Paginação</title>
<style>

.TProdutos{
border: 1px solid #666666;
margin: 2px 0px 2px 0px;
background: #FFFFFF;
border-collapse:collapse;
width: 800px;
}

.TProdutos td {
border: 0px solid #666666;
border-collapse:collapse;
}

.TProdutos td#Titulo {
border: 0px solid #666666;
font: 7pt Verdana, Arial, Helvetica;
height: 17px;
background: #063d97;
color:#FFFFFF;
}

.TProdutos td#Dados {
border: 1px solid #CCCCCC;
font: 7pt Verdana, Arial, Helvetica;
height: 18px;
background: #EAEFFF;
color: #666666;
}
</style>
</head>
<body>
<table border="0" class="TProdutos">
  <tr>
    <td width="181" id="Titulo">Produto ID</td>
    <td width="208" id="Titulo">Nome</td>
    <td width="201" id="Titulo">Tipo</td>
    <td width="190" id="Titulo">Categoria</td>
  </tr>
  <%
   'Inicia o Loop
    rsBuscaProdutos.AbsolutePage = intpagina
    intrec = 0
    While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof  
  %>
  <tr>
    <td id="Dados"><%=rsBuscaProdutos("Produto_ID")%></td>
    <td id="Dados"><%=rsBuscaProdutos("Produro_Nome")%></td>
    <td id="Dados"><%=rsBuscaProdutos("Protudo_Tipo")%></td>
    <td id="Dados"><%=rsBuscaProdutos("Produto_Categoria")%></td>
  </tr>
  <%
    rsBuscaProdutos.MoveNext
    intrec = intrec + 1
    if rsBuscaProdutos.eof then
       response.write " "
    end if   
    Wend  
  %>
  <tr>
    <td colspan="3"  id="Dados"></td>
    <td id="Dados">
    <%
    'Cria as Validações para a navegação "Anterior" e "Próximo"  
    if intpagina>1 then
    %>
    <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>
    <%
    end if
    if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then  
    %>
    <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a>  
    <%
    end if
    rsBuscaProdutos.close
    Set rsBuscaProdutos = Nothing
    %>
    </td>
  </tr>  
</table>
</body>
</html>

    Grato

  2. Convertendo campo tipo texto p/ tipo data

    em Access

    Postado

    Boa tarde galera,

    Eu estou com um problema e não sei como resolver, e conto com a ajuda de voces.

    Eu tenho um campo no meu banco de dados Acess com o nome DATA porem o mesmo esta como texto eu quero converter este campo para DATA/HORA no meu select que estou fazendo no asp.

    Isto é possivel?

    Desde já agradeço.

  6. (Resolvido) Select atraves do link

    em ASP

    Postado

    então não vejo problema, você passou o ID, requisitou na pagina, jogou no select.. ta tudo certo..

    agora só fazer o WHILE pra imprimir os resultados

    rsrsr, ai que esta, a pagina eu não estou usando o while os dados esta na pagina

    da uma olhada nesta pagina,

    http://www.descricaodorock.com.br/bandas_a.asp

    o nome AudioLuz e Mukeka di Rato estão digitado na pagina, se voce passar o mouse vce vai ver que o o ID é 2 mas a Banda AudioLuz tem o ID=1 e Mukeka di Rato tem o ID=2

  7. (Resolvido) Select atraves do link

    em ASP

    Postado

    No lugar do 

    <%=rs("NOME_DO_CAMPO")%></a>

    vai o nome da banda mesmo digitado na pagina asp este nome não vem do banco de dados, mas eu quero que quando esta banda for clicada ele da um select na tabela que tenha aquela banda e joga os dados na pagina viewband.asp.

    Atenciosamente.

  8. (Resolvido) Select atraves do link

    em ASP

    Postado

    Bom dia Galera,

    Estou com um problema em codigo aqui. É o seguinte, eu criei uma pagina em asp beleza e esta pagina é uma pagina de bandas de A a Z. eu coloquei uma img da banda é o nome da banda, e o nome da banda é um link

    <a href="viewband.asp>AudioLuz</a>
    E no meu banco de dados tem a tabela TB_BANDAS que tem os dados da banda AudioLuz que é o exemplo que eu estou usando. E tambem criei um pagina com o nome viewband.asp que quando eu clicar no link AudioLuz ele tem que abrir a pagina viewband com os dados da banda AudioLuz. Obs.: O nome "AudioLuz" na pagina bandas_a_z.asp não esta vindo do banco de dados. O meu codigo esta assim. na pagina que esta as bandas: 
    <a href="viewband.asp?id=<%=rs("ID")%>">AudioLuz</a>
<a href="viewband.asp?id=<%=rs("ID")%>">Mukeka di Rato</a>
    e na pagina que viewband.asp essim: 
    <!--#include file="config.asp" -->


<%
    call connect
        dim rs, id
    
        id = request.QueryString("id")
            set rs = con.execute("select * from TB_BANDAS_CAPIXABAS WHERE ID='"&id)
            
    
%>

    alguém tem ideia de como eu posso fazer este processo?

    Desde já agradeço

×
×
  • Criar Novo...