[Resolvido] Seleção de mês distinto em campo data

[elton73ssa 0]

Prezados,

 

Na minha base de dados Acess eu tenho:

 

id data

 

1 01/12/2009

2 20/12/2009

3 01/01/2010

4 15/01/2010

 

Gostaria de retornar apenas um mês de cada data, assim:

 

1 Janeiro

2 Dezembro

 

Tentei algumas variações com Distinct month(data), mas não funcionou. O resultado é duas vezes o mês de dezembro e duas vezes o mês de janeiro. Gostaria que o while não os repetisse.

 

Atualmente está assim:

 

call abre_conectar

sql = "select distinct(data) from cursos WHERE cidade LIKE '%" &cidade& "%' ORDER BY data;"
set rs = cnn.Execute(sql)


select case month(rs("data")) 
case 1: vMes = "Janeiro" 
case 2: vMes = "Fevereiro" 
case 3: vMes = "Março" 
case 4: vMes = "Abril" 
case 5: vMes = "Maio" 
case 6: vMes = "Junho" 
case 7: vMes = "Julho" 
case 8: vMes = "Augosto" 
case 9: vMes = "Setembro" 
case 10: vMes = "Outubro" 
case 11: vMes = "Novembro" 
case 12: vMes = "Dezembro" 
end select 

<select  id="data" name="data"  class="input"  onChange="getData(this);">
<option value="0">Selecione</option>
<%
while not rs.EOF
%>

<option value="<%Response.Write month(rs("data"))%>" <% if data = data then response.Write("selected") end if%>><%Response.Write vMes %></option>
<%
rs.MoveNext
wend
							
call fecha_conectar
set rs = nothing			
%>
</select>

[Giancarlo Braga 0]

Não entendi.

Você quer retornar um mês de cada data? Como assim?

 

Seria um registro para cada mês?

 

No SQL Server eu faria uma function, colocaria esse código numa stored procedure ou até uma view e mandaria agrupar de alguma forma.

E no ASP faria um tratamento com tabelas temporárias talvez.

 

Grato,

Giancarlo Braga.

[xanburzum 169]

você tentou fazer o select case atraves do rs("id"), pois dae você compara o 1 sendo o ID

[elton73ssa 0]

você tentou fazer o select case atraves do rs("id"), pois dae você compara o 1 sendo o ID

 

Bom... acabei resolvendo com a seguinte instrução:

 

sql = "select distinct month(data) AS [data] from cursos WHERE cidade LIKE '%" &cidade& "%';"

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[xanburzum 169]

beleza