transfert de données entre deux bases de donnees firebird avec delphi 7 [Résolu]

[mina24]

Bonjour!
Je voudrais savoir quel composant utilisé pour transférer des données d'une base à une autre (choix de la table , mise à jour et insertion),
je voudrais vous rappeler que je suis en train de passer du bde à firebird,
et avec le bde j'utilisais un composant très pratique Tbachmove.
Merci .

[Ph. B.]

Bonjour,

Envoyé par mina24

Je voudrais savoir quel composant utilisé pour transférer des données d'une base à une autre (choix de la table , mise à jour et insertion),

S'agit-il d'opérations régulières (une fonctionnalité de votre logiciel) ou d'un transfert ponctuel (copie d'une base) ?

Envoyé par mina24

je voudrais vous rappeler que je suis en train de passer du bde à firebird,
et avec le bde j'utilisais un composant très pratique Tbachmove.

Attention le BDE permet de dialoguer avec différents moteurs de bases de données en proposant des composants communs, Firebird est un moteur de base de données.
Je pense que vous vouliez parler de la migration d'une base Paradox gérée via le BDE vers une base Firebird gérée via dbexpress ? uib ? autre ?

Firebird 2.5 a introduit une clause spécifique pour accéder à une base tierce (ON EXTERNAL DATA SOURCE) pour l'instruction EXECUTE STATEMENT :

Code sql :

1
2
3
4
5
6
7
8
9
EXECUTE BLOCK RETURNS (colonne1 type1, colonne2 type2, ..., colonneN typeN) AS
BEGIN
   FOR EXECUTE STATEMENT 
      'SELECT colonne1, colonne2, ..., colonneN FROM ma_table'
      ON EXTERNAL DATA SOURCE 'localhost:ma_base_externe'
      AS USER 'utilisateur' PASSWORD 'mot_de_passe'
   INTO :colonne1, :colonne2, ..., :colonneN
   DO SUSPEND;
END

Il suffit ensuite d'insérer le résultat dans la table souhaitée.

[SergioMaster]

Une autre solution , quand on utilise un Firebird de version inférieure est d'utiliser FBCopy page accueil ou d'étudier les programmes sources exemple (clonedatabase) du package des composants UIB

[mina24]

Merci pour vos réponses

Envoyé par Ph. B.

S'agit-il d'opérations régulières (une fonctionnalité de votre logiciel) ou d'un transfert ponctuel (copie d'une base) ?

Il s'agit bien d'une opération régulière j'aurais pu faire le transfert avec

Code :

1
2
3
4
5
 While not tablesource.eof do
  begin
insert ou bien edit
 tabledestinationChamp1.value:=tablesourcechamp1.value;
...etc

Seulement voila j'ai trouver que pour le transfert massif de données il fallait
faire toute une procédure http://gagneux.developpez.com/interbase/import-export/ .


Je vais essayer avec ce que vous m'avez proposer vous et SergioMaster Et je vous tiendrais au courant.
Merci .

[SergioMaster]

Il s'agit d'une réplication de BDD ?
De quelle version Firebird s'agit-il ?

[mina24]

Envoyé par SergioMaster

Il s'agit d'une réplication de BDD ?
De quelle version Firebird s'agit-il ?

Il s'agit de firebird 2.5 (delphi7) j'utilise les composants mdo



Mina 24

[SergioMaster]

puisque c'est un FB 2.5 j'opterais pour une procédure comme proposée par Phillippe avec un INSERT OR UPDATE à la place du suspend , à tester , je ne suis pas encore passé a 2.5

[mina24]

Bonjour

Envoyé par Ph. B.

Code sql :

Il suffit ensuite d'insérer le résultat dans la table souhaitée.

J'ai essayer le code il fonctionne parfaitement ,seulement je ne sait pas comment faire pour récupérer les données dans ma table
Merci

[Ph. B.]

Bonjour,

Envoyé par mina24

J'ai essayer le code il fonctionne parfaitement ,seulement je ne sait pas comment faire pour récupérer les données dans ma table

@SergioMaster vous l'a indiqué dans le message précédent...
Soit vous faites l'insertion en récupérant le résultat extrait du bloc, sans rien changer, soit vous modifiez le bloc pour qu'il fasse tout le traitement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
EXECUTE BLOCK AS
DECLARE colonne1 type1;
DECLARE colonne2 type2;
...
DECLARE colonneN typeN;
BEGIN
   FOR EXECUTE STATEMENT 
      'SELECT colonne1, colonne2, ..., colonneN FROM ma_table'
      ON EXTERNAL DATA SOURCE 'localhost:ma_base_externe'
      AS USER 'utilisateur' PASSWORD 'mot_de_passe'
   INTO :colonne1, :colonne2, ..., :colonneN
   DO 
      INSERT INTO MA_Table_Destination(col1, col2, ..., colN)
         VALUES(:colonne1, : colonne2, :colonneN);
END

1. N'oubliez pas de valider les transactions
2. Pensez aux risques de violation de clé primaire si la table de destination n'est pas vide.
3. Pensez aux exceptions si les données copiées ne satisfont pas les conditions de la table de destination

[mina24]

Merci beaucoup, Ça marche