[SQL] Errore su query sql

[Kairex]

Salve a tutti,ho un problema su una query sql che mi da errore sulle stringhe date che ricavo come da variabili 'dal e 'alSe invece inserisco una data FISSA (come nella stringa sql in REM, funziona)mi sapete dire dove sbaglio ???



dal = Dateadd("d", -1, Date())al = DateAdd("d", 7, Date())

'PERCORSO DATABASEurl_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/miotabase.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DBstrOrderBy = "Data"Set RS = Server.CreateObject("ADODB.Recordset")

'sql = "SELECT * FROM Partite WHERE Data BETWEEN #" + "20/03/2014" + "#" + " AND " + "#" + "30/03/2014" + "#" + " ORDER BY " + strOrderBy + ";" QUESTO FUNZIONA !!!!!

sql = "SELECT * FROM Partite WHERE Data >=#" + dal + "#" + " AND Data <=#" + al + "#" + " ORDER BY " + strOrderBy + ";"


Dove sbaglio ???
Grazie
Kairex

[123delphi321]

forse perchè dal e al sono DATE e non stringhe?

[Kairex]

forse perchè dal e al sono DATE e non stringhe?

Ciao Delphi.... ma nella tabella del DB access che apro il formato è data; e inoltre ho sostituito gli apici ai cancelletti per vedere se era quello il problema, ma mi da errore in ogni caso


e questo è l'errore che mi restituisce.......

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "SELECT * FROM Partit"]'

[123delphi321]

ma la stringa che hai postato:

sql = "SELECT * FROM Partite WHERE Data >=#" + dal + "#" + " AND Data <=#" + al + "#" + " ORDER BY " + strOrderBy + ";"

ci sono dal e al che sono formato DATE e tu cerchi di concatenare string e date

devi convertire dal e al in string per unire in string

[Kairex]

ma la stringa che hai postato:

sql = "SELECT * FROM Partite WHERE Data >=#" + dal + "#" + " AND Data <=#" + al + "#" + " ORDER BY " + strOrderBy + ";"

ci sono dal e al che sono formato DATE e tu cerchi di concatenare string e date

devi convertire dal e al in string per unire in string

Ok , ma come faccio a trasformare DAL e AL in stringhe ???
in questo modo :
dal = Str$(Dateadd("d", -1, Date()))
al = Str$(DateAdd("d", 7, Date()))

Non sono molto esperto , puoi darmi un suggerimento ???

[123delphi321]

devi usare una funzione inclusa nel tuo db.

che db usi?

questa cosa la devi fare lato db o lato programma?

[Kairex]

Uso Access il campo è impostato su DATA con formato gg/mm/aaaa)
e uso ASP

[Kairex]

RISOLTO !!!
Questo è il codice:

oggi = Date()


dal = Cstr(oggi - 1) ' 1 giorno prima della data odierna


al = Cstr(oggi + 7) ' 7 giorni dopo della data odierna


url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/miodatabase.mdb")


Set Conn = Server.CreateObject("ADODB.Connection")


conn.Open url_DB


strOrderBy = "Data"


Set RS = Server.CreateObject("ADODB.Recordset")


sql = "SELECT * FROM Partite WHERE Data BETWEEN #" + dal + "#" + " AND " + "#" + al + "#" + " ORDER BY " + strOrderBy + ";"


Grazie 123delphi321 per la tua disponibilità !

[nman]

secondo me è meglio cosi:

sql = "SELECT * FROM Partite WHERE Data BETWEEN #" & dal & "# AND #" & al & "# ORDER BY " & strOrderBy & ";"

Pero non ho capito se hai un motivo particolare per mettere come concatenatore il + alposto del &

.

[Kairex]

secondo me è meglio cosi:

sql = "SELECT * FROM Partite WHERE Data BETWEEN #" & dal & "# AND #" & al & "# ORDER BY " & strOrderBy & ";"

Pero non ho capito se hai un motivo particolare per mettere come concatenatore il + alposto del &

.

No no, nessun motivo. Anzi se dici che è meglio con &, lo cambio ;

Ultimo suggerimento: se volessi aggiungere un altro ordinamento (oltre la data ), per esempio per ora come lo concateno col il precedente ? cioè cosi' ???

strOrderOra = "Ora" ' ora è il campo Ora della Tabella access
sql = "SELECT * FROM Partite WHERE Data BETWEEN #" & dal & "# AND #" & al & "# ORDER BY " & strOrderBy & strOrderOra & ";"