[ MajorFatal @ 31.10.2007. 22:55 ] @
Evo sta sam sve pokusao u nameri da napravim pretragu...

Code:

 Form1.pFIBDataSet1.Close;
   Case ComboBox1.ItemIndex of
   0: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where IME = ' + '''Edit1.Text''';
   1: Form1.pFIBDataSet1.FieldByName(PREZIME).AsString := Edit1.Text;
//  2: Form1.pFIBDataSet1.Locate('TELEFON', Form2.Edit1.Text);
//   3: Form1.pFIBDataSet1.FindField(MOBILNI):= Edit1.Text;
   4: Form1.pFIBDataSet1.Filter:= DATUM+'='''+Edit1.text+'*''';
   5: Form1.pFIBDataSet1.Filter:= 'VRSTA_ROBE'+'='''+Edit1.text+'''';
   6: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where DOBAVLJAC = '' + Edit1.Text '' ';
   7: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where NAZIV_ROBE = '' + Edit1.Text '' ';
   8: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where CENA = '' + Edit1.Text '' ';
   9: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where PLACENO = '' + Edit1.Text '' ';
  10: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where ROK_PLACANJA = '' + Edit1.Text '' ';
   end;
 Form1.pFIBDataSet1.Open;

Za prvih 6 polja 6 razlicitih nacina ali ni za jedno polje pretraga ne radi, ili ispise da ne postoji kolona "Edit1.Text", ili izbrise sve podatke sa grida, ili ostavi sve zapise neizfiltrirane...
Pomagajte.
[ savkic @ 01.11.2007. 00:35 ] @
> Za prvih 6 polja 6 razlicitih nacina ali ni za jedno polje pretraga ne radi, ili ispise da ne postoji kolona "Edit1.Text", ili izbrise sve podatke sa
> grida, ili ostavi sve zapise neizfiltrirane...

Pretpostavljam da radiš u Delphi IDE, i da imaš postavljeno bojenje različitih elemenata (identifikatora, brojeva, stringova), tako napisan dovoljno je da pogledaš u editoru i biće ti jasno na osnovu same boje gde je greška. Osim poređenja po jednakosti (=), u SQL možeš koristiti i STARTING WITH, LIKE, CONTAINING, pogledaj u helpu možda će ti više odgovarati.
[ Miloš Baić @ 01.11.2007. 09:38 ] @
@MajorFatal

Locate se ispravno koristi ovako:
Code:

 //pFIBDataSet1.Locate(Naziv_Atributa, Tekst, []);
 fdsTabela.Loacate('IME', Edit1.Text, []); 


Za filter, moja preporuka je korišćenje parametara:
Code:

 with pFIBDataSet1 do
  begin
   Close;
    SelectSQL.Clear;
    SelectSQL.Add(' SELECT * ');
    SelectSQL.Add(' FROM TABELA ');
    SelectSQL.Add(' WHERE ATRIBUT = :ATRIBUT ');
    //uzecemo za primer da je ceo broj
    Params.ParamByName('ATRIBUT').AsInteger := StrToInt(Edit1.Text); 
    Prepare;
   Open; 
  end;


Sad, otprilike, možeš uočiti gde si grešio.


[Ovu poruku je menjao Miloš Baić dana 01.11.2007. u 11:06 GMT+1]
[ MajorFatal @ 01.11.2007. 12:06 ] @
Na zalost ne radim u delphi IDE, pa nemam bojenje koda, radim u nekom starom Delphi6...Isprobao sam i sle kombinacije sa LIKE pre nego sto sam postavio pitanje ali nije radilo

E ako je loacate pravilno...:) Locate i dalje ne radi, probao sam i sa tim zagradama ranije tu su bili i neki parametri CaseInsensitive ali nista....Ali zato radi onaj filter i hvala ti jos jednom od neba do zemlje ovo je vec treci put da mi pomazes, jes da ne radim nista bitno, za nekog drugara, ali ipak...hvala...
[ savkic @ 01.11.2007. 12:48 ] @
> Na zalost ne radim u delphi IDE, pa nemam bojenje koda, radim u nekom starom Delphi6...

Borland Delphi6? Onda imaš IDE, to je čitavo razvojno okruženje.

[ Miloš Baić @ 01.11.2007. 12:53 ] @
Pravilno je Locate, na brzinu odgovaram, pa desi se, izvinjavam se...
Code:

fdsTabela.Locate('IME', Edit1.Text, [loPartialKey]); 

Trebalo bi da radi!?! Negde grešiš!?!
[ MajorFatal @ 01.11.2007. 16:37 ] @
Ok, onda imam IDE ali nemam to bojenje koda, gde se to aktivira?

A locate stvarno nije radilo, tacno sam to upisivao u zagrade lo PartialKey, loCaseInsensitive, nesto se mislim mozda bi i neki od onih mojih primera redio da sam svaki obmotao sa Close, Open Recordset, nema veze, ovako radi sa onim filterom i ja sam zadovoljan, prosto ne mogu da verujem da cu privesti aplikaciju kraju, to ce mi biti prva u zivotu...