|
Extraction de Script SQL - John COLIBRI.
|
- résumé : Comment générer un script SQL à partir d'une base de données
Interbase / Firebird
- mots clé : script SQL - Interbase - Firebird - IbExtract
- logiciel utilisé : Windows XP personnel, Delphi 6.0
- matériel utilisé : Pentium 2.800 Mhz, 512 Meg de mémoire, 250 Giga disque
dur
- champ d'application : Delphi 1 à 2006, Turbo Delphi sur Windows
- niveau : développeur Delphi - développeur Interbase
- plan :
1 - Introduction
Cet article va indiquer comment extraire d'une base de données existante un
script SQL capable de recréer la même base.
Cet utilitaire permet:
- de sauvegarder de façon lisible (mais verbeuse) les données d'une base
- de porter facilement les données d'une version d'un même moteur à une autre
version
- d'adapter et modifier les données pour les porter sur un autre moteur, ou
changer son fonctionnement (passer du dialecte Interbase 1 au dialecte 3)
- de changer la structure de la base, ou la valeur des données
- de documenter la base (en utilisant des outils de génération de
documentation à partir du script)
Nous avons utilisé cet utilitaire dans notre article sur
MastApp, la base de démonstration de Delphi
2 - Principe
Nous pouvons utiliser plusieurs techniques:
- analyser les tables système qui contiennent tout les informations sur la
base
- utiliser des composants Delphi qui sont capables d'extraire le schéma
- utiliser des outils externes tels que IbExpert
Comme Delphi fournit, depuis Delphi 6, un composant spécifique d'extraction
de schéma pour Interbase, nous avons opté pour cette technique-là. Notez que
si nous souhaitions effectuer une extraction directe à partir des tables
système, un moyen commode serait d'examiner le code source d'Ibx et d'adapter
ce code pour nos propres besoins. Dans notre cas, le composant IbExtract donne
satisfaction, et nous nous contenterons de l'utiliser
3 - Le Projet Delphi
3.1 - L'Objectif
Nous devons créer un script qui permettra :
- de créer les tables ainsi que toutes leurs annexes (générateurs, triggers
etc)
- de remplir les données des tables
3.2 - Le composant IbExtract
Ce composant a été construit uniquement pour extraire les données d'une base.
Je suppose que Jeff OVERCASH l'a spécialement créé pour écrire IbConsole. Il
devrait donc nécessairement permettre de réaliser notre travail. Le principal
problème à résoudre est de trouver les paramètres à utiliser.
La documentation indique que
- la syntaxe de base est:
nous appelons Extract de la façon suivante:
type TExtractObjectTypes= (eoDatabase, eoDomain, eoTable,
eoView, eoProcedure, eoFunction, eoGenerator,
eoException, eoBLOBFilter, eoRole, eoTrigger,
eoForeign, eoIndexes, eoChecks, eoData);
TExtractType= (etDomain, etTable, etRole, etTrigger,
etForeign, etIndex, etData, etGrant,
etCheck, etAlterProc);
TExtractTypes= Set of TExtractType;
procedure ExtractObject(ObjectType: TExtractObjectTypes;
ObjectName: String; ExtractTypes: TExtractTypes);
|
- les paramètres sont:
- le type de donnée à extraire: eoDomain pour les domaines, eoTable pour
les tables etc
- si nous ciblons un objet particulier (une table, une procédure cataloguée
etc), le nom de cet objet
- pour un objet donnée, le dernier paramètre spécifie quelle donnée (par
exemple pour une table, le triggers en utilisant etTrigger)
En ce qui nous concerne, nous espérions pouvoir tout extraire (les requêtes de
création de tables, les triggers etc et les données) par:
IbExtract1.ExtractObject(eoDataBase, '', []);
|
mais cet appel fournit bien le script de toutes les créations, mais pas le
script pour les données.
Après quelques essais, l'appel:
IbExtract1.ExtractObject(eoTabke, 'orders', [etData]);
|
fournit bien le script des données de la table ORDERS, mais aussi au début le
script de création de cette table. En combinant les deux appels, nous obtenons
finalement notre résultat.
3.3 - Le code d'extraction du schéma
Voici le projet:
|
créez une nouvelle application Delphi et renommez-la "p_extract_ib_script"
|
|
|
ajoutez un tMemo qui recevra le script du schéma
|
|
|
de la page "Interbase" de la Palette, sélectionnez IbTransaction et
posez-le sur la Forme
|
|
|
de la page "Interbase" de la Palette, sélectionnez IbDataBase et posez-le
sur la Forme
|
|
|
reliez IbTransaction1 et IbDataBase1
|
|
|
double cliquez sur IbDatabase1 pour afficher l'Editeur de Connection.
Remplissez le nom de la base, le nom de l'utilisateur, le mot de passe
(SYSDBA), décochez "LoginPrompt":
Cliquez "Ok" pour sauvegarder, double-cliquez à nouveau et sélectionnez
"Test" pour vérifier la connection
|
|
|
de l'onglet "Interbase" de la Palette sélectionnez IbExtract et posez-le
sur la Forme
|
|
|
posez un tButton sur la Forme, renommez-le "complete_schema_", créez son
événement OnClick et écrivez le code qui extrait toutes les requêtes de
création du schéma:
procedure TForm1.complete_schema_Click(Sender: TObject);
begin
open_database_Click(Nil);
with IBExtract1 do
begin
ExtractObject(eoDataBase, '', []);
Memo1.Lines.Assign(Items);
end;
end; // complete_schema_Click
|
|
|
|
compilez, exécutez et cliquez "complete_schema_"
|
|
le schéma complet s'affiche dans Memo1
|
3.4 - Le code d'extraction des données
Pour extraire les données, nous allons procéder en deux étapes:
- trouver le nom de toutes les tables
- pour chaque table, appeler ExtractObject avec le paramètres etData
L'extraction des noms de Table est réalisé en appelant la procédure
d'extraction complète ci-dessus, et en extrayant le nom situé après chaque
CREATE DATABASE .
Voici comment placer le nom de chaque Table dans une tListBox:
|
|
ajoutez une tListBox au projet
|
|
|
ajoutez un tButton, renommez-le "tables_", et tapez le code qui utilise
ExtractObject pour récupérer le script de création et en extrait les noms
de tables:
procedure TForm1.tables_names_Click(Sender: TObject);
var l_item: Integer;
l_the_line: String;
l_index: Integer;
l_table_name: String;
begin
open_database_Click(Nil);
ListBox1.Clear;
with IBExtract1 do
begin
ExtractObject(eoTable, '', []);
with Items do
for l_item:= 0 to Count- 1 do
begin
l_the_line:= Trim(Strings[l_item]);
if Pos('CREATE TABLE', l_the_line)= 1
then begin
System.Delete(l_the_line, 1, Length('CREATE TABLE'));
l_index:= 1;
l_table_name:=
f_string_extract_non_blank(l_the_line, l_index);
ListBox1.Items.Add(l_table_name);
end;
end;
end;
end; // tables_names_Click
|
|
|
|
ajoutez un tButton, renommez-le "all_table_data_", et tapez le code qui
utilise ExtractObject pour récupérer le script d'insertion de données pour
chaque Table:
procedure generate_insert_into(p_table_name: String;
p_c_strings: tStrings);
var l_item_index: Integer;
l_the_line: String;
begin
with Form1, IBExtract1 do
begin
ExtractObject(eoTable, p_table_name, [etData]);
// -- skip the schema
with Items do
begin
l_item_index:= 0;
while l_item_index< Count do
begin
l_the_line:= Strings[l_item_index];
if Pos('INSERT INTO', l_the_line)> 0
then Break
else Inc(l_item_index);
end;
// -- now get the INSERT INTO
while l_item_index< Count do
begin
l_the_line:= Strings[l_item_index];
p_c_strings.Add(l_the_line);
Inc(l_item_index);
end; // while l_item_index
end; // with Items
end; // with IBExtract1
end; // generate_insert_into
procedure TForm1.all_table_data_Click(Sender: TObject);
var l_item_index: Integer;
begin
with ListBox1 do
for l_item_index:= 0 to Count- 1 do
generate_insert_into(Items[l_item_index],
Memo1.Lines);
end; // all_table_data_Click
|
|
|
|
compilez, exécutez et cliquez "complete_schema_"
|
|
|
voici une vue du projet:
<IMG SRC="_i_image.png" align=middle alt="image">
|
|
|
compilez, exécutez et cliquez "all_table_data_"
|
|
|
voici une vue du projet, avec le script pour PARTS:
|
4 - Télécharger le code source Delphi
Vous pouvez télécharger:
- extract_script.zip : le projet qui extrait le script du schéma et
d'insertion de données d'une base (22 K)
Ce .ZIP qui comprend:
- le .DPR, la forme principale, les formes annexes eventuelles
- les fichiers de paramètres (le schéma et le batch de création)
- dans chaque .ZIP, toutes les librairies nécessaires à chaque projet (chaque
.ZIP est autonaume)
Ces .ZIP contiennent des chemins RELATIFS. Par conséquent:
- créez un répertoire n'importe où sur votre machine
- placez le .ZIP dans ce répertoire
- dézippez et les sous-répertoires nécessaires seront créés
- compilez et exécutez
Ces .ZIP ne modifient pas votre PC (pas de changement de la Base de Registre,
de DLL ou autre). Pour supprimer le projet, effacez le répertoire.
Comme d'habitude:
- nous vous remercions de nous signaler toute erreur, inexactitude ou
problème de téléchargement en envoyant un e-mail à jcolibri@jcolibri.com. Les corrections
qui en résulteront pourront aider les prochains lecteurs
- tous vos commentaires, remarques, questions, critiques, suggestion
d'article, ou mentions d'autres sources sur le même sujet seront de même
les bienvenus à jcolibri@jcolibri.com.
- plus simplement, vous pouvez taper (anonymement ou en fournissant votre
e-mail pour une réponse) vos commentaires ci-dessus et nous les envoyer en
cliquant "envoyer" :
- et si vous avez apprécié cet article, faites connaître notre site,
ajoutez un lien dans vos listes de liens ou citez-nous dans vos réponses
sur les messageries. C'est très simple: plus nous aurons de visiteurs et de
références Google, plus nous écrirons d'articles.
5 - L'auteur
John COLIBRI est passionné par le développement
Delphi et les applications de Bases de Données. Il a écrit de nombreux livres
et articles, et partage son temps entre la
développement de projets pour
ses clients, le conseil et la formation. Son site contient des articles
avec code source, ainsi que le programme et le calendrier des
stages
de formation Delphi, base de données, Ado.Net, Asp.Net et UML qu'il
anime personellement tous les mois, à Paris, en province ou sur site client.
|
