30. november 2010 - 10:42Der er
8 kommentarer og 1 løsning
Problemer med Date time (excel, access)
Hej!
Jeg har form, hvor jeg henter datoer ind, og vælger datoer. Det virkede da det kun var datoen. Nu skal jeg have added time, og så går det galt. Funktionen som jeg benyttede før så således ud. Nogle der kan hjælpe med at udvide den med time stamp også? Andre ting man skal tage højde for?
På forhånd tak.
Public Function ConvertToSqlDate(FunkDato As Date) 'Function converts a date to a SQL-date
Dim SQLYear, SQLMonth, SQLDay
SQLYear = Year(FunkDato) SQLMonth = Month(FunkDato) SQLDay = Day(FunkDato) If SQLDay < 10 Then SQLDay = 0 & SQLDay End If If SQLMonth < 10 Then SQLMonth = 0 & SQLMonth End If
Jeg får følgende fejl: Run-time error '-2147217900 (80040e14)': Der en en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket " parkname = 'Peter' AND TableDate = 10-12-2009 10:10:10".
Kan du hjælpe? Det lader til du har styr på skidtet :-)!
Ja så er der problemer igen :-)! Det virkede ellers godt nok inden jeg konverterede tabellerne til sql serveren.
Jeg har nu flyttet data op på en SQL server og linket tabellerne til Access. Nu fungerer følgende streng ikke mere:
sSQL = "SELECT * From Park WHERE ParkName ='" & sParkName & "' AND TableDate =" & ConvertToSqlDate(dDate) & ""
hvor funktionen er således.
Public Function ConvertToSqlDate(FunkDato As Variant) 'Function converts a datetime to a SQL-date
Dim MyDateStr MyDateStr = Format(FunkDato, "mm-dd-yyyy hh:mm:ss") ConvertToSqlDate = "#" & MyDateStr & "#" End Function
Nogle bud de herrer?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
