26/08/09 17:22
claudio1962
Buonasera a tutti, sono ancora qui a chiedere un aiuto.
Quando effettuo una ricerca tra due date in questo modo funziona correttamente
Se la effettuo in quest'altro modo mi visualizza tutto l'archivio
Potete aiutarmi a capire
Inoltre se volessi fare la ricerca tra due date che attingo da due textbox può andar bene così
Grazie
In parte ho risolto e in questo modo mi legge le date dentro i due textbox e mi estrapola i dati
ma applicandolo in questo modo non funziona
Quando effettuo una ricerca tra due date in questo modo funziona correttamente
rs.Open "SELECT * FROM Enalotto WHERE Data Between #08/01/2009# And #08/31/2009# ", cn, adOpenDynamic, adLockOptimistic, adCmdText
Se la effettuo in quest'altro modo mi visualizza tutto l'archivio
sSQL = sSQL & "SELECT * FROM Enalotto WHERE Data Between #08/01/2009# And #08/31/2009#" sSQL = sSQL & " AND ES1= '" & Text50.Text & "'" sSQL = sSQL & " OR ES2= '" & Text50.Text & "'" sSQL = sSQL & " OR ES3= '" & Text50.Text & "'" sSQL = sSQL & " OR ES4= '" & Text50.Text & "'" sSQL = sSQL & " OR ES5= '" & Text50.Text & "'" sSQL = sSQL & " OR ES6= '" & Text50.Text & "'" rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Potete aiutarmi a capire
Inoltre se volessi fare la ricerca tra due date che attingo da due textbox può andar bene così
sSQL = sSQL & "SELECT * FROM Enalotto WHERE Data BETWEEN " & Text56.Text & " AND " & Text33.Text
Grazie
In parte ho risolto e in questo modo mi legge le date dentro i due textbox e mi estrapola i dati
dat1 = Format(Text56.Text, "mm/dd/yyyy") dat2 = Format(Text9.Text, "mm/dd/yyyy") rs.Open "Select * FROM Enalotto WHERE Data > #" & dat1 & "# And Data <= #" & dat2 & "#", cn, adOpenDynamic, adLockOptimistic, adCmdText
ma applicandolo in questo modo non funziona
dat1 = Format(Text56.Text, "mm/dd/yyyy") dat2 = Format(Text9.Text, "mm/dd/yyyy") sSQL = sSQL & "Select * FROM Enalotto WHERE Data > #" & dat1 & "# And Data <= #" & dat2 & "#" sSQL = sSQL & " AND ES1= '" & Text50.Text & "'" sSQL = sSQL & " OR ES2= '" & Text50.Text & "'" sSQL = sSQL & " OR ES3= '" & Text50.Text & "'" sSQL = sSQL & " OR ES4= '" & Text50.Text & "'" sSQL = sSQL & " OR ES5= '" & Text50.Text & "'" sSQL = sSQL & " OR ES6= '" & Text50.Text & "'" rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Ultima modifica effettuata da claudio1962 26/08/09 18:44
aaa