[VB6] ado - ricerca date

[yyzyyz]

ciao, avevo giaà postato quelkosa del genere, ma nn riesco a trovare il 3d. Non ricordo la stringa da utilizzare con ADO per cercare tutti i record in un determinato campo [target] di date (dal..al..).
E poi popolare il datagrid in base a questa ricerca.

es.

db.Execute "SELECT * FROM TABELLA where (data between #1/1/97# and #12/31/97#)"

[yyzyyz]

:master: sto provando questo codice ma nn restituisce i record desiderati , dove sbaglio

Rs.Close
Rs.Open "select * FROM authors where (dalal between #01/01/03# and #31/01/03#)"
    DataGrid1.ClearFields
    Set DataGrid1.DataSource = Rs

come risultato sulla datagrid mi trovo 2 record con date : 01/01/2003 e 03/02/1931

[g.scardigno]

L'sql di access lavora con date nel formato americano ovvero:
mm/dd/yyyy (cioè mese/giorno/anno) e non nel formato in italiano giorno/mese/anno...
Dovresto convertire il formato con:

data=Format(Date, "mm/dd/yyyy")

Cosi otterrai i risultati voluti...
Infatti se provi le query con access queste conversioni le fa automaticamente...(controlla l'sql che ti crea)

ciao ciao

[yyzyyz]

grazie x la risposta, mi sai dire come dovrei scrivere la stringa del Rs.open

[g.scardigno]

'questa query seleziona tutte le date comprese tra la data odierna e tra 3 mesi
'Date : prende come valore la data del sistema
nel caso di altre date sarebbe: Format(#01/01/03#, "mm/dd/yyyy") 
'stai attento alla chiusura delle stringhe ed agli & 
Dim sql As String
sql = "select * FROM authors where (dalal between" & Format(Date, "mm/dd/yyyy") & " and " & Format(DateAdd("m", 3, Date), "mm/dd/yyyy") & ";"
rs.Open sql

ti conviene far visualizzare il valore del format per vedere le date...
lo potresti fare con delle:
Msgbox Format(Date, "mm/dd/yyyy")

[g.scardigno]

ecco come dovrebbe essere la tua stringa:

Dim sql As String
sql = "select * FROM authors where (dalal between" & Format(#01/01/2003#, "mm/dd/yyyy") & " and " & Format (#31/01/2003#, "mm/dd/yyyy") & ";"
rs.Open sql

Ok?????
:mavieni: :mavieni:

[yyzyyz]

mi da errore di sintassi nella query

[g.scardigno]

prova cosi:

Dim sql As String
sql = "select * FROM authors where (dalal >=" & Format(#01/01/2003#, "mm/dd/yyyy") & " and dalal<=" & Format (#31/01/2003#, "mm/dd/yyyy") & ";"
rs.Open sql

-----

[yyzyyz]

idem, errore di sintassi nell'espressione query.
sono sikuro ke stiamo sbagliando una virgola , ma dove pero'..... xegallo dove sei
grazie x la tuo devozione g.scardigno , vedrai ke alla fine ki la dura la vince.

[verardoelvis]

Secondo me devi togliere il punto e virgola alla fine.
Se lo mette acces, ma non serve.
Io non lo metto mai e non ho mai rogne!
Ciao