[VB6] Query con date per determinazione scadenze

[marco.santilli]

Nel mio programma ho un elenco di utente e deve tenere sotto controllo delle scadenze mensile, registrate per ogni utente

Adesso ho una query generale di questo genere:

Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Open "SELECT * From [Clienti] order by [Scadenza pagamento]", CnConnessioni, adOpenStatic, adLockOptimistic

Set Me.Datagrid1.DataSource = rsRecordSet

In questo modo nella mia datagrid mi elenca tutte le scadenze.

Io voglio retringere il campo di ricerca limitandolo al mese corrente e anno corrente presi dalla data dell'orologio di win

La data nel DB è archivata cosi: gg/mm/aaaa

Mi dite come modificare tale query????

Ciao e grazieeeeeeeee

[yyzyyz]

ti do uno spunto, non ho provato la query ma dovrebbe andarbene.

dim DATAODIERNA AS DATE
DATAODIERNA=datevalue(NOW)

db.Execute "SELECT * FROM TABELLA where Scadenza_pagamento=#"& DATAODIERNA & "#)"

[marco.santilli]

Dopo lo provo, però ad occhio, cosi mi tira fuori solo i record che hanno scadenza in quel giorno, io invece voglio tutti quelli che scadono in quel mese.

Ad esempio, adesso è APRILE, lui mi deve visualizzare tutte le date che scadono in APRILE 2006..fammi sapere


Ciao e grazieeeeeeee

[yyzyyz]

scusami avevo capito male, ke ne dici di una cosa di questo tipo?

Private Sub Form_Load()
Dim PRIMODELMESE As Date
Dim ULTIMODELMESE As Date

PRIMODELMESE = firstDayOfMonth(Now)
ULTIMODELMESE = LastDayOfMonth(Now)

db.Execute "SELECT * FROM TABELLA where Scadenza_pagamento between #" & PRIMODELMESE & "# and #" & ULTIMODELMESE & "#)"
End Sub

Public Function LastDayOfMonth(d As Date) As Date
    LastDayOfMonth = DateSerial(Year(d), Month(d) + 1, 1) - 1
End Function

Public Function firstDayOfMonth(d As Date) As Date
    firstDayOfMonth = DateSerial(Year(d), Month(d), 1)
End Function

[marco.santilli]

Ok grazieeeeeee