12 replies to this topic

[Elton2203]

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

[Renan L. Queiroz]

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.

[Elton2203]

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

[Renan L. Queiroz]

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

[Elton2203]

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.

[Renan L. Queiroz]

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

[Elton2203]

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

[Renan L. Queiroz]

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

[Elton2203]

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

[Renan L. Queiroz]

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.

[Elton2203]

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

•  tela.jpg   58.47KB   2 downloads

[Renan L. Queiroz]

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]

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