Untitled - Vitajte na stránkach www.einsty.hostujem.sk

P R O G R A M U J E M EDelfinárium / 12. èas : Spä k databázam III.Tentoraz sa opä budeme zaobera databázami. Povieme si nieèo o metóde BatchMovea komponente TBatchMove a ukážeme si, ako prenáša údaje z jedného databázovéhoformátu do druhého.METÓDA BatchMove PODROBNEJŠIE. Možno si spomínate, že tútometódu sme pred mesiacom použili, keï sme potrebovali uloži množinu dát, ktorúvytvoril dopyt SQL. Vtedy som to síce nezdôraznil, no metóda BatchMove vie by nesmiernešikovným pomocníkom. V predchádzajúcom èlánku som už spomenul, že jej primárnouúlohou je presúva dáta, zvládne však aj iné „kúsky“. Prvým parametrom tejto metódyje zdroj dát, ktorým je komponent odvodený od triedy TBDEDataSet. Najznámejšímipotomkami tejto triedy sú komponenty TTable a TQuery. Manipulácia s dátami ovplyvnívždy tú tabu¾ku, ktorá metódu BatchMove volá. Druhý parameter metódy BatchMove jetypu TBatchMode a môže nadobúda nasledujúce hodnoty:l batAppend – táto hodnota znaèí, že dôjde k pripojeniu zdrojových údajov k novejtabu¾ke. Štruktúra polí ani indexy zdrojovej tabu¾ky zmenené nebudú, ale poradie polí vzdrojovej i cie¾ovej tabu¾ke musí by rovnaké, pretože v opaènom prípade dôjde knarušeniu integrity dát. Inými slovami, ak je napríklad v cie¾ovej tabu¾ke prvé pole typuinteger a v zdrojovej tabu¾ke je prvé pole typu string, tento re azec bude jednoduchoprenesený do èíselného po¾a.Parameter batAppend je užitoèný vtedy, ak máme dve tabu¾ky so zhodnou štruktúrou,ale jedna z nich obsahuje novšie záznamy, ktoré by sme radi presunuli do cie¾ovej tabu¾ky.l batAppendUpdate – pracuje podobne ako batAppend, len s tým rozdielom, že docie¾ovej databázy nielenže pridá najnovšie záznamy, ale dôjde aj k aktualizácii týchzáznamov cie¾ovej tabu¾ky, ktoré sa v zdrojovej tabu¾ke zmenili. Inými slovami, novézáznamy sa pridajú a staršie sa aktualizujú.l batCopy – dôjde k úplnému zániku pôvodnej štruktúry tabu¾ky, stratia sa pôvodnépolia aj indexy. Lenže pozor, ak je zdrojom údajov komponent TTable, ktorý obsahujenejaké indexy, treba poèíta s tým, že tieto indexy do cie¾ovej tabu¾ky nebudú prenesené.l batDelete – záznamy, ktoré sa nachádzajú aj v zdrojovej, aj v cie¾ovej tabu¾ke, budú vymazané.l batUpdate – v cie¾ovej tabu¾ke budú aktualizované tie záznamy, ktoré sa nachádzajú ajv zdrojovej tabu¾ke.Samozrejme, na základe takýchto všeobecných informácií nie je možné porozumie ,kde sa skrýva potenciál metódy BatchMove, preto si všetko vysvetlíme na príklade.Strýko Držgroš má dve kníhkupectvá. Keïže je to ve¾mi sporivý káèer a nerád vyhadzujepeniaze na výplaty, v prvom sedí on sám a v druhom vysedáva jeho synovec Huey.Evidencia predaných kníh sa vedie v jednoduchej tabu¾ke typu Paradox (Držgroša ani lennenapadne, aby investoval do nejakého rozumného databázového riešenia). Na boháèovompoèítaèi je hlavná databáza a na poèítaèi jeho synovca je umiestnená druhá databáza. Veèer,keï sa obchod zatvára, Huey musí donies záznamy o predaných knihách na diskete (pravda,mohol by ich posla cez internet, Držgroš však šetrí aj na tom). Držgroš si údaje zladí tak,aby sa záznamy z poboèky (teda kníhkupectva, kde pracuje Huey) pripojili k tým, ktoré máon vo svojom hlavnom súbore. Po tomto úkone sa obaja poberú spa .Vytvorme si teraz aj my podobnýmodel. Prvá tabu¾ka sa bude volaDRZGROS.DB a druha HUEY.DB. Vprvej vytvoríme primárny index,keïže pri operácii batAppendUpdatemusí by cie¾ová tabu¾ka indexovaná.Obr. 1Aby bola štruktúra oboch tabuliek èonajjednoduchšia, budú tabu¾ky obsahovaiba dve polia. Obe polia budúre azcové s dåžkou 30 znakov,prièom prvé sa bude vola Nazov(teda názov knihy) a druhé Predal(t. j. kto knihu predal). Do každejObr. 2tabu¾ky pridáme dva záznamy ešte vDatabase Desktope (obr. 1 a 2).Potom vytvoríme nový formulár, ktorý bude pomocou komponentu TDBGrid zobrazovaobsah súboru DRZGROS.DB. Vytvoríme dva komponenty TTable, prvý nazveme Drzgros adruhý Huey, oba budú pracova s rovnomennými databázami. Potom pridáme tlaèidlo,ktoré nazveme Prenos.Pred napísaním kódu si ešte raz zopakujme, v èom spoèíva náš problém: Huey priniesolsvoje záznamy na diskete a my ich musíme prida k Držgrošovej hlavnej databáze.Naš astie nie je to nijaký problém:procedure TForm1.PrenosClick(Sender: TObject);begintrytryScreen.Cursor:=crHourGlass;with drzgros dobeginClose;BatchMove(Huey,batAppendUpdate);Openend;//withexceptraiseend;//exceptfinallyScreen.Cursor:=crDefault;end;//finallyMožno si budete klás otázku, preèo som použil parameter batAppendUpdate, keï somdoteraz celý èas hovoril iba o pridávaní. Mohli sme teoreticky použi parameter batAppend,to by však so sebou prinieslo aj jednu ve¾kú nevýhodu: keby sa náhodou Huey „uklepol“ azadal by nesprávny názov knihy, preniesla by sa chyba aj do Držgrošovej databázy. A èo je eštehoršie, nielenže by sa tam preniesla, ale by tam aj ostala, kým by ju starý káèer neopravil. Hueyby preklep vo svojej databáze opravoval nadarmo, pretože zmeny by sa v Držgrošovom súboreaj tak neprejavili vzh¾adom na to, že program by do úvahy bral iba nové záznamy (teda dohlavnej databázy by sa pridali najnovšie záznamy, tie staré by však ostali nedotknuté). Akpoužijeme parameter batAppendUpdate, nielenže sa nové záznamy pridajú, ale dôjde aj kaktualizácii tých starších.Nadmieru šetrný káèer môže metódu BatchMove dokonca aj zneuži . Predstavme si,že jedného dòa Huey donesie nové údaje. Držgroš však chce ušetri na jedle (a naturáliách,v ktorých svojho synovca vypláca), a tak použije uvedený kód s malou úpravou:miesto parametra batAppendUpdate použije batDelete. Iste tušíte, aký bude výsledok:všetky záznamy v hlavnej databáze, ktoré pochádzajú od Hueya, sa vymažú. Držgrošpotom môže svojmu synovcovi tvrdi , že vlastne niè nepredal, a teda veèeru si nezaslúži.KOMPONENT TBatchMove. Problémy s presunom, aktualizáciou èi mazanímdát je možné rieši aj pomocou komponentu TBatchMove. Slúži na rovnaké úèely akometóda BatchMove, ale je na úlohu presúvania, vymazávania èi aktualizovania dát podstatnelepšie pripravený než uvedená metóda. Umožòuje napríklad používate¾ovi zadanázov tabu¾ky, do ktorej sa majú umiestni záznamy, ktoré sa z nejakého dôvodu nepodariloprekopírova do cie¾ovej tabu¾ky. Môže napríklad nasta prípad, že sa v cie¾ovej ajzdrojovej tabu¾ke nachádzajú rovnaké záznamy. Pri pokuse o kopírovanie do cie¾ovejtabu¾ky nastane výnimka Key violation, pretože daný záznam už v cie¾ovej tabu¾ke existuje.V takom prípade tento záznam komponent TBatchMove presunie do vami urèenejtabu¾ky. Môžete síce toto nastavenie ignorova , potom sa však nedozviete, ktorý záznamproblém spôsobil.Okrem toho komponent umožòuje definova aj tabu¾ku pre také záznamy, ktorénemohli by spracované z dôvodu nekompatibility polí. Predstavte si, že v cie¾ovejtabu¾ke definujete pole s názvom Meno, ktoré má dåžku 30 znakov, zatia¾ èo v zdrojovejtabu¾ke je to isté pole, ale dlhé 35 znakov. Všetky záznamy, v ktorých meno osoby presahuje30 znakov, budú potom presunuté do nami špecifikovanej tabu¾ky. Výhodytakéhoto postupu sú rovnaké ako v predchádzajúcom prípade: ak sa vyskytne problém,vždy je dobré vedie , ktoré záznamy ho spôsobili.Ve¾kým prínosom komponentu TBatchMove (a aj metódy BatchMove) je to, žeumožòuje konverziu medzi rôznymi typmi databáz. Ak ste teda práve migrovali zParadoxu napríklad na MS Access a nechcete prís o staré údaje, bude pre vás tentokomponent ve¾mi užitoèným nástrojom. Mnohých z vás teraz možno napadne, že sitrošku pocvièíte prsty a napíšete si databázový konvertor. Žia¾, to ani zïaleka nie je takéjednoduché. V urèitom zmysle konverzia databáz možná je, konvertova možno všakiba tie najjednoduchšie tabu¾ky bez indexov. Ak som spomínal prechod z Paradoxu naAccess, mal som na mysli prenos údajov, èo má ku konvertovaniu databázy ve¾mi ïaleko.Databáza totiž nezahàòa iba údaje, ale aj indexy, definíciu referenènej integrity a vzávislosti od databázového systému aj rôzne iné dáta (napr. uložené procedúry). Nie jenapríklad možné prekonvertova do formátu dBase takú paradoxovú tabu¾ku, ktoráobsahuje primárny index, tie totiž dBase nepodporuje. Preprava dát možná je, ale indexya ostatné dôležité údaje vz ahujúce sa k definícii tabu¾ky je potrebné po konverziidoplni ruène.Ïalšou ve¾mi užitoènou vlastnos ou komponentu TBatchMove je možnos mapovaniapolí. Pri presune dát môže nasta problém, keï poèet a typy polí v cie¾ovej i zdrojovejtabu¾ke sú síce rovnaké, ich poradie sa však v zdrojovej i cie¾ovej tabu¾ke líši, a preto saúdaje môžu dosta na nesprávne miesto. Ak je napríklad v cie¾ovej tabu¾ke prvé pole typustring a v zdrojovej tabu¾ke typu integer, budú celé èísla „natvrdo“ vložené do re azcovéhopo¾a. Riešením problému je použitie mapovania, vtedy totiž vieme presne urèi ,ktoré pole sa kam premietne.Uvedený problém si, samozrejme, budeme demonštrova na príklade. Vytvoríme program,ktorý nám prekonvertuje údaje z tabu¾ky ANIMALS.DBF do formátu Paradox. Násvšak budú zaujíma iba dve polia: názov zviera a a oblas , v ktorej zviera žije. Aby sme sito ešte viac skomplikovali, vytvoríme takú paradoxovú tabu¾ku, ktorá bude obsahova slovenskénázvy polí (nazveme ju ZVER.DB). Ako ste už iste vydedukovali, prvé pole sa budevola Meno (ve¾kos 10 znakov) a druhé Oblast (ve¾kos 15 znakov). Rozmer druhého po¾a(èiže po¾a Oblast) som zámerne skrátil (v pôvodnej tabu¾ke má toto pole dåžku 20 znakov),aby sme si mohli demonštrova prácu s problémovými záznamami.128 PC REVUE 10/2001