Keskustelu: Ohjelmointikysymykset: Pascal: Delphi Adoquery.locate useammalla kentällä

Heps,

Kuinka on mahdollista, vai onko edes, tehdä Adoqueryn locate useammalla kentällä tälläisessä tapaiksessa:

queryn kentät:

id (Integer), etunimi (string), sukunimi (string)

Yritin säätää tällästä:

ADOQuery1.Locate('id;etunimi;sukunimi;',VarArrayOf([Edit1.Text,Edit2.Text,Edit3.Text]),[loPartialKey,loCaseInsensitive]);

tietenki toi ei toiminu ihan tolasenaan kun ensimmäinen kenttä on integer ja editistä tulee string (kuinka kuuluisi tehdä?) mutta koitin ilman tuotakin kenttää ja ei pelittänyt.. ei tule virhettä käännettäessä mutta ei vain pelitä.

Edit: tai no lähemmin tarkasteltaessa kyllä se toimi kun kirjoitti kokonaan hakuehdot mitkä löytyy querystä, eli loPartialKey ei toimi.. loCaseInsensitive toimii..

En tiedä tuosta loPartialKey-ongelmasta (kyllähän sen pitäisi toimia... Vaihda [nämä, tässä] toisin päin :P ihan niinkuin sillä mitään väliä olisi :), mutta teksti muuttuu luvuksi funktiolla StrToInt(Teksti). Tätä ennen kannattaa tarkistaa, että luku on tosiaan luku, koska muuten saat virheilmoituksen. Val-funktioon kannattaa tutustua.

Hmm.. nojoo.. Tällänen on koko proseduuri, toimii muuten OK, mutta loPartialKey ei toimi.

procedure TForm_hiihtajatiedot.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Edit_id_int, errorPos: Integer;
begin
Val(Edit1.Text, Edit_id_int, errorPos);
if errorPos = 0 then
  begin
  ADOQuery1.Locate('user_id;etunimi;sukunimi;',VarArrayOf([edit_id_int,Edit2.Text,Edit3.Text]),[loCaseInsensitive,loPartialKey]);
  end
else
  begin
  ADOQuery1.Locate('etunimi;sukunimi;',VarArrayOf([Edit2.Text,Edit3.Text]),[loCaseInsensitive,loPartialKey]);
  Edit1.Clear;
  end
end;

Eli formilla on 3 haku kenttää joihin syöttämällä tekstiä tuollainen proseduuri pyörähtää:

Edit1 (id), Edit2 (etunimi), Edit3 (sukunimi)

Jos syöttää jonkin id:n mikä löytyy querystä, sen tietueen etunimen (kokonaisena) ja sukunimestä ensimmäisen kirjaimen niin silloin toimii loPartialkey. Eli kun kaikki muut hakuehdot on täydellisenä paitsi viimenen. Sama ei toimi jos esim ensimmäinen ja viimeinen on täydelliset ja keskimmäiseen syöttää. Vain locaten viimeinen hakuehto toimii aina loPartialkey optiota käyttäen.

Tälläisen ohjeen sain:

it has to do with the way your db key is set up. you can ignore fields (partial keys) by removing fields from the last field in the key working towards the first.

Toteutuspuolella on nyt vain vähän hankaluuksia. En ymmärrä kuinka tuo toteutetaan. Apuuva!

Vaikea sanoa näin tietokantoja tuntematta, mutta ainakin niin onnistuisi, että tekisit kaikki kolme hakua erikseen ja näyttäisit tuloksista ne, jotka löytyivät jokaisella haulla. Jotakin saattaa myös saada selville tonkimalla lähdekooditiedostoja tuosta Locate-funktiosta ja siinä käytetyistä funktioista. Katsotaan jos ehdin/jaksan tutustua tarkemmin tuohon TADOQueryyn joskus illemmalla.

Niin siis, tuota tuota.. kyllähän toi toimisi helpostikin, jos käyttäsi esim. sql selectiä tuon locaten tilalla, mutta tuon locaten tarkoitus on se, että noiden keyfield arvojen perusteella se siirtää adoqueryn kyseistä recordia vastaavaksi, joten tiedot Delphin formissa joka käyttää Data-aware komponentteja päivittyy kyseistä vastaavaksi.

Tuo pitäisi nyt tehdä ilmeisesti jotenkin niin että tuota VarArrayOf muuttaa.. tai siis niin että, kun viimeisen keyfieldin perusteella on löytynyt arvo (eli edit3.text), niin hypätään taaksepäin ja katsotaa edit2.text jne..

Mutta ei hajuakaan toteutuksesta.. voi olla tietty muitakin tapoja, en ole ikinä ennen tuota locatea käyttänyt, yhtään tiedä kuinka toimii. Täytyy koittaa kysellä lisäapujoukkoja :)