Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Stara FoxPLUS Baza i pretraga...

[es] :: Pascal / Delphi / Kylix :: Stara FoxPLUS Baza i pretraga...

[ Pregleda: 1468 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Stara FoxPLUS Baza i pretraga...26.12.2005. u 16:46 - pre 223 meseci
Imam neke prastare baze koje moram da ocuvam takve kakve su, tako da koristim BDE komponente za pristup njima ( imaju *.dbf extenziju ) i naisao sam na problem kod pretrazivanja te baze...

Do sada je sve radilo identicno kao sa ADO komponentama ( upisivanje podataka, izmena podataka, brisnje i sl. ), ali kada ubacim jednu jednostavnu proceduru:
Code:
procedure TForm1.Edit4Change(Sender: TObject);
begin
  Table2.Locate('SIFRA', Edit4.Text, []);
end;
ne desi se apsolutno nista!

Znaci ne izbaci nikakvu gresku, ali me ni ne pozicionira u DBGrid-u na pronadjeni rekord, nego je i dalje selektovan rekord cija je sifra 1.

Zna li neko gde gresim i kako da sredim ovo... Frka je velika sa vremenom, tako da unapred zahvaljujem na brzim odgovorima .

[Ovu poruku je menjao Strog dana 26.12.2005. u 17:47 GMT+1]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Stara FoxPLUS Baza i pretraga...26.12.2005. u 17:29 - pre 223 meseci
I ja sam imao isti problem i jedino resenje koje sam uspeo da pronadjem (a nisam mnogo trazio jer me je mrzelo ) je da "rucno" protrcim kroz sve rekorde i pronadjem sta ni treba. Dakle...
Code:
Table.First;
while (not Nasao) or (Table.Eof) do
begin
  Nasao := Table.FieldByName['Sifra'] = 10;
  if not Nasao then Table.Next;
end;

Kad se while zavrsi ako je promenljiva Nasao = True onda je trenutni record onaj trazeni, a ako je Nasao = False onda je tabela na kraju. Jeste da je sporo, ali je jednostavno
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Stara FoxPLUS Baza i pretraga...26.12.2005. u 17:32 - pre 223 meseci
Da, ovo je bas sporo... Meni bi ipak trebalo nesto brze posto u svakoj od ovih baza ima po ~9000 rekorda, tako da bi ovo bilo ogromno usporenje, a pretraga mi treba dosta cesto... Ima li neko jos neku ideju ?
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Stara FoxPLUS Baza i pretraga...26.12.2005. u 19:12 - pre 223 meseci
Nema veze ljudi, resio sam problem ...

Fora je bila u tome da sam pored ovog koda sto sam gore napisao morao da stavim jos
Code:
Table2.Open

ispred onog Table2.Locate(...), mada mi nije bas najjasnije zasto posto je vec sve bilo otvoreno i spreno za pristup... Ma nema veze, vazno je da radi i to trenutno .
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Stara FoxPLUS Baza i pretraga...26.12.2005. u 19:30 - pre 223 meseci
Hehe... nikad mi ne bi palo na pamet da uradim Open... hehe... mislio sam da je vec open kad mogu da pisem i citam... ko zna kakvih jos stvari ima sa ti starim bazama. Sreca pa ih vise ne koristim
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
*.net
Via: [es] mailing liste

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Stara FoxPLUS Baza i pretraga...26.12.2005. u 20:23 - pre 223 meseci
Hehe, pa to i kazem :). Ovo sam slucajno uradio posto mi je izbacio bio neku
gresku kad sam nesto promenio, tipa "Can't perform that action on a closed
DataSet" pa sam onda probao rucno da otvorim i gle cuda, sve je proradilo
:).
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Stara FoxPLUS Baza i pretraga...

[ Pregleda: 1468 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.