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

[ boban__2006 @ 28.04.2006. 02:38 ] @

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.

[ savkic @ 28.04.2006. 09:11 ] @

> 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.

[ Miloš Baić @ 28.04.2006. 10:44 ] @

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

[ boban__2006 @ 02.05.2006. 21:01 ] @

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.

[ Miloš Baić @ 02.05.2006. 23:23 ] @

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]}

[ boban__2006 @ 03.05.2006. 10:36 ] @

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.

[ marcha @ 04.05.2006. 11:27 ] @

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;

[ boban__2006 @ 04.05.2006. 16:50 ] @

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

[ boban__2006 @ 04.05.2006. 17:09 ] @

skontao sam. hvala na pomoci.