[es] - Pretraga firebird baze

MajorFatal
Milija Jakic
opravljam oluke, 1337LAB
Bg

Član broj: 36595
Poruke: 1335
217.24.21.*

+559 Profil

^{31.10.2007. u 22:55 - pre 200 meseci}

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.

Nemoj da pricas?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Pretraga firebird baze

^{01.11.2007. u 00:35 - pre 200 meseci}

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

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

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Pretraga firebird baze

^{01.11.2007. u 09:38 - pre 200 meseci}

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

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

MajorFatal
Milija Jakic
opravljam oluke, 1337LAB
Bg

Član broj: 36595
Poruke: 1335
217.24.21.*

+559 Profil

Re: Pretraga firebird baze

^{01.11.2007. u 12:06 - pre 200 meseci}

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

Nemoj da pricas?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Pretraga firebird baze

^{01.11.2007. u 12:48 - pre 200 meseci}

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

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Pretraga firebird baze

^{01.11.2007. u 12:53 - pre 200 meseci}

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š!?!

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

MajorFatal
Milija Jakic
opravljam oluke, 1337LAB
Bg

Član broj: 36595
Poruke: 1335
217.24.21.*

+559 Profil

Re: Pretraga firebird baze

^{01.11.2007. u 16:37 - pre 200 meseci}

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

Nemoj da pricas?

Odgovor na temu