Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Pascal / Delphi / Kylix :: Kada radim search u dbgrid-u sve radi osim........

[ Pregleda: 3069 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

boban__2006

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



Profil

icon Kada radim search u dbgrid-u sve radi osim........28.04.2006. u 02:38 - pre 195 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: 2700



+82 Profil

icon Re: Kada radim search u dbgrid-u sve radi osim........28.04.2006. u 09:11 - pre 195 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.
 
Odgovor na temu

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

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



Profil

icon Re: Kada radim search u dbgrid-u sve radi osim........28.04.2006. u 10:44 - pre 195 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

icon Re: Kada radim search u dbgrid-u sve radi osim........02.05.2006. u 21:01 - pre 195 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

icon Re: Kada radim search u dbgrid-u sve radi osim........02.05.2006. u 23:23 - pre 195 meseci
Probaj ovako:
Code:
ADOTable1.Filter := 'Naziv_Kolone LIKE ' + QuotedStr(Edit1.Text + '%');
ADOTable1.Filtered := true;
Edit1.Clear;


Ovo:
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;
Edit1.Clear;

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

icon Re: Kada radim search u dbgrid-u sve radi osim........03.05.2006. u 10:36 - pre 195 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

icon Re: Kada radim search u dbgrid-u sve radi osim........04.05.2006. u 11:27 - pre 195 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

icon Re: Kada radim search u dbgrid-u sve radi osim........04.05.2006. u 16:50 - pre 195 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

icon Re: Kada radim search u dbgrid-u sve radi osim........04.05.2006. u 17:09 - pre 195 meseci
skontao sam. hvala na pomoci.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kada radim search u dbgrid-u sve radi osim........

[ Pregleda: 3069 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.