Delphi - Adatbázis szerkezet másolásának trükkje

Adatbázis másolás 2. rész

forráskód letöltése
Múlt héten bemutattuk, hogy milyen trükkel lehet egyszerűen lemásolni egy meglévő adatbázis szerkezetét.

Ennek a másolásnak volt egy kis szépséghibája: nem másolta az index szerkezetet, csak az adatbázisét.

Most ezt a hiányt pótoljuk. A múlt heti példaprogramot továbbfejlesztve egy ciklus segítségével minden egyes indexét létrehozzuk az új adatbázisnak az eredeti alapján.

A ciklus kezdése előtt a Table1 komponens IndexDefs property-ben található Update eljárást kell meghívnunk. Ezzel elérjük azt, hogy az IndexDefs-ben rendelkezésre áll az Table1-hez rendelt adatbázis index szerkezete.

Ezután a ciklus segítségével végig mehetünk az IndexDefs tömbön, és a Table2 komponenshez rendelt, újonnan létrehozott adatbázisnál az AddIndex eljárás hívásával létrehozhatjuk minden egyes indexét az adatbázisnak.

Ezek után már rendelkezésünkre áll egy tökéletes másolata az eredeti adatbázisnak, persze rekordok nélkül.

Adatbázis másolás cikksorozat

Adatbázis szerkezet másolásának trükkje - Adatbázis másolás 1. rész

Adatbázis szerkezet másolásának trükkje - Adatbázis másolás 2. rész