[ Uros04 @ 07.02.2004. 15:15 ] @
Pozdrav,

imam jedan (za mene delikatan) problem, recimo da imam ovakvu tabelu (PARADOX):

Mesec Cena
Jan 100
Jan 300
Dec 1000
Feb 2000
... ...

sad treba da uradim deo programa na kome ce biti DROPDOWNBOX gde ce korisnik izabrati mesec a program mu obracunati
zaradu za zadati mesec. Nadam se da sam bio jasan.

Hvala unapred!
[ Milos D @ 08.02.2004. 15:58 ] @
Na primer, recimo da imas neki pomocni upit (TQuery), u OnChange od ComboBoxa u kojem su meseci, stavis:
upit.close;
upit.sql.text := 'select sum(cena) from ime_tabele where mesec="'+comboMeseci.Text+'"';
upit.open;
labelaSuma.Caption := upit.fields[0].AsString;
[ Uros04 @ 08.02.2004. 22:09 ] @
Citat:
Milos D:
Na primer, recimo da imas neki pomocni upit (TQuery), u OnChange od ComboBoxa u kojem su meseci, stavis:
upit.close;
upit.sql.text := 'select sum(cena) from ime_tabele where mesec="'+comboMeseci.Text+'"';
upit.open;
labelaSuma.Caption := upit.fields[0].AsString;


Pozdrav,

code koji si postovao ne radi bas najbolje, tacnije ne radi uopste.
Ovako, u datamodule sam stavio:

datasource1 i TQuery, na TQuery sam stavio da koristi odredjenu bazu
i u SQL String stavio (select * from baza) zatim ucitao sva polja u FIELD EDITOR, i to je oK!
Onda sam na formi stavio dropdown i na onChange property stavio tvoj code, ali ja imam jos par polja u toj tabeli (id,cena,mesec). Kad izvrsim onChange
dobijem gresku da mi ID ne postoji u bazi!?

Ima li resenja?

Hvala jos jednom!
[ Milos D @ 09.02.2004. 12:24 ] @
Probaj sa praznim query objektom. Ovo nije radilo zato što nakon dodavanja polja u field editor svaki put kad otvoriš query delphi očekuje da nadje sva ta polja, i ako promeniš sql, a nekog od polja više nema, dodje do greške. Mogao bi da pobrišeš polja, ali bolje da imaš neki prazan pomoćni query povezan sa bazom ali bez sql-a za ovakve potrebe...
[ Uros04 @ 09.02.2004. 14:29 ] @
E sad je dobro, hvala ti!

I imam jos jedno pitanjce kako da uradim update polja npr. Feb, probao sam sa

update baza set combomeseci.text=vrednost where (sta ovde da stavim?)

ovo je bez navodnika, bez ichega. Ima li pomoci?

hvala jos jednom!
[ Milos D @ 09.02.2004. 22:51 ] @
Moras da nadjes neko SQL uputstvo ;)

update ime_tabele set mesec = "'+combomeseci.text+'" where uslov'

e sad, šta je uslov, to već zavisi od ostalih polja. Ako imaš jedinstveni ID, onda

...' where id = '+fieldID.AsString

s tim što fieldID treba da zameniš sa stvarnim nazivom tog polja...
[ Uros04 @ 10.02.2004. 14:09 ] @
Moracu nabavati :)

hvala!