Estrazione operazioni per anno da un dbase

[fraude]

Buongiorno: "difficoltà del giorno":

In un database di access 2000 vengono registrate le date di alcune operazioni nel formato gg/mm/aaaa.

Dovrei estrarre fa questo dbase il consuntivo delle operazioni per anno ed ho creato una select che recupera il campo "data" del database in questo modo:

<%
sql = "SELECT DATA FROM TABELLA2 GROUP BY DATA"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

rs.MoveFirst  
Do While Not rs.EOF%>

<option value="<%=rs("DATA")%>"><%=rs("DATA")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing

%> In questo modo, però, visualizzo anche giorno e mese... esiste una maniera per estrarre soltanto le operazioni selezionate solo di quell'anno?

Grazie

[Roby_72]

Non ho capito se ti serve solo l'anno dalla data oppure qualcos'altro.

Roby

[fraude]

Originariamente inviato da Roby_72
Non ho capito se ti serve solo l'anno dalla data oppure qualcos'altro.

Roby

mi serve soltanto l'anno Roby, grazie.

[deivnet]

Tu devi raggruppare per anno e quindi avere un solo record per l'anno 2003 uno per il 2004? oppure ti servono tutte le date dell'anno?

Per raggruppare per anno prova la query così :

SELECT COUNT(DATA) FROM TABELLA2 GROUP BY DATEPART("yyyy",DATA)

[fraude]

Originariamente inviato da deivnet
Tu devi raggruppare per anno e quindi avere un solo record per l'anno 2003 uno per il 2004? oppure ti servono tutte le date dell'anno?

Per raggruppare per anno prova la query così :

SELECT COUNT(DATA) FROM TABELLA2 GROUP BY DATEPART("yyyy",DATA)

restituisce quest'errore:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement

<%
                
sql = "SELECT COUNT(DATA) FROM TABELLA2 GROUP BY DATEPART("yyyy",DATA)"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

rs.MoveFirst  
Do While Not rs.EOF%>

<option value="<%=rs("DATA")%>"><%=rs("DATA")%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

[Roby_72]

sql = "SELECT right(DATA,4) FROM TABELLA2 GROUP BY right(DATA,4)"

Roby

[fraude]

Originariamente inviato da Roby_72

sql = "SELECT right(DATA,4) FROM TABELLA2 GROUP BY right(DATA,4)"

Roby

la select non si popola...

[Roby_72]

sql = "SELECT DISTINCT right(DATA,4) AS DATA2 FROM TABELLA2 ORDER BY right(DATA,4)"

Recuperi "data2"

Roby

[fraude]

niente da fare... select vuota...

<%
                
sql = "SELECT DISTINCT right(DATA,4) AS DATA2 FROM TABELLA2 ORDER BY right(DATA,4)"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value="<%=DATA2%>"><%=DATA2%></option>

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

[deivnet]

Ci credo che è vuota tu usi DATA2 che è una variabile e non richiami il recordset con rs("DATA2") sostituiscilo...