[ Zmaj @ 18.02.2004. 00:45 ] @
Imam problem sa Filterom i ADO tabelom, sa filtriranjem integer polja radi, dok sa string poljem ne radi.

ovo radi
AdoTabel1.Filter := 'Tip = '+IntTostr(Value);

dok ovo ne radi
ADOTable1.Filter := 'Naslov = '+QuoteStr(Edit1.text+'*');

Probao sam razne kombinacije i nece da radi. KOd koji ide oko ovih komandi je isti u oba slucaja
ADOTable1.Filtered := True;

dok je (default) FilterOptions := [];

Zasto neradi ono sa stringovima?
[ Zmaj @ 23.02.2004. 00:42 ] @
Ako necete da mi odgovorite zato sto mislite da nisam pretrazio forum onda se varate.

Ako se neko razume u problematiku molio bih da mi pomogne.
[ dejanet @ 23.02.2004. 09:31 ] @
Mislim da te zeza (*), probaj ovo:

adotable1.filtered:=false;
adotable1.filteroptions:=[foCaseInsensitive];
adotable1.filter:='Ime = '+QuotedStr(edit1.text+'*');
adotable1.filtered:=true;

Pozdrav.
[ Zmaj @ 24.02.2004. 01:34 ] @
evo original metode, koja ne radi

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule3.ADOTable1.Filtered := False;
if Length(Edit1.text) > 0 then
begin
DataModule3.ADOTable1.Filter := 'Naslov='''+ Edit1.text+'*''';
DataModule3.ADOTable1.Filtered := True;
end
else
DataModule3.ADOTable1.Filter := '';
end;

Nekome ce mozda biti smesno ovo sto pitam, ali da li je problem u tome sto koristim DataModule?

Da li mozda treba da pise, i da li to ima veze
'Naslov = '''+ Edit1.text+'*''';
ovo sa razmacima kod znaka jednako?
[ byTer @ 24.02.2004. 15:12 ] @
Ako ne radi probaj da generises ceo SQL upit ispocetka.

Znaci

DataModule.SQL1.SQL.Clear;
DataModule.SQL1.SQL.Add('ovde tvoja SQL naredba')
DataModule.SQL1.Active:=True;