[VB6] ricerca di una sottostringa in un campo utilizzando DAO

[aleliguori]

Salve a tutti!
Ho cercato un bel po' prima di aprire una nuova discussione... è un problema (credo) banale ma che non riesco a risolvere.

Sono a conoscenza del fatto che l'utilizzo del controllo Data è obsoleto e non consigliato ma sto modificando un sorgente di un vecchio programma e non mi va di riscrivere tutto.

Fatte queste premesse, vado al problema.

Devo effettuare la ricerca di una sottostringa all'interno di un campo e non della stringa intera.
Il codice originale (ridotto all'osso) è il seguente:

On Error Resume Next

queryString = "Data = '" & dataInserita & "'"
    
frm_dati.data_db.Recordset.MoveFirst
frm_dati.data_db.Recordset.FindFirst queryString
    
If frm_dati.datiDatiImportati.Recordset.NoMatch Then
   risp = MsgBox("Nessuna corrispondenza con " & dataInserita, vbOKOnly + vbInformation, "Info")
Else
   risp = MsgBox("La data inserita è presente!", vbOKOnly + vbInformation, "Info")
End If

Nel nuovo db che viene utilizzato nel campo Data viene inserito (vorrei uccidere chi lo ha fatto) anche l'orario nel formato gg/mm/aaaa hh:mm:ss
A questo punto devo in qualche modo modificare la queryString in modo che mi cerchi la stringa gg/mm/aaaa con qualunque ora.

Ho provato con

queryString = "Data = '" & dataInserita & "*'"

e anche con

queryString = "Data LIKE '" & dataInserita & "%'"

...ma in ogni caso non riesco a trovare mai la data inserita.

Dove sbaglio?
Con FindFirst non è possibile trovare una sottostringa??

Illuminatemi

[oregon]

DataInserita contiene la data da cercare ... in quale formato?

[aleliguori]

Nel formato corretto.. ossia gg/mm/aaaa

In pratica prima tutto funzionava perchè nel DB nel campo data c'era solo la data... ora il campo data contiene anche l'ora che io devo ignorare.

[oregon]

Prova con

queryString = "Data = #" & dataInserita & "#"

( non usare l'apice ma il carattere # )

[aleliguori]

Purtroppo il problema persiste

[oregon]

A me funziona ... pero' noto che nel tuo codice scrivi

frm_dati.data_db.Recordset.MoveFirst
frm_dati.data_db.Recordset.FindFirst queryString

e poi

If frm_dati.datiDatiImportati.Recordset.NoMatch Then

e quindi utilizzi due controlli data diversi

data_db

datiDatiImportati

... come mai?

[aleliguori]

no scusa.. semplice errore di trascrizione del codice. E' lo stesso controllo

[oregon]

Data1.Recordset.FindFirst "DateValue(dt) = #22/10/2007#"

[aleliguori]

scusa... ma cos'è DateValue(dt)

[oregon]

dt e' il nome del campo che ho utilizzato ... tu devi utilizzare Data ... ti scrivo la riga per il tuo caso

queryString = "DateValue(Data) = #" & dataInserita & "#"