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

  • 8 odgovora
  • 4.158 pregleda
Kada radim search u dbgrid-u sve radi osim........ 28.04.2006. u 02:38 · pre 249 meseci #1
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.
Re: Kada radim search u dbgrid-u sve radi osim........ 28.04.2006. u 09:11 · pre 249 meseci #2
> 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.
Potpis
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
Re: Kada radim search u dbgrid-u sve radi osim........ 28.04.2006. u 10:44 · pre 249 meseci #3
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
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Re: Kada radim search u dbgrid-u sve radi osim........ 02.05.2006. u 21:01 · pre 249 meseci #4
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.
Re: Kada radim search u dbgrid-u sve radi osim........ 02.05.2006. u 23:23 · pre 249 meseci #5
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]
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Re: Kada radim search u dbgrid-u sve radi osim........ 03.05.2006. u 10:36 · pre 249 meseci #6
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.
Re: Kada radim search u dbgrid-u sve radi osim........ 04.05.2006. u 11:27 · pre 249 meseci #7
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;

Potpis
Marcha
-----------------------------------
Pretpostavka je majka zajeba.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme