[es] - Kada radim search u dbgrid-u sve radi osim........

boban__2006

Član broj: 85852
Poruke: 58
*.dynamic.sbb.co.yu.

Profil

Kada radim search u dbgrid-u sve radi osim........

^{28.04.2006. u 02:38 - pre 218 meseci}

Kada radim search u dbgrid-u sve radi, osim sto kad obrisem ono sto sam uneo u edit polje, ostane prazan dbgrid. Kako mogu da vratim na staro dbgrid ako je prazno edit polje? Hvala unapred.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{28.04.2006. u 09:11 - pre 218 meseci}

> Kada radim search u dbgrid-u sve radi, osim sto kad obrisem ono sto sam uneo u edit polje, ostane prazan dbgrid. Kako mogu da vratim na
> staro dbgrid ako je prazno edit polje? Hvala unapred.

Nije mi jasno pitanje. Koju DBGrid komponentu koristiš, kako radiš search i čemu služi edit polje.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{28.04.2006. u 10:44 - pre 218 meseci}

Verovatno nisi search odradio kako treba?!
Probaj search ovako:

Code:
ADOTable1.Filter := 'Naziv_kolone = ' + QuotedStr(Edit1.Text);
ADOTable1.Filtered := true;

ili

Code:
ADOTable1.Filter := 'Naziv_Kolone LIKE ' + QuotedStr(Edit1.Text + '%');
ADOTable1.Filtered := true;

ili sa ADOQuery:

Code:
filter:='';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Naziv_Tabele ');
  if Edit1.Text<>'' then
     if filter='' then
        filter:='WHERE Naziv_Kolone LIKE ''' + Edit1.Text + '%'' '
     else
        filter:='WHERE Naziv_Kolone LIKE ''' + Edit1.Text + '%'' ';
ADOQuery1.SQL.Add(filter);
ADOQuery1.Open;

S tim sto moras izvrsiti deklaraciju promenljive filter:

Code:
var
filter: String;

pozzz

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

boban__2006

Član broj: 85852
Poruke: 58
..taman-bg.customer.sbb.co.yu.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{02.05.2006. u 21:01 - pre 218 meseci}

drugi nacin mi radi, ali mi kada upisem nesto u edit polje, pa obrisem, dbgrid ostane prazan. a ovaj treci uopste nista ne radi. :( A da nema mozda neka opcija da kada mi je prazno edit polje, ponovo ucitam sve u dbgrid. Ako mozda imas kod bio bih ti zahvalan.

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{02.05.2006. u 23:23 - pre 218 meseci}

Probaj ovako:

Code:
ADOTable1.Filter := 'Naziv_Kolone LIKE ' + QuotedStr(Edit1.Text + '%');
ADOTable1.Filtered := true;
Edit1.Clear;

Ovo:

koristis kad radis s ADOQuery komponentom! Verovatno je nisi dobro povezao s BP?!

_{[Ovu poruku je menjao loshmiscg dana 03.05.2006. u 00:53 GMT+1]}

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

boban__2006

Član broj: 85852
Poruke: 58
..taman-bg.customer.sbb.co.yu.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{03.05.2006. u 10:36 - pre 218 meseci}

Ne mogu da stavim edit1.clear, jer radim search na dogadjaj edit1.change, probao sam da uradim refresh adotable, ali ni to ne reaguje. Probao sam sa ovim kodom, ali mi ne uspeva:

if edit1.text<>'' then begin
form1.ADOTable1.Filter := 'RobaNaziv LIKE ' + QuotedStr(Edit1.Text + '%');
form1.ADOTable1.Filtered := true;
end;

Molim vas, ako mozete da probate, pa da mi ukazete gde gresim.

Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
213.137.123.*

ICQ: 156892888

+1 Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{04.05.2006. u 11:27 - pre 218 meseci}

AKo sam dobro razumeo sta te muci, ovo bi trebalo da ti resi problem:

Code:

with form1.ADOTable1 do
begin
Filter := 'NazivPolja LIKE ' + QuotedStr(Edit1.Text + '%');
Filtered := Edit1.Text<>'';
end;

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Odgovor na temu

boban__2006

Član broj: 85852
Poruke: 58
..taman-bg.customer.sbb.co.yu.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{04.05.2006. u 16:50 - pre 218 meseci}

Nije resilo problem. I dalje kada ukucam nesto u edit polje, pa obrisem on ne vrati celu listu proizvoda u dbgrid.:(

Odgovor na temu

boban__2006

Član broj: 85852
Poruke: 58
..taman-bg.customer.sbb.co.yu.

Profil

Re: Kada radim search u dbgrid-u sve radi osim........

^{04.05.2006. u 17:09 - pre 218 meseci}

skontao sam. hvala na pomoci.

Odgovor na temu