Popolamento select da db access

[wegawhite]

Buongiorno.

In una colonna di una tabella access ho queste date:

2006/08/10
2006/08/10
2006/08/10
2006/08/10
2006/08/18
2006/08/18
2006/08/18
2006/08/18
2006/09/01
2006/09/01
2006/09/04
2006/09/04

Come faccio a far popolare una select prendendo i dati dalla tabella e far apparire soltanto il nome del mese raggruppandolo?

Cioè dovrei avere nella select:

Agosto
Settembre

Sapete consigliarmi una soluzione?

[littletoro]

ma perchè tu nella select vuoi soltanto i mesi presenti nel DB?

es:

Agosto
Ottobre
Dicembre

[wegawhite]

Si esatto solo quelli.

[wegawhite]

Ho scritto così, il nome del mese va bene ma non si raggruppano:

<%

sql = "SELECT data FROM tbl GROUP BY data ORDER BY data asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3
Do While Not rec.EOF

strVAR = rec("data")
strVAR = Month(strVAR)

strMese = (Array("","Gennaio","Febbraio","Marzo","Aprile","Maggio","Giugno","Luglio","Agosto","Settembre","Ottobre","Novembre","Dicembre"))(strVAR)

%>

<option	value="<%=strMese%>"
<%if strMese = cstr(strVar) then response.write("selected") end if%>>
<%=strMese%></option>	

<%
rec.MoveNext
Loop

rec.Close
set rec = Nothing
%>

[littletoro]

allora c'è un pò da lavorare...

estrai le date (con una order by delle date) dal db e riempiti una stringa tipo
<%
' supponendo che sei nel ciclo della richiesta al db

appomese = split(rs(data),"/")
if appomese(1) <> mesepreso then

date_db = date_db & appomese(1) & "*"

end if
mesepreso = appomese(1)


'una volta finito il ciclo avrai all'interno di date_db "08*09*10" e via dicendo
'poi nella select...

date_db = split(date_db,"*")
%>
<select>
<%
for i=0 to ubound(date_db)

select case date_db(i)

case "01"
%>
<option>gennaio</option>
<%
'e via dicendo per i rimanenti mesi

end select

next
%>
</select>

vedi un pò!
scusa per eventualii errori ma ho scritto di getto devo andà a pranzoooo!!!

[wegawhite]

Originariamente inviato da wegawhite
Ho scritto così, il nome del mese va bene ma non si raggruppano:

<%

sql = "SELECT data FROM tbl GROUP BY data ORDER BY data asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3
Do While Not rec.EOF

strVAR = rec("data")
strVAR = Month(strVAR)

strMese = (Array("","Gennaio","Febbraio","Marzo","Aprile","Maggio","Giugno","Luglio","Agosto","Settembre","Ottobre","Novembre","Dicembre"))(strVAR)

%>

<option	value="<%=strMese%>"
<%if strMese = cstr(strVar) then response.write("selected") end if%>>
<%=strMese%></option>	

<%
rec.MoveNext
Loop

rec.Close
set rec = Nothing
%>

Hai già letto questo ?

[littletoro]

si l'ho letto, ma così ottieni la lista ripetua dei mesi...

se vuoi applicare quello che ti ho scritto prima fai così:

<%

sql = "SELECT data FROM tbl GROUP BY data ORDER BY data asc"
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3
Do While Not rec.EOF

appomese = split(rec("data"),"/")
if appomese(1) <> mesepreso then

date_db = date_db & appomese(1) & "*"

end if

mesepreso = appomese(1)

rec.MoveNext
Loop

rec.Close
set rec = Nothing

date_db = split(date_db,"*")

%>
<select>
<%
for i=0 to ubound(date_db)

select case date_db(i)

case "01"
%>
<option value="Gennaio" selected >Gennaio</option>
<%
' e via dicendo

end select

next
%>
</select>


oppure non ho capito ciò che vuoi ottenere? mostra l'output che ti serve nella select.

[wegawhite]

L'output dovrebbe essere questo:

Agosto
Settembre

[littletoro]

e allora perchè non provi il codice che ti ho scritto?

[wegawhite]

Originariamente inviato da littletoro
e allora perchè non provi il codice che ti ho scritto?

Perchè non funziona:

Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.