VB SQL code problem

[ Goran Goran @ 21.03.2005. 19:56 ] @

Code:

adoPrimaryRS.Open "insert into obrada1 (mjesec, prezime, sati1, sati2)
                        select Mjesec, Prezime,
                               5 + (sum(sati1)-5)*0.6* decode(sign(sum(sati1)-5),1,1,0)
                                   ,
                                   (sum(sati1)-5)* decode(sign(sum(sati1)-5), 1, 0.4, 1)
                        from   obrada
                        where  mjesec=1
                        group by Mjesec, prezime"
            , db, adOpenStatic, adLockOptimistic

Javi gresku: Undefined function 'decode' in function i podvuce taj red!

Sta bi mogla biti greska?

[ mladenovicz @ 22.03.2005. 10:08 ] @

A sta je decode?

[ Goran Goran @ 22.03.2005. 20:58 ] @

Hm, pa to bi navodno trebalo biti nesto kao IF naredba za SQL code
Neznam ni ja tocno... cuo sam da bi taj doticni kod tako nekako trebao ici

Taj code bi trebao raditi ovako nesto:

Code:

if radni_sati <= norma then sati1=norma, sati2=radni_sati-norma
else
sati1=norma + 0.6 * (radni sati-norma) sati2 = (radni sati-norma) * 0.4
end if

' Nesto slicno ovome da upisuje u doticne tablice (iz tablice OBRADA u OBRADA1)

[ mladenovicz @ 23.03.2005. 09:43 ] @

Ako radis sa Access bazom tu funkciju moras definisati negde u bazi u modulu

[ Goran Goran @ 24.03.2005. 07:54 ] @

Citat:

mladenovicz: negde u bazi u modulu

A gdje npr?

To mi nije bas jasno!

[ mladenovicz @ 24.03.2005. 08:54 ] @

Kad otvoris Access bazu, u onom prozorcetu gde ti prikazujelistu tabela, sa leve strane klikni na Modules, pa New i otvori ti se VBA tu kucas kod (Public Function ...), snimis i to bi trebalo biti to.

[ Goran Goran @ 27.03.2005. 16:45 ] @

Ok, probao sam al i dalje javlja istu gresku.
Sta konkretno treba da upisem?
Public function...???

pr.

Code:

Public Function A()

'i sad ovdje upisem cjeli kod iz VB Form-a ili ne?

End Function

Da li ja trebam nekako je pozvati iz mog programa?

Mozete li to malo detaljnije opisati?

[ mladenovicz @ 27.03.2005. 18:29 ] @

Code:

Public Function decode(lista_parametara)
...
End Function

[ Goran Goran @ 29.03.2005. 12:10 ] @

Lista parametara ??!!??

Koje mu parametre trebam napisati?
Da li kao code funkcije trebam napisati ovako nesto?

Code:

Public Function decode(????????)

adoPrimaryRS.Open "insert into obrada1 (mjesec, prezime, sati1, sati2)
                        select Mjesec, Prezime,
                               5 + (sum(sati1)-5)*0.6* decode(sign(sum(sati1)-5),1,1,0)
                                   ,
                                   (sum(sati1)-5)* decode(sign(sum(sati1)-5), 1, 0.4, 1)
                        from   obrada
                        where  mjesec=1
                        group by Mjesec, prezime"
            , db, adOpenStatic, adLockOptimistic

End Function

Da li da koristim ovaj kod ili onaj iz prethodne poruke?

Stvarno se tesko moze naci neko ko se stvarno razumije u te stvari kao Vi ... Da li bi Vam bio problem malo prepraviti ovaj kod da radi?

Puno hvala unaprijed.

[ mladenovicz @ 29.03.2005. 12:59 ] @

Code:

decode(sign(sum(sati1)-5),1,1,0)

Po ovome se vidi da funkcija treba da ima 4 parametra.

Kod koji si postovao ostaje tamo gde jeste. Koji kod ide u decode ne znam, ti pravis aplikaciju, a ne ja. ;) Moras da definises sta su ulazni parametri i sta treba funkcija da vrati na osnovu parametara.

P.S.
Bez persiranja, please

[ Goran Goran @ 31.03.2005. 15:24 ] @

Ok, ok...

Ajmo ovako...

... kako bi glasio jednostavniji program ( ako njega skuzim, onda cu znati zakomplicirat svojim zadatkom)?

Ako imamo prozor sa TextBoxom i ComandButton. Ako imam bazu C:\Baza.mdb u kojoj ima Tablica sa Polje1 i Polje2.

Kako bi glasio kod koji radi ovako:

Code:

' Upisemo u textbox broj i na pritisak buttona radi:

Ako je Text1.text > od 100 u Polje1 upise 5 a u Polje2 upise 8
Ako nije u Polje1 upise 15 a u Polje2 upise 18