[VB6] Query con date

[OrcaAssassina]

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

[ViolaX]

Originariamente inviato da OrcaAssassina

rsRecordSet.Open "SELECT * From [Clienti] order by [Scadenza pagamento]",
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

Ciao, basta indicare la data fra "cancelletti":

SELECT SELECT * From [Clienti]
WHERE ScadenzaPagamento>=#2/28/2006# And ScadenzaPagamento<=#3/1/2006#;

Le date sono nella forma mm/gg/aaaa; la stringa puoi comporla con Month(date) per il mese e Year(date) per l'anno.

Buon lavoro !

[OrcaAssassina]

Originariamente inviato da ViolaX

Ciao, basta indicare la data fra "cancelletti":

SELECT SELECT * From [Clienti]
WHERE ScadenzaPagamento>=#2/28/2006# And ScadenzaPagamento<=#3/1/2006#;

Le date sono nella forma mm/gg/aaaa; la stringa puoi comporla con Month(date) per il mese e Year(date) per l'anno.

Buon lavoro !

L'intevallo lo deve prendere da solo dalla data dell'orologio

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


Ciao e grazieeeeeeee

[ViolaX]

Originariamente inviato da OrcaAssassina

L'intevallo lo deve prendere da solo dalla data dell'orologio

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


Ciao e grazieeeeeeee

Scusami tanto, ma non è arrivata la mail della tua risposta!!

In questo modo, basta qualche istruzione in più:

Dim Stringa As String
Stringa = "SELECT SELECT * From [Clienti] WHERE ScadenzaPagamento>=#" & Month(Date) & "/01" & FineMese & "/" & Year(Date) & "# And ScadenzaPagamento<#" & Month(Date)+1 & "/01/" & Year(Date) & "#;"

Quindi usi Stringa per aprire la connessione

P.S. in dicembre ovviamente devi usare mese 01 ed anno Year(Date)+1

Spero sia chiaro, ciao !!!

[OrcaAssassina]

Ok funziona