Ir para conteúdo
Fórum Script Brasil
  • 0

Socorro


--Ludson--

Pergunta

Falae galera, to precisando de um HELP, ainda to aprendendo asp, talvez essa seja uma pergunta meio idiota e de fácil solução, se puderem me ajudar, agradeço!!!!

Bom vamos lá,

eu criei um bd com os campos:

imgp, imgg

Bom, criei um sistema onde acesso um formulário para inclusão de imagens no bd, imagens estas que formarão um álbum.

No formulário, eu tenho o campo imagem pequena e imagem grande,

no campo imagem pequena, inseri um campo de seleção, onde neste campo, ele retorna a lista de imagens cadastradas no banco de dados.

até aí tudo bem, mas o meu problema ta sendo o seguinte, no mesmo registro eu tenho imgp e imgg, e no formulário tenho dois campos, um para cada, os dois com as mesmas funções, a de retornar a lista de imagens cadastradas.

o que eu preciso:

saber como faço para que no campo de seleção, eu retorne o resultado da célula imgp e crie um loop q faça aparecer todos os registros dessa célula, e preciso fazer o mesmo com o campo imgg.

fiz da seguinte maneira:

        <%
cnpath="DBQ=" & Server.MapPath("bd/arquivos.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Abre o Recordset
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "SELECT * FROM imagens"
%>
<% 

if not rs.eof then  

while not rs.eof 
%> 
        <select size="1" name="D1" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #006699; background-color: #EAEAEA">
        <option><%= rs("imgp") %></option>
 <%
rs.Movenext
wend
end if
%>
        </select></td>
      </tr>
      <tr>
        <td width="32%">Imagem grande</td>
        <td width="68%">
        <select size="1" name="D2" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #006699; background-color: #EAEAEA">
<% 
if not rs.eof then  
while not rs.eof 
%>
        <option><%= rs("imgg") %></option>
<%
rs.Movenext
wend
end if
%>
        </select>

tipo, o campo imgp funciona muito bem, mas no campo imgg não aparece nada, eu queria saber como faço pra aparecer no campo imgg sem que eu tenha que fechar e abrir novamente a conexão.

não sei se deu pra entender direito.

mas se puderem me ajudar agradeço!!!!

ph34r.gifblink.gif

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

Não entendi, se puder ser mais objetivo! biggrin.gif

Link para o comentário
Compartilhar em outros sites

  • 0
' date='May 15 2004, 11:15 PM'] Não entendi, se puder ser mais objetivo! biggrin.gif

bom, vamos lá, vou tentar explicar melhor.

Tipo eu criei um banco de dados chamado arquivos, neste banco de dados, criei duas tabelas, imagens e produtos.

na tabela imagens, tenho os campos:

ID, imgp e imgg.

Na tabela produtos, tenho:

ID, imgp, imgg, descricao, titulo

bom, vamos ao sistema do álbum:

vou usar um formulário para adicionar uma imagem pequena(imgp) e uma imagem grande(imgg) na tabela imagens.

e vou usar um formulário para adicionar novos produtos no álbum.

O formulário tem os seguintes campos:

Titulo, Descrição, Imagem Grande, Imagem pequena.

Bom, nos campos Imagem Grande e Imagem pequena, eu usei um campo do tipo <select>.

o que eu desejo:

exibir no campo Imagem pequena(<select> ) todas as imagens cadastradas na tabela imagens

e no campo Imagem Grande, a mesma coisa.

Eu criei uma conexão com bd, dentro do select chamei o resultado e criei um loop para exibir todos os campos, funcionou muito bem no primeiro campo, mas no segundo não aparece.

Me ajudem!!!!!!!!

é muito simples eu quero exibir todos os dados do campo imgp e criar um loop e depois exibir todos os dados do campo imgg e criar outro loop.

é como se eu tivesse um cadastro com nomes e telefones, e criasse um sistema para exibir todos os nomes e depois todos os telefones tipo:

Nome dos Clientes:

Tiago

Romeu

Marcelo

Marcos

Critiane

Luana

Marcia

tipo:

Nomes dos Clientes:

<%= rs("nomes")%>

<%

rs.MoveNext

%>

Telefones dos Clientes:

<%= rs("telefones")%>

<%

rs.MoveNext

%>

Telefones dos Clientes

666-66666

6366-9315

666-4485

1123-4445

2264-8897

5564-4444

5568-4547

num entendeu^^???

não sei como explicar melhor q isso.

valeu ph34r.gif

Link para o comentário
Compartilhar em outros sites

  • 0

Okz!

Acho q entendi!

Baseando-se no seu último exemplo...

Você quer listar Primeiro o nome dos clientes, e depois os telefones dos mesmo, correto?

Simples, você cria um recordset e faz um While..Wend pra listar os nomes dos clientes, depois você pode copiar este mesmo While..Wend de antes, e ao invés de listar o campo referente ao nome dos clientes, mude para o nome do campo do numero dos telefones.

Só isso.

Acho que seria melhor você listar o Nome do cliente e logo ao lado já o número do telefone.

Não tem mistério.

E cara, seu código parece-me estar correto assim olhando por cima.

Link para o comentário
Compartilhar em outros sites

  • 0

E ae, resolveu?

Estamos aguardando!

Link para o comentário
Compartilhar em outros sites

  • 0

Salve amigo, vou fazer uma pequena correçao no seu script e diz ai depois se deu certo

abraços

anote:

<%

....

do while not rs.eof

%>

<select size="1" name="D1" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #006699; background-color: #EAEAEA">

      <option><%= rs("imgp") %></option>

      </select></td>

    </tr>

    <tr>

      <td width="32%">Imagem grande</td>

      <td width="68%">

      <select size="1" name="D2" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #006699; background-color: #EAEAEA">

    <option><%= rs("imgg") %></option>

<%

rs.Movenext

loop

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

</select>

Amigo depois fala se funcionou abraços

Link para o comentário
Compartilhar em outros sites

  • 0

Galera, valeu, eu resolvi de otro jeito, tipo eu coloquei apenas um campo do tipo select, e na página onde as imagens vão aparecer eu coloquei um tamanho padrão (imagem pequena) e ao clicar, abre uma nova janela com a imagem maior.

tipo o código fico assim:

<%
cnpath="DBQ=" & Server.MapPath("bd/arquivos.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
RS.open "SELECT * FROM imagens"
%>
<% 

if not rs.eof then  

while not rs.eof 
%> 
       <select size="1" name="D1" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #006699; background-color: #EAEAEA">
       <option><%= rs("img") %></option>
<%
rs.Movenext
wend
end if
%>
       </select></td>
     </tr>

VLEW galera!!!

ph34r.gif

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...