Jump to content


Photo

Mostrar A Quantidade De Fotos No Evento...


  • Faça o login para participar
16 replies to this topic

#16 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 29/10/2005, 19:32

Vai direto para album sem fotos...

lembrando que eu não clico em nada para fazer a busca e sim é uma página de todos os eventos cadastrados.

na tabela de eventos tem que ter a id do evento e na tabela de fotos tem que ter fotos com a id do evento senao vai dar album sem fotos mesmo :huh:


O Codigo que eu te fiz ele mostra a qtidade de fotos de cada um dos eventos :blink: ,
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#17 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 29/10/2005, 19:42

No bd é o seguinte:

Cadastro primeiro o evento e depois na página de cadastrar as fotos escolho o evento e gravo as fotos.
Na tabela tbl_eventos tem apenas o ID dos eventos e na tbl_fotos tem o FotoID que é da foto e o EventoID que é gravado o numero do evento tal naquele campo.

tentei adaptar e agora só aparece o numero 4 em todas e e não está certo, pq apenas 1 dos eventos tem 4 fotos o que fiz errado?

n_page=request("n_page")
If n_page="" Then n_page = 1

  Caminho="DBQ=" & Server.MapPath("/coberturas/baladas/bd/bd_baladas.mdb")
  Set Conex=Server.CreateObject("ADODB.Connection")
  Conex.Open Caminho & ";Driver={Microsoft Access Driver (*.mdb)}","",""
   
  Set rs  = Server.CreateObject("ADODB.RecordSet")
  SQL = "Select * From tbl_eventos ORDER By ID Desc"
  Set rs = Conex.Execute(SQL)
  If Not rs.EOF Then
  Set rs1  = Server.CreateObject("ADODB.RecordSet")
  SQL1 = "Select Count(*) As Total From tbl_fotos where EventoID =" & rs("ID")
  Set rs1 = Conex.Execute(SQL1)

  rs.PageSize=9
 
  If rs.EOF Then
    response.write "Não existem registros para exibição..."
  Else
 
  rs.AbsolutePage = Cint(n_page)
   
    contador=0
    While not rs.EOF AND contador < rs.PageSize
   
     Set rsMostraFoto = Conex.Execute("select top 5 * from tbl_fotos where EventoID=" & rs("ID"))
     sFoto = rsMostraFoto("Foto")
    rsMostraFoto.Close
    Set rsMostraFoto = Nothing
    %>


<%=rs("nome")%> - <%=rs1("total")%>


Edição feita por: Operador, 30/10/2005, 09:49.

----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq