Resolvi estudar um pouco de getrows e minha duvida é a seguinte... Peguei o codigo q ta no tópico de funcoes aq forum e resolvi tentar fazer uma paginaçao com o banco de dados de um site de imobiliaria q eu to fazerndo aq.... Entaum a paginaçao deu certinho... porem so foi printado na pagina a minha segunda coluna do banco de dados...
E eu quero printar na tela o banco de dados todo... o que pode ta ocorrendo???
Como já disse o código é o mesmo do tópico de funcoes aq, so muda o nome dos campos...
Código:
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Dim Dbq6
Dbq6 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/database.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
Conexao.Open Dbq6
%>
<%
pagina = request("pagina")
if pagina = "" then
pagina = 1
else
pagina = cint(pagina)
end if
SQL="SELECT * FROM imoveis ORDER by id DESC"
SET RS = Server.CreateObject("Adodb.recordset")
RS.Open SQL,Conexao,3,3
if not rs.eof then
imoveis = rs.getrows()
end if
rs.close
set rs = nothing
total = ubound(imoveis,2)
registros = 10
paginas = total / 10
if cint(paginas) * registros < total then
paginas = cint(paginas) + 1
end if
if pagina = 1 then
inicio = 0
else
inicio = cint(registros) * (pagina) - 10
end if
fim = cint(inicio) + 9
if cint(fim) > cint(total) then
fim = cint(total)
end if
%>
Mostrando os dados:
<%
FOR I=inicio TO fim
response.write imoveis(1,i) & "<br>"
next
%>
Queria mostrar todos os registros... deem uma mao ae glr
Pergunta
sergiotp
E ae glr... tudo certo? Espero q sim...
Resolvi estudar um pouco de getrows e minha duvida é a seguinte... Peguei o codigo q ta no tópico de funcoes aq forum e resolvi tentar fazer uma paginaçao com o banco de dados de um site de imobiliaria q eu to fazerndo aq.... Entaum a paginaçao deu certinho... porem so foi printado na pagina a minha segunda coluna do banco de dados...
E eu quero printar na tela o banco de dados todo... o que pode ta ocorrendo???
Como já disse o código é o mesmo do tópico de funcoes aq, so muda o nome dos campos...
Código:
<% Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq6 Dbq6 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/database.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq6 %> <% pagina = request("pagina") if pagina = "" then pagina = 1 else pagina = cint(pagina) end if SQL="SELECT * FROM imoveis ORDER by id DESC" SET RS = Server.CreateObject("Adodb.recordset") RS.Open SQL,Conexao,3,3 if not rs.eof then imoveis = rs.getrows() end if rs.close set rs = nothing total = ubound(imoveis,2) registros = 10 paginas = total / 10 if cint(paginas) * registros < total then paginas = cint(paginas) + 1 end if if pagina = 1 then inicio = 0 else inicio = cint(registros) * (pagina) - 10 end if fim = cint(inicio) + 9 if cint(fim) > cint(total) then fim = cint(total) end if %>Mostrando os dados:Queria mostrar todos os registros... deem uma mao ae glr
Desde já agradeço a atenção...
Abraços
Link para o comentário
Compartilhar em outros sites
21 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.