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.
Kada radim search u dbgrid-u sve radi osim........
Zaključano
Zakačeno
> 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.
> 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
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
Verovatno nisi search odradio kako treba?!
Probaj search ovako:
ili
ili sa ADOQuery:
S tim sto moras izvrsiti deklaraciju promenljive filter:
pozzz
Probaj search ovako:
Code:
ADOTable1.Filter := 'Naziv_kolone = ' + QuotedStr(Edit1.Text);
ADOTable1.Filtered := true;
ADOTable1.Filter := 'Naziv_kolone = ' + QuotedStr(Edit1.Text);
ADOTable1.Filtered := true;
ili
Code:
ADOTable1.Filter := 'Naziv_Kolone LIKE ' + QuotedStr(Edit1.Text + '%');
ADOTable1.Filtered := true;
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;
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;
var
filter: String;
pozzz
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
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.
izmenjeno 1 put, poslednji put loshmiscg 03.05.2006. u 00:53
Izmene poruke
- loshmiscg03.05.2006. u 00:53zapis iz teksta poruke
Probaj ovako:
Ovo:
koristis kad radis s ADOQuery komponentom! Verovatno je nisi dobro povezao s BP?!
Code:
ADOTable1.Filter := 'Naziv_Kolone LIKE ' + QuotedStr(Edit1.Text + '%');
ADOTable1.Filtered := true;
Edit1.Clear;
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;
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?!
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
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.
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.
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;
with form1.ADOTable1 do
begin
Filter := 'NazivPolja LIKE ' + QuotedStr(Edit1.Text + '%');
Filtered := Edit1.Text<>'';
end;
Potpis
Marcha
-----------------------------------
Pretpostavka je majka zajeba.
-----------------------------------
Pretpostavka je majka zajeba.
Nije resilo problem. I dalje kada ukucam nesto u edit polje, pa obrisem on ne vrati celu listu proizvoda u dbgrid.:(
skontao sam. hvala na pomoci.