[VB6] SQL en datums

[wolly_a]

Ik kan er even helemaal niet meer uitkomen. Het gaat om het volgende: ik wil graag alle items uit een database halen die tussen twee datums vallen. Dat deed ik als volgt:

Data1.RecordSource = "SELECT * FROM data WHERE datumin <= #" & Date & "# AND datumout > #" & Date & "#"

In de database is datumin 22-7-2006 0:00:00 en datumout 9-9-9999 23:59:59. Dit zijn beide datum/tijd velden in de database.

Ik dacht dat dit werkte, dat deed het ook, totdat het nu ineens 1 augustus is. Nu blijkt 1-8-2006 kleiner te zijn datum 22-7-2006. Dus er gaat toch nog iets fout. Hoe kan ik dit in vredesnaam oplossen?

[bigbeng]

probeer het eens met 2006-08-01 en 2006-07-22

[Reinier]

Gebruik je wel netjes datumvelden voor datumin en datumout? sorry, ja dus
Je kunt ook between gebruiken trouwens.

[ Voor 10% gewijzigd door Reinier op 01-08-2006 14:42 ]

[kenneth]

Gebruik parameters ipv string concatenation om query op te bouwen.
Zie oa hier.

[Tijgertje84]

lol dat is precies waar ik nu ook mee zit
alleen heb ik het met PHP dus ik zal hiervoor dan wel een andere topic starten aangezien het niet over VB6 gaat.

[wolly_a]

Hmm... de between van Reinier functioneert ook niet. De parameters zeggen me zo niets en ik heb dan ook geen flauw idee hoe ik bovenstaande query kan ombouwen naar iets met parameters. Het is overigens niet zo dat de query een foutmelding geeft, maar het geeft helemaal geen resultaten.

[wolly_a]

Hmmm.... t sorteren op datums werkt nu. Ik heb het zo opgelost, tenminste... Zo werkt het nu, maar is dit ook een goede methode?

strdate = Format$(CStr(Date), "yyyy-mm-dd")
Data1.RecordSource = "SELECT * FROM data WHERE datumin <= #" & strdate & "# AND datumout > #" & strdate & "#"
Data1.Refresh

[Reinier]

Is date geen reserved word?

[Verwijderd]

Date is inderdaad een functie ergens in VB6 die de huidige datum teruggeeft (afaik). Verder kan je inderdaad beter parameters gebruiken zoals Kenneth aangeeft. Dat scheelt rare conversiefouten en mogelijkheden tot SQL insertions.

[kenneth]

Het probleem is dat jij 1-8-2006 als 1 augustus ziet, maar de Query Engine ziet het als January Eigth Kortom: verschillende datumnotaties.
Een mogelijke oplossing is het gebruiken van de ISO-datumnotatie (yyyy-mm-dd) zoals hierboven aangegeven.
De uiteindelijke oplossing is parametriseren, omdat je dan geen datum<->string<->datum conversie meer hebt.

[Verwijderd]

wolly_a schreef op dinsdag 01 augustus 2006 @ 15:36:
Hmmm.... t sorteren op datums werkt nu. Ik heb het zo opgelost, tenminste... Zo werkt het nu, maar is dit ook een goede methode?

strdate = Format$(CStr(Date), "yyyy-mm-dd")

Volgens mij ga je hier sowieso de mist in door CStr aan te roepen.

Haal de "-" uit de formattering. Dit teken wordt aangepast aan je lokale instellingen. Niet handig dus als je ISO 8601 notatie wilt hebben.

Zoiets krijg je dan als je parameterized queries gebruikt...

Visual Basic:

strdate = Format$(Year(Date),"0000" & "-" & Format$(Month(Date),"00") & "-" & Format$(Day(Date),"00")

[kenneth]

Visual Basic:

strdate = Format(Date,"yyyy-mm-dd")

En als je parametriseert, hoef je helemaal niet meer te formatteren en te converteren, dat is het hele punt ervan.

[ Voor 55% gewijzigd door kenneth op 01-08-2006 18:16 ]