Jump to content


Photo

[Resolvido] Galeria De Fotos Com Capa


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

#1 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 10/02/2010, 07:58

Fala ai galera, devido as tendências de mercado, ou melhor, orkut... os usuarios (clientes) kerem q os programadores criem galeria de fotos com capa, eu faço através de link (titulo), mas gostaria de aprender como fazer buscando uma determinada imagem do meu banco de dados...

Ps.: eu sempre desenvolvo uma area admin para o cliente, portanto o mesmo vai kerer escolher a capa por si só... mas eu nunca validei um "radio button" ou um "checkbox" portanto se alguém poder me ajudar com algum tutorial ou dica serei mto grato, lembrando q a minha galeria roda perfeitamente e eu tb ja uso o lightbox, tudo roda perfeitamente, só falta adicionar esse comando...

Esse é o codigo q busca no banco de dados as imagens e exibe primeiro o link (titulo), clicando dele exibe a tela eventosView, aonde o usuario vê as fotos do evento, porém no primeiro código eu gostaria de ver a capa do album... eis a duvida de como fazê-la.

<%
    Set rs = con.execute("SELECT ID_EVENTO, TITULO, DESCRICAO FROM TB_EVENTOS WHERE STATUS=true")
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("ID_EVENTO")%>"><%=rs("TITULO")%></a>
        </h4>
<%
        rs.movenext
    Wend
%> 
    ***************************************************************************************************************
<%
    Dim id : id = request.QueryString("id")

    If CInt(id) <= 0 Then
        Response.Redirect("eventos.asp")
        Response.End()
    End If
    Dim rs : Set rs = con.execute("SELECT * FROM TB_EVENTOS WHERE ID_EVENTO=" & id)
%>
    </div>
    <h4 align="center"><%=rs("TITULO")%></h4>
    <%=rs("DESCRICAO")%> 
<%
    Set imagem = con.execute("SELECT * FROM TB_FOTOS_EVENTOS WHERE ID_EVENTO=" & id)
    While imagem.eof = False
%>
        <a href="imgEventos/<%=imagem("ARQUIVO")%>" rel="lightbox[roadtrip]">
            <img src="imgEventos/<%=imagem("ARQUIVO")%>" width="70" height="70" border="0"/>
        </a>
<%
        imagem.movenext
    Wend
%>

Edição feita por: Renan L. Queiroz, 18/02/2010, 13:07.
Inclusão da tag [ code ] para postagem de scripts e identação do script para melhor entendimento


#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 10/02/2010, 09:09

Colega, tenta este script, para trazer o primeiro
registro da tabela de imagens referenciado ao evento atual:
select distinct
e.id_evento,
e.titulo,
e.descricao,
(select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa
from tb_eventos e
where e.status = true
Assim voce acessa o endereço e apresenta a img respectiva a cada evento.
Mas faça um teste, estou com pé atrás com minha sintaxe! Rs.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 10/02/2010, 18:19

Boa tarde Renan, eu testei seu código e me retornou o seguinte erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03FD)
'Case' esperado
/teste/web/teste.asp, line 12, column 7
select distinct
------^


para eu entender melhor, oq significa esse "distinct"?

Renan existe uma parte do meu codigo q eu altero o status no banco de dados, o codigo é o seguinte:

<a href="funcoes.asp?acao=status&amp;id=<%=rs("ID_EVENTO")%>">	
	<% if rs("STATUS") = true then%>
		<img src="../img/ok.png" width="16" height="16" border="0" align="absmiddle" /> 
	<% else %> 
		<img src="../img/false.png" width="16" height="16" border="0" align="absmiddle" /> 
	<% end if %>

eu pensei em criar lá no meu banco ao invés de status uma função chamada "capa" e ativar ela tipo esse código q funciona direitinho, porém ao invéz de usar essas imagens eu keria usar um "radio buttom" ou um "checkbox" mas não sei como validar ele para essa função... oq vc acha? tem como usar essa ideia?

Edição feita por: Renan L. Queiroz, 11/02/2010, 08:13.
Inclusão da tag [ code ] para postagem de scripts


#4 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 11/02/2010, 08:21

...
Tipo de erro:


Erro de compilação do Microsoft VBScript (0x800A03FD)
'Case' esperado
/teste/web/teste.asp, line 12, column 7
select distinct
------^

O comando que lhe mostrei será alterado pela query que você utiliza para fazer a busca dos eventos
e terá que ser em uma unica linha, em caso seja como enviei, ficaria da seguinte forma:
Dim sql
sql = "select distinct "&_
         "e.id_evento, "&_
         "e.titulo, "&_
         "e.descricao, "&_
         "(select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa "&_
      "from tb_eventos e "&_
      "where e.status = true"

Set rs = con.execute(sql)
O comando distinct, server para que os registros retornados pela pesquisa sejam únicos, quando houver
a incidência de um registro mais de uma vez este é desconsiderado.

Renan existe uma parte do meu codigo q eu altero o status no banco de dados, o codigo é o seguinte:
...
eu pensei em criar lá no meu banco ao invés de status uma função chamada "capa" e ativar ela tipo esse código q funciona direitinho, porém ao invéz de usar essas imagens eu keria usar um "radio buttom" ou um "checkbox" mas não sei como validar ele para essa função... oq vc acha? tem como usar essa ideia?

Você está falando como no Orkut?! Um monte de imagens com o checkbox para a seleção da capa do album?

Edição feita por: Renan L. Queiroz, 11/02/2010, 08:25.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#5 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 11/02/2010, 16:51

sim... é assim q alguns usuarios vieram me perguntar se eu sabia fazer.

sim... é assim q alguns usuarios vieram me perguntar se eu sabia fazer.


Renan como eu nunca vi esse código estou com um pouco de dificuldade nele, agora ele apresentou o seguinte erro:

Erro de compilação do Microsoft VBScript (0x800A0408)
Caractere inválido
/teste/web/teste.asp, line 18, column 95
"(select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa "&_ "from tb_eventos e "&_


Edição feita por: Renan L. Queiroz, 11/02/2010, 16:57.


#6 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 11/02/2010, 16:58

coloca o sql assim:
sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
Em uma linha só.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#7 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 11/02/2010, 17:22

Fiz como vc falow, parou de dar erro porém está me devolvendo uma página em branco sem dados.

Edição feita por: Renan L. Queiroz, 12/02/2010, 09:15.
Alteração da formatação do post


#8 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 12/02/2010, 09:19

Isso retorna algo para você?
<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("id_evento")%>"><img src="<%=rs("capa")%>" alt="<%=rs("descricao")%" title="<%=rs("descricao")%"></a>
        </h4>
<%
        rs.movenext
    Wend
%>

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#9 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 12/02/2010, 13:30

Isso retorna algo para você?

<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("id_evento")%>"><img src="<%=rs("capa")%>" alt="<%=rs("descricao")%" title="<%=rs("descricao")%"></a>
        </h4>
<%
        rs.movenext
    Wend
%>


Renan eu tive q refazer alguns comando pois estavam com erro de sintaxe... ficou assim:

<%    
sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"    

Set rs = con.execute(sql)   
While rs.eof = False
%>        
  <h4>            
  <a href="viewEventos.asp?id=<%=rs("id_evento")%>">
        <img src="<%=rs("capa")%>" />
  </a>        
  </h4>
		<%        
		rs.movenext    
		Wend
		%>

Mas mesmo assim me aparece o seguinte erro:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
/teste/web/teste.asp, line 14

Linha 14: Set rs = con.execute(sql)

Edição feita por: Renan L. Queiroz, 12/02/2010, 13:40.
Inclusão da tag [ code ] para postagem de scripts


#10 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 12/02/2010, 13:42

Colega, voce declarou o objeto con?
O erro diz que há a falta de um objeto.

Ao tentar executar o con.execute, acredito que seja a falta de declaração
da conexão, ela está em algum inlcude ou anteriormente à este script?
Algo como isso:
    Set con = server.CreateObject("adodb.connection")
    con.ConnectionString = "STRING DE CONEXÃO"
    con.Open

Edição feita por: Renan L. Queiroz, 12/02/2010, 13:53.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#11 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 14/02/2010, 15:00

Colega, voce declarou o objeto con?
O erro diz que há a falta de um objeto.

Ao tentar executar o con.execute, acredito que seja a falta de declaração
da conexão, ela está em algum inlcude ou anteriormente à este script?
Algo como isso:

    Set con = server.CreateObject("adodb.connection")
    con.ConnectionString = "STRING DE CONEXÃO"
    con.Open


Desculpa a falta de atenção Renan...
agora apareceu, porém apareceu o seguinte: segue imagem em anexo.
como estou vendo essa programação pela primeira vez gostaria q vc me informasse oq se trata... Grato pela ajuda

Renan eu refiz o meu código e agora sim aparece pra mim, porém aparece oq eu ja consigui com o código q eu iniciei esse forum primeiro aparece o titulo e qdo clica aciona a galeria... funcionar está funcionando direitinho, porém não como planejamos.

Attached Files

  • Attached File  tela.jpg   58.47KB   2 downloads


#12 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 18/02/2010, 09:33

Entendi, meu intuito inicial era alterar a sua query (sql) para que retornase-mos a imagem referente
à cada um dos eventos, sendo assim após incluir o endereço da imagem na consulta era só incluir no script.

Mesmo com o con declarado, esse script não apresentou a imagem?!
<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("id_evento")%>"><img src="<%=rs("capa")%>" alt="<%=rs("descricao")%" title="<%=rs("descricao")%"></a>
        </h4>
<%
        rs.movenext
    Wend
%>
    ***************************************************************************************************************
<%
'Continua...

Faça um teste, coloque isso no lugar do script anterior:
<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
        response.write rs("capa") &"<br />"
        rs.movenext
    Wend
    response.end
O que é imresso?

Edição feita por: Renan L. Queiroz, 18/02/2010, 09:35.

  • Elton2203 likes this

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#13 Elton2203

Elton2203

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:Espirito Santo

Posted 18/02/2010, 12:50

Caramba Renam... mto obrigado mesmo amigo... vc não faz ideia do tanto q vc me ajudou... funcionou certinho... precisei fazer apenas alguns ajustes, mas ficou exatamente como eu keria.

<%
sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
Set rs = conn.execute(sql)
While rs.eof = False

%>

<h4>
<%=rs("titulo")%> <br />
<a href="viewEventos.asp?id=<%=rs("id_evento")%>">
<img src="imgEventos/<%=rs("capa")%>" alt="<%=rs("descricao")%>" title="<%=rs("descricao")%> width="70" height="70" border="0"">
</a>
</h4>

<%
rs.movenext
Wend
%>






0 user(s) are reading this topic

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

IPB Skin By Virteq