[VB6] Ricerca approssimata per data

[Magicolotto]

Dim cerca As String
cerca = InputBox("cerca una estrazione in archivio inserisci il separatore / es: 11/02/2006 ", "Data")
If Len(Trim(cerca)) > 0 Then
If adoPrimaryRS.BOF = False And adoPrimaryRS.EOF = False Then
mvBookMark = adoPrimaryRS.Bookmark
End If
cerca = "Data='" & UCase(Trim(cerca)) & "'"
adoPrimaryRS.Find cerca

If adoPrimaryRS.EOF Then
If mvBookMark > 0 Then adoPrimaryRS.Bookmark = mvBookMark
MsgBox "Ricerca Fallita estrazione non trovata", vbInformation + vbOKOnly, "Find"
Else
MsgBox "Estrazione Rintracciata" & " " & UCase(Trim(cerca))
txtFields(0).BackColor = &HFFFF&
End If
End If
Exit Sub
LocalErr:
MsgBox Err.Description

ciao ragazzi
con il codice di sopra riesco a trovare una data esatta nel campo inserito in tutto l'archivio

essa funziona bene se si inserisce una data esistente , pero' se inseriamo una data non presente mi restituisce il messaggio non trovata

io vorrei far si che nel momento in cui si inserisce una data non presente in archivio venga visualizzatta la data precedente piu vicina alla data inserita

è possibile fare cio'??


grazie

[oregon]

Potresti mettere nel criterio di ricerca il <= ovvero

"Data<='"

[Magicolotto]

cerca = "Data<='" & UCase(Trim(cerca)) & "'"

PROVATO, MI DICE ESTRAZIONE RITRACCIATA , PERO NON SI POSIZIONA SULL'ESTRAZIONE

[oregon]

RI(N)TRACCIATA ...

Adesso non trova piu' un solo record ma un insieme di record (perche' tanti possono essere quelli minori o uguali). Secondo il tipo di ordinamento usato (e non so se hai degli indici) dovresti usare un MoveLast o un MoveFirst ... Insomma dovresti controllare nel recordset ...

[Magicolotto]

Originariamente inviato da oregon
RI(N)TRACCIATA ...

Adesso non trova piu' un solo record ma un insieme di record (perche' tanti possono essere quelli minori o uguali). Secondo il tipo di ordinamento usato (e non so se hai degli indici) dovresti usare un MoveLast o un MoveFirst ... Insomma dovresti controllare nel recordset ...

RINTRACCIATA, ho scritto di fretta cmq grazie

si ho degli indici

usare un MoveLast o un MoveFirst
come?

[oregon]

Hai controllato, in modalita' debug, il contenuto dei vari elementi del recordset ...?

[Magicolotto]

non ho ancora provato, mi devo aggiornare come fare, poi provero' e vedro'

grazie