VB DATAGRID ricerca dati

[gyonny]

salve a tutti

ho una datagrid in un form collegata a un database con questo codice:

Private Sub Form_Load()
ContImmis1.Attiva
Dim DatDb1 As Connection
Set DatDb1 = New Connection
DatDb1.CursorLocation = adUseClient
DatDb1.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=db1.mdb;Jet OLEDBatabase;"

Set RecRS = New Recordset
RecRS.Open "select Data,Causale,Darea,Importo,Cassa,Note from Cassa Order by IDCassa", DatDb1, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = RecRS

ora dovrei fare una ricerca fra date con le due variabili

dat1 = "12/06/2001"
dat2 = "20/10/2002"

come posso effettuare questa ricerca?

ho provato con

Set RecRS = New Recordset
RecRS.Open "select * from Cassa where data='" & dat1 & dat2 &"'"
", DatDb1, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = RecRS

by
gyonny

[zampa28]

Non ho ben capito, cmq se vuoi lavorare disconnesso:

Dim i, X as integer
X = 2 'indice della colonna nella quale vuoi cercare

For i = 0 to Griglia.Rows -1
   If Griglia.Textmatrix(i,X) = Dat1 or Griglia.Textmatrix(i,X) = Dat2 then
      '........
   end if
next i

[gyonny]

zampa
forse non ho specificato bene il mio problema

in pratica prima della ricerca io nella griglia vedo tutti i record, nella funzione cerca mi deve innanzitutto pulire la griglia e poi cercare tutto l'intervallo compreso fra le due date e mostrare nella griglia solo i record che soddisfano il criterio.

se poi posso farlo connesso o disconnesso dal data è relativo.

by gyonny

[anatroccolo]

Scusa non capisco una cosa nella riga della select??

dateRecRS.Open "select * from Cassa where data='" & dat1 & dat2 &"'"

non è più corretto

Where data > '" & dat1 & "' And Data < '" & dat2 & "'
oppure usare il comando beetwen

Spero di non aver detto una c.....a

Ciao

[gyonny]

ANATROCCOLO

forse hai ragione!

ora provo e ti faccio sapere

ciao