Gdje je greska u kodu?

Gdje je greska u kodu? 15.01.2004. u 16:16 · pre 277 meseci #1

Ovaj kod, naravno prilagodjen imenima u projektu i bazi, sluzi za stampanje podataka:

Code:

Str = "SELECT IMETABELE.IMEKOLONE1, IMETABELE.IMEKOLONE2, IMETABELE.IMEKOLONE2, IMETABELE.DATUM " & _
   "FROM IMETABELE " & _
   " WHERE IMETABELE.DATUM = " & frmIMEFORME.lblIMELABELE.Caption

   Set IMERECORDSETA = New ADODB.Recordset
   IMERECORDSETA.Open Str, IMEKONEKCIJE, adOpenDynamic, adLockOptimistic
   Set drIMEDATAREPORTA.DataSource = IMERECORDSETA

Kada ga pokrenem javlja sledece:

Syntax error in number in query expression ‘IMETABELE.DATUM = 15.1.2004’

Naravno da je rekordset definisan, da se tabeli pristupa preko drugog rekordseta.
Podaci koje uzimam mi takodje trebaju zato stoje u SELECT upitu. Gresku javlja kod:

IMERECORDSETA.Open Str, IMEKONEKCIJE, adOpenDynamic, adLockOptimistic

U cemu bi mogla da bude greska?

Re: Gdje je greska u kodu? 15.01.2004. u 16:22 · pre 277 meseci #2

probaj ovo

Code:

" WHERE IMETABELE.DATUM = " & frmIMEFORME.lblIMELABELE.Caption

da zamenis sa

Code:

" WHERE IMETABELE.DATUM = #" & frmIMEFORME.lblIMELABELE.Caption & "#"

s tim sto ces najverovatnije morati da uradis i ovo

Code:

Format(frmIMEFORME.lblIMELABELE.Caption, "MM/DD/YYYY")

Potpis

Blue Man Group

Re: Gdje je greska u kodu? 15.01.2004. u 18:06 · pre 277 meseci #3

Poslije dodavanja tarabe javlja sledece:

Syntax error in date in query expression ‘IMETABELE.DATUM = #15.1.2004#'

Kada dodam"

Code:

Format(frmIMEFORME.lblIMELABELE.Caption, "MM/DD/YYYY")

Ne prihvata tu fukciju, javlja da nedostaje znak "="

Inace, u bazi se datum upisuje u obliku (za danasnji dan) 15.1.2004, upisuje se iz te iste labele i ne znam zasto ne bi mogao da ih uporedi?!

P.S. Da li bi upotreba ove f-je na svim mjestima na kojima se radi sa datumom
onemogucila greske koje se javljau kada se program prenese na kompjuter kod
kojeg je ispis datuma drugaciji?

Re: Gdje je greska u kodu? 15.01.2004. u 18:37 · pre 277 meseci #4

Hm, ja u svojim aplikacijama uvek prosledjujem separator "/" (verovatno postoji neki dobar razlog, ovo sam davno napravio, pa se i ne secam vise :)), tako da probaj da iskoristis ovaj kod ispod. On formatira datum u odgovarjuci format i zamenjuje tekuci date separator sa onim koji mu je prosledjen (default je /)

Code:

'LOCAL SETTINGS CONSTANTS
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SDATE = &H1D            ' date separator

' retrieve local settings (country, language, date format, date separator, ...)
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer  As String
    Dim Ret     As Long

    Buffer = String$(256, 0)
    Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))

    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = ""
    End If

End Function

Public Function MyFormatDate( _
    dDate As Date, _
    sFormat As String, _
    Optional sSeparator As String = "/" _
    ) As String
Dim curSep As String
    curSep = GetInfo(LOCALE_SDATE)

    MyFormatDate = Replace(Format(dDate, sFormat), curSep, sSeparator)
End Function

Kad prosledjujes datum u SQL upit, pozovi MyFormatDate(NekiDatum, "MM/DD/YYYY")

Code:

Str = "SELECT IMETABELE.IMEKOLONE1, IMETABELE.IMEKOLONE2, IMETABELE.IMEKOLONE2, IMETABELE.DATUM " & _
"FROM IMETABELE " & _
" WHERE IMETABELE.DATUM = #" & MyFormatDate(frmIMEFORME.lblIMELABELE.Caption, "MM/DD/YYYY") & "#"

Koliko se secam, kad prosledjujes datum SQL upitu uvek se formatira u "MM/DD/YYYY", bez obzira na Local Settings, a kad upisujes u bazu prosledis ga takvog kakav jeste, pa se baza pobrine da upise kako valja. Ovo sigurno radi sa Accessom, za druge baze nisam siguran. Btw, sa kojom bazom radis?

Potpis

Blue Man Group

Re: Gdje je greska u kodu? 15.01.2004. u 21:46 · pre 277 meseci #5

Radim bazu u Access-u, a kada se radi u SQL-u javlja probleme zavisno od toga kako se cuva datum.
U access-u, u bazi, upisuje datum bas onako kako je upisan u labeli, zato ne znam zasto ne radi kod koji sam napisala.
Cini mi se pomalo i komplikovanim koriscenje ove f-je koju si napisao. Da li treba da je koristim prilikom svakog upisa datuma u bazu ili samo ovdje gdje citam datum iz baze?

Ne mogu da provjerim da li radi jer nisi napisao f-ju GetLocaleInfo koju koristis u f-ji GetInfo.

Re: Gdje je greska u kodu? 15.01.2004. u 23:26 · pre 277 meseci #6

Sto ne rece odmah da radis u Access-u...

Code:
Str = "SELECT IMETABELE.IMEKOLONE1, IMETABELE.IMEKOLONE2, IMETABELE.IMEKOLONE2, IMETABELE.DATUM " & _
"FROM IMETABELE " & _
" WHERE IMETABELE.DATUM = " & Clng(Cdate(frmIMEFORME.lblIMELABELE.Caption))

Re: Gdje je greska u kodu? 16.01.2004. u 00:50 · pre 277 meseci #7

Citat:

Robinsonk@:
Poslije dodavanja tarabe javlja sledece:

Syntax error in date in query expression ‘IMETABELE.DATUM = #15.1.2004#'

Kada dodam"

Code:

Format(frmIMEFORME.lblIMELABELE.Caption, "MM/DD/YYYY")

Ne prihvata tu fukciju, javlja da nedostaje znak "="

Inace, u bazi se datum upisuje u obliku (za danasnji dan) 15.1.2004, upisuje se iz te iste labele i ne znam zasto ne bi mogao da ih uporedi?!

P.S. Da li bi upotreba ove f-je na svim mjestima na kojima se radi sa datumom
onemogucila greske koje se javljau kada se program prenese na kompjuter kod
kojeg je ispis datuma drugaciji?

Dodaj na kraj CSTr(Format...) posto verovatno trazi string u SQL upitu.

Re: Gdje je greska u kodu? 16.01.2004. u 10:39 · pre 277 meseci #8

ssteva, taj kod mi vraca kao rezultat, za npr. danasnji datum 38002 i onda program javlja da
DataField'(empty)' not found jer nije u tom formatu upisan datum.

I kad stavim:

" WHERE Clng(Cdate(IMETABELE.DATUM ))= " & Clng(Cdate(frmIMEFORME.lblIMELABELE.Caption))

opet isto.

ByTer. Ne prihvata ovu f-ju:

CSTr(Format (frmIMEFORME.lblIMELABELE.Caption, "MM/DD/YYYY"))

javlja da Expected:identifier

Re: Gdje je greska u kodu? 16.01.2004. u 11:37 · pre 277 meseci #9

Citat:

Robinsonk@:
ssteva, taj kod mi vraca kao rezultat, za npr. danasnji datum 38002 i onda program javlja da
DataField'(empty)' not found jer nije u tom formatu upisan datum.

I kad stavim:

" WHERE Clng(Cdate(IMETABELE.DATUM ))= " & Clng(Cdate(frmIMEFORME.lblIMELABELE.Caption))

opet isto.

Konverzija u Long radi sigurno, bez obzira na format lokalnog datuma i to od Accessa 97 do 2003, probao sam.
Da li je polje IMETABELE.DATUM definisano kao Date/Time u tabeli?
Posalji originalni SQL upit koji ne radi, verovatno je tu problem.

Re: Gdje je greska u kodu? 16.01.2004. u 12:01 · pre 277 meseci #10

Umjesto datuma stavila sam da trazi polje koje ima cjelobrojnu vrijednost tj.

" WHERE IMETABELE.IMEKOLONE = " & frmIMEFORME.lblIMELABELE.Caption

i javlja:

DataField'(empty)' not found

Pretpostavljam da je onda resenje koje je dao ssteva za datum dobro, a ovaj kod ima neku drugu gresku koja nije vezana za format datuma!

Inace, polje jeste podeseno na DateTime.

Re: Gdje je greska u kodu? 16.01.2004. u 12:41 · pre 277 meseci #11

Uspjela sam da rijesim. Koristila sam resenje koje je ponudio ssteva.
Hvala.
Hvala svima koji su mi pomagali.

Forum kao aplikacija na telefonu

Srodne teme