[VB6] Ricercare in un database Access per mese

[karl93]

B.giorno ragazzi,
sto cercando di implementare una ricerca all'interno di un database da VB6. Al momento sono riuscito a ricercare per data completa...ora vorrei ricercare solo per il mese/anno.
Quindi ecco come trovo tramite questo codice:

Do Until RS2.EOF
      If RS2(0) = CDate(txtRic.Text) Then
        
         stringa = RS2(0)
         For i = 1 To 10
            stringa = stringa & vbTab & RS2(i)
         Next i
         
         MSHFlexGrid1.AddItem stringa
      End If
      RS2.MoveNext
   Loop
  
   If MSHFlexGrid1.Rows = 1 Then
         MsgBox "La data ricercata non e' disponibile!", vbInformation, "Messaggio"
   End If

In pratica se inserisco 03/05/2011, mi trova tutti i dati associati di quella data completa...ora vorrei trovare solo in questo modo: 05/2011...quindi tutti i dati di quel preciso mese! Come devo modificare?


Grz!

[alka]

Semplicemente, cerca tutti i record che sono compresi nell'intervallo che va dall'inizio del mese (01/05/2011) alla fine del mese (31/05/2011).

[gibra]

Perchè 'smazzolarsi' inutilmente il recordset per poi scoprire solo alla fine che non esistono record?
Trovo molto più semplice ed efficiente usare il metodo Filter:

rs2.Filter = "<campo> <operatore> <valore>"
if rs2.recordcount = 0 then
    'Non vi sono record corrispondenti
    exit sub
end if

' solo se vi sono record, carico il MSHFlexGrid1

[oregon]

Se il recordset è ottenuto con una SELECT includi la selezione del mese nella WHERE con la MONTH ...

[karl93]

Originariamente inviato da gibra
Trovo molto più semplice ed efficiente usare il metodo Filter:

rs2.Filter = "<campo> <operatore> <valore>"

Cosa intendi per campo,operatore e valore? Puoi farmi un esempio pratico?



Grz a tutti!