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

Selecionar Dados No Access


Guest Josiane

Pergunta

olá pessoal, como faço para que os dados do banco apareça numa caixa suspensa,

tipo, tenho um produto, que possui o campo "cor", quero q apareça na caixa,,mas não to conseguindo...

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

<%

Dim obj, RS, Str,objRecordset

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

obj.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Banco_Site.mdb")

if request.queryString("valor")= 1 then

Str = "Select * from femininaAD "

end if

if request.queryString("valor")= 2 then

Str = "Select * from masculinoAD "

end if

if request.queryString("valor")= 3 then

Str = "Select * from femininaIF "

end if

if request.queryString("valor")= 4 then

Str = "Select * from caBaADInf "

end if

if request.queryString("valor")= 5 then

Str = "Select * from masculinoIF "

end if

if request.queryString("valor")= 6 then

Str = "Select * from sutiã "

end if

Set Rs = obj.Execute(Str)

%>

.

.

.

<%

while not RS.eof

%>

<table border="2" cellspacing="1" width="615" id="AutoNumber1" height="1">

<tr>

<td width="191" height="1">

<span style="background-color: #FFFFFF">

<img border="0" src="http://localhost/fotos/<%=RS("imagem")%>" width="237" height="195"></span></td>

<td width="424" height="1">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="119">

<tr>

<td width="100%" height="19"><b>Código:</b><%=RS("cod_prod")%>&nbsp;</td>

</tr>

<tr>

<td width="100%" height="19"><b>Descrição</b>: <%=RS("desc_prod")%>&nbsp;</td> </tr>

<tr>

<td width="100%" height="19"><b>Preço Varejo:</b><%=RS("precovarejo")%><b> Preço Atacado:</b><%=RS("precoatacado")%></td> </tr>

<tr>

<td width="100%" height="19"><b>Cores disponíveis:

<select size="1" name="cor"></select><tr> <td width="100%" height="19"><b>Tamanho: </b>

<select size="1" name="tamanho">

<option>p</option>

<option>m</option>

<option selected>g</option>

</select></td>

</tr>

<tr>

<td width="100%" height="19">

<p>

<input type="button" value="Qtd adicionada: " name="B3">:

<input type="text" name="T1" size="20"></p>

</td>

</tr>

<tr>

<td width="100%" bgcolor="#F5F5F5" height="19">&nbsp;</td>

</tr>

<tr>

<td width="100%" bgcolor="#CC0000" height="19"><font color="#FFFFFF"><b>OBS: "Os preços

no atacado são acima de 10 peças"</b> </font> </td>

</tr>

<tr>

<td width="100%" height="7">

<p align="left >listar produtos inclusos<a href="pedido.asp">comprar</a> </td>

</tr>

</table>

</tr>

<tr>

<td width="191" bgcolor="#CDE8F8" height="1">

<p align="center">

</a><font size="1" face="Verdana" color="#3A9CCD">

<a href="http://localhost/detalhe.asp?valor=<%=RS("controle")%>">detalhes</a></font></td>

<td width="424" bgcolor="#CDE8F8" height="1">

<p align="right"><font color="#0000FF"><a href="produto.asp">

<font color="#3A9CCD">voltar</font></a></font></td>

</tr>

</table>

<%

RS.movenext

wend

%>

Link para o comentário
Compartilhar em outros sites

  • 0

Na realidade to tentando criar um site de vendas com um catalogo de produtos..mas estou tendo dificuldades,,você sabe onde encontro algum tutorial q fale + sobre o assunto,,já fiz o catalogo, falta o cliente efetivar a compra atravez do catalogo...não sei como dar continuidade

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,4k
×
×
  • Criar Novo...