Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Morpheus#2005

Select Dinamico

Por , em ASP Clássico

Recommended Posts

Morpheus#2005    1

Morpheus#2005
Postado

boa noite galera,

 

 

Bom...eu tenho 2 selects..

 

No primeiro eu faço um distinct e pego as datas.

 

No segundo eu faço um agrupamento e pego os arquivos de cada mes.

 

<ul id="MenuBar1" class="MenuBarHorizontal">
  <li><a class="MenuBarItemSubmenu" href="#">Escolha o mes</a>
      <ul>
        <li><a href="#" class="MenuBarItemSubmenu">Janeiro</a>
          <ul>
            <li><a href="#">Item 1.1.1</a></li>
            <li><a href="#">Item 1.1.2</a></li>
            <li><a href="#">Item 1.1.3</a></li>
            </ul>
        </li>
        </ul>
<ul>
        <li><a href="#" class="MenuBarItemSubmenu">Fevereiro</a>
          <ul>
            <li><a href="#">Item 1.1.1</a></li>
            <li><a href="#">Item 1.1.2</a></li>
            <li><a href="#">Item 1.1.3</a></li>
            </ul>
        </li>
        </ul>
  </li>
</ul>

Como eu faço para essas 2 consultas ficarem dinamicas ?

 

<ul id="MenuBar1" class="MenuBarHorizontal">
  <li><a class="MenuBarItemSubmenu" href="#">Escolha o mes</a>
      <ul>
<%while rs.EOF=false%>
        <li><a href="#" class="MenuBarItemSubmenu"><%rs.meses%></a>
          <ul>
            <li><a href="#"><%rs2.arquivos%></a></li>
            </ul>
 <%next
  rs.MoveNext%>
        </li>
        </ul>

obrigado pela ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Existem alguns modelos que postei no fórum até alguns com o uso de AJAX, jquery etc, mas aqui vai um exemplo.

 

default.asp

 

<html>
<%
Dim Cn
Set Cn = Server.CreateObject("ADODB.Connection")
set Rs = server.createObject("ADODB.Recordset")
Cn.ConnectionString = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=xxxxx;PORT=3306;DATABASE=xxxxx;USER=xxxxx;PASSWORD=xxxxx;OPTION=3
;")
Cn.Open
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Selecione um estado primeiro</title>


<script type="text/javascript" src="js/scriptaculous/prototype.js"></script>
<script type="text/javascript">
//<![CDATA[
function CarregaCidades( SelectEstado, div_destino )
{
  // Nova requisi?o AJAX do prototype
  new Ajax.Request('cidades.asp?estadoId=' + SelectEstado.value,
  {
    method     : 'get',
    onCreate:function()
    {
      $(div_destino).innerHTML = 'Carregando as cidades...';
    }, // onCreate
    onComplete : function(transport)
    {
      if(transport.status==200)
      {
        $(div_destino).innerHTML = transport.responseText;
      } // transport.status
    } // onComplete
  }); // ajax Request
} // function CarregaCidades
//]]>
</script>
</head>

<body>
<form>
<select id="estado" name="estado" onChange="CarregaCidades(this, 'lista_cidades')">
  <option selected="selected" value="null">Selecione um estado...</option>
<%
ESTADO = "SELECT * FROM ESTADOS ORDER BY estado"
Rs.Open ESTADO, Cn, 3, 1
If Rs.Eof = False Then
    Do
        If Rs.Eof = True Then Exit Do
%>
    <option value="<%=Rs("Id")%>"><%=Rs("estado")%></option>
<%
    Rs.MoveNext
    Loop
End If
Rs.Close
%>
</select><br />
<div id="lista_cidades">Selecione um estado primeiro...</div>
</form>
</body>
<%
    set Rs= Nothing
    set Cn = Nothing
%>
</html>

 


Página cidades.asp:

 

<%
Dim Cn
Set Cn = Server.CreateObject("ADODB.Connection")
set Rs = server.createObject("ADODB.Recordset")
Cn.ConnectionString = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=xxxxx;PORT=3306;DATABASE=xxxxx;USER=xxxxx;PASSWORD=xxxxx;OPTION=3
;")
Cn.Open
%>
<select id="cidade" name="cidade">
  <option selected="selected" value="null">Selecione uma cidade...</option>
<%
ID = Request.QueryString("estadoId")
SQL = "SELECT * FROM CIDADES WHERE id_estado = '"&ID&"' ORDER By cidade"
Rs.Open SQL, Cn, 3, 1
If Rs.Eof = False Then
    Do
        If Rs.Eof = True Then Exit Do
%>
  <option value="<%=Rs("Id")%>"><%=Rs("cidade")%></option>
<%
    Rs.MoveNext
    Loop
End If
Rs.Close
%>

<%
    set Rs= Nothing
    set Cn = Nothing
%>
</select>

 




As TABELAS do banco de dados foram feitas assim:
CIDADES
Id - AutoNumeração
cidade - texto (255 caracteres)
id_estado - texto (5 caracteres)

ESTADOS
Id - AutoNumeração
estado - texto (255 caracteres)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Morpheus#2005    1

Morpheus#2005
Postado

Funcionou perfeito...só que tenho mais um probleminha

<table width="800" border="0" align="center">
      <tr>
      <td>Nome Fantasia </td>
      <td><b><%=(Busca_Extrato.Fields.Item("NOME_ABREVIADO").Value)%></b></td>
      <td>CNPJ:</td>
      <td><b><%=(Busca_Extrato.Fields.Item("CNPJ").Value)%></b></td>
      </tr>
    <tr>
      <td>Fornecedor SAP</td>
      <td><b><%=(Busca_Extrato.Fields.Item("FORN_SAP").Value)%></b></td>
      <td>Doc. SAP</td>
      <td><b><%=(Busca_Extrato.Fields.Item("NUM_DOC_SAP").Value)%></b></td>
      </tr>
    <tr>
      <td>Valor NF</td>
      <td><b><%=(Busca_Extrato.Fields.Item("VALOR").Value)%></b></td>
      <td>Quantidade</td>
      <td><b><%=(Busca_Extrato.Fields.Item("TOTAL").Value)%></b></td>
      </tr>
    <tr>
      <td>Ciclo</td>
      <td><b><%=(Busca_Extrato.Fields.Item("CICLO").Value)%></b></td>
      <td>Mês Ref:</td>
      <td><b><%=(Busca_Extrato.Fields.Item("MES").Value)%>/<%=(Busca_Extrato.Fields.Item("ANO").Value)%></b></td>
      </tr>
</table>

Ao escolher o ultimo Select, como eu faço para atualizar os dados dessa consulta?

 

X@nBuRzUm obrigado pelo Helpppppp

 

 

...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc quer atualizar no banco ou apenas no form ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito