Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

SQL izraz s datumskim kriterijima

[es] :: Access :: SQL izraz s datumskim kriterijima

[ Pregleda: 2078 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

rribaric
romano ribarić
rijeka

Član broj: 31410
Poruke: 165
*.net.htnet.hr



Profil

icon SQL izraz s datumskim kriterijima17.09.2004. u 19:10 - pre 209 meseci
Imam problem kod izrade querya.
Koristim funkciju za konvertiranje datuma koju je zidar naveo.
Medjutim javlja mi da je greška u sql izrazu.
Kad pokrenem isti izras a umjesto ovih funkcija date4SQl() navedem fiksne datume u literalima sql izraz funkcionira.
U čemu je greška.
Dali sql izraz uspoređuje (stranaA.datum_izdavanja )tipa date I (date4SQL)tipa string pa zbog toga javlja grešku.Ako je to kako da to otklonim.
A ako tko ima rješenje neka mi kaže kako napraviti SQl izraz koji bi dao podatke na osnovu unesenih datuma.



Function Date4SQL(Date2Convert As Variant) As String
Date4SQL = "#" & Format(CVDate(Date2Convert), "mm/dd/yyyy") & "#"
MsgBox "u procedurisam"
MsgBox Date4SQL
End Function



Public Function fpotvrdi()
Dim CurrentForm As Form
Set CurrentForm = Screen.ActiveForm
Forms!frmdatum.Refresh
On Error GoTo Err_cmdPreview_Click
Dim tsql As String
Dim z, a As Variant

Dim db3 As DAO.Database, tb3 As DAO.Recordset, br As Integer
Set db3 = CurrentDb
Set tb3 = db3.OpenRecordset("parametri")
tb3.MoveFirst
a = tb3!DatumOD
z = tb3!DatumDo
MsgBox a
Rem ovo je kopirani kod
[Forms]![frmreport].Visible = False
Dim stDocName, strsql As String
stDocName = "rptdatum"
MsgBox a
tsql = " SELECT stranaA.* ,stranaB.ID,stranaB.broj "
tsql = tsql & " FROM stranaA ,stranaB "
tsql = tsql & " WHERE stranaB.ID=stranaA.ID AND stranaA.datum_izdavanja BETWEEN " & Date4SQL(a) & " AND " & Date4SQL(z) & ";"


MsgBox tsql




DoCmd.OpenReport stDocName, acPreview, tsql

romano
 
Odgovor na temu

JogyII

Član broj: 29257
Poruke: 623
*.SMIN.panline.net.



Profil

icon Re: SQL izraz s datumskim kriterijima17.09.2004. u 19:42 - pre 209 meseci
probaj ovu funkciju za datum :

Code:

Public Function DateToStr(Datum As Date) As String
    DateToStr = " DateSerial(" & CStr(Year(Datum)) & ", " & CStr(Month(Datum)) & ", " & CStr(Day(Datum)) & ") "
End Function


ova funkcija sluzi za Datum+Vreme :

Code:

Public Function DateTimeToStr(Vreme As Variant) As String
    Dim tVreme As Date
    tVreme = CDate(Vreme)
    DateTimeToStr = " (DateSerial(" & CStr(Year(tVreme)) & ", " & CStr(Month(tVreme)) & ", " & CStr(Day(tVreme)) & ") + TimeSerial(" & CStr(Hour(tVreme)) & ", " & CStr(Minute(tVreme)) & ", " & CStr(Second(tVreme)) & " )) "
End Function


obe koristim vec koju godinu, i vrlo su pouzdane, ali koristi ih za sve datumske parametre, a ne pojedine, jer ces potrositi koji sat da nadjes gde ti je access zamenio mesec i dan jer ti je windows-ov international "nestandardno podesen"

nacin koriscenja :
Code:

tSql = tSql & " WHERE ([GKZ].[DatumPromene]) Between " & DateToStr(SDate) & " And " & DateToStr(EDate) & " ) "








So Long, and Thanks for All the Fish


 
Odgovor na temu

rribaric
romano ribarić
rijeka

Član broj: 31410
Poruke: 165
*.net.htnet.hr



Profil

icon Re: SQL izraz s datumskim kriterijima20.09.2004. u 22:16 - pre 209 meseci
Provjereno radi i jako sam zadovoljan s kodom.
HvALA!
romano
 
Odgovor na temu

rribaric
romano ribarić
rijeka

Član broj: 31410
Poruke: 165
*.net.htnet.hr



Profil

icon Re: SQL izraz s datumskim kriterijima20.09.2004. u 22:17 - pre 209 meseci
Provjereno radi i jako sam zadovoljan s kodom.
HvALA!
romano
 
Odgovor na temu

[es] :: Access :: SQL izraz s datumskim kriterijima

[ Pregleda: 2078 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.