filtriranje tabele po vise uslova

2

filtriranje tabele po vise uslova

offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Ajde daj mi primer tvog koda, da ga isprobam kod sebe, pa ću da ti debagujem, pošto ovako možemo nagađati do sutra...

Ako budeš kačio ovde kod ne zaboravi da napišeš i tipove polja baze, da bih mogao to da isprobam Very Happy.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Mar 2005
  • Poruke: 31

Izvini sto te gnjavim.Znaci imam tabelu sa sledecim poljima:Rbr - autoincrement,Datum-string,Proizvod-string,Bar kod - string,Plu kod - string,Pgrupa - string,Kolicina - Number,Cena - currency.

E sad bih da napravim 6 editboxova za filtriranje ove tabele.Napravio sam filter za svaku posebno i to mi odradjuje...table.filter := 'Polje = ' + quotedstr(edit1.text);Znaci radi mi za svaku posebno s tim sto mi filtrira samo po tom polju.A ja bih hteo da mi filtrira po malo vise polja ako napisem datum da mi filtrira po njemu ali i po nekom drugom polju,znaci da mi filtrira po vise kriterijuma.

Ako napisem onaj kod sa "and" nece da se pokrene izbaci mi onu gresku koju sam vec napisao.
Znaci nece ovako: TABLE.FILTER := 'Datum = ' +QUOTEDSTR(EDIT1.TEXT) AND 'Proizvod = ' + QUOTEDSTR(EDIT2.TEXT);



offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Ma ne gnjaviš uopšte, pa zato smo tu da pomognemo Wink.

E ovako, ovaj kod ti sigurno radi kako treba, a greška u ovom prethodnom je što je and izvan apostrofa, a ako pažljivo pogledaš u mojim primerima je između apostrofa, tj. i to AND prosleđuješ kao string za filter:

with ADOTable1 do begin   ADOTable1.Filtered:=false;   ADOTable1.Filter:='ime = ' + QuotedStr(Edit1.Text) + ' AND vladanje < ' + Edit2.text;   ADOTable1.Filtered:=true; end;

offline
  • Pridružio: 04 Mar 2005
  • Poruke: 31

E sad je u redu.Mucio sam se s ovim dugo vremena.Imam brdo nekih knjiga o delphiju ali ni u jednoj nesto o ovome.Malo nesto o filtriranju,tek da se dotaknu teme.U svakom slucaju hvala vam svima na pomoci i 'dovidjenja' do sledeceg problema.

offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Ajde, drago mi je da je proradilo kao treba Wink... Pozdrav do sledećeg problema Very Happy!

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

joj... sve ovo je moglo dooooooosta lakse sa SQL upitom kako je beli i rekao (znam, dosadan sam sa tim Very Happy)

offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Pa ovo u suštini i jeste SQL upit koji prosleđuješ Filter propertiju Tabele baze, tako da i jeste mnogo lako Very Happy. Dobro, nije baš SQL upit, ali je jako slično, a i ne treba ti nikakva dodatna komponenta na formi, pošto bi ti za ovo trebao još i SQLQuery, a ovako sve radiš direktno sa tabelom... Ipak je ovo lakše u Delphiju Wink.

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Ne treba ni za VB/C# nikakva komponenta. Samo trebaš da referenciraš ADO biblioteku i to je to, a ima taj Filter i u VBu, ali ga ja nisam koristio iz dosta puta pominjanog razloga - nemam veliku slobodu stim...

Ko je trenutno na forumu
 

Ukupno su 914 korisnika na forumu :: 7 registrovanih, 1 sakriven i 906 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: bladesu, DejanCG, draggan, gomago, nemkea71, saputnik plavetnila, UAV operator