Discussion :

[cantador]

Bonjour,

j'ai 2 tables totalement identiques situées dans deux bases différentes sur le même serveur.

base1 : table1 (chp1, chp2, chp3)
base2 : table2 (chp1, chp2, chp3)

les deux tables n'ont pas de champ incrémenté, ni de clé primaire.

je voudrais copier toutes les données de la table1 dans la table2 avec un SQL.
la table2 peut-être supprimée si nécessaire..

merci

[SergioMaster]

Bonjour,

la solution "Boucle"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SET TERM !;
EXECUTE BLOCK
AS
DECLARE VARIABLE C1 ...;
DECLARE VARIABLE C2 ...;
DECLARE VARIABLE C3 ...;
BEGIN
FOR EXECUTE STATEMENT 'SELECT chp1, chp2, chp3 FROM Table2'
       ON EXTERNAL 'localhost/3050:base'
      AS USER 'SYSDBA' PASSWORD 'masterkey' 
      INTO :C1,:C2,:C3;       
DO 
 INSERT INTO TABLE1 VALUES(:c1,:c2,:c3);
END!
SET TERM ;!

une solution à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
SET TERM !;
EXECUTE BLOCK
AS
BEGIN
INSERT INTO TABLE1 VALUES EXECUTE STATEMENT 'SELECT chp1, chp2, chp3 FROM Table2'
       ON EXTERNAL 'localhost/3050:base2'
      AS USER 'SYSDBA' PASSWORD 'masterkey';
END!
SET TERM ;!

fait rapidement sans vérifications

[Ph. B.]

Bonjour,

j'ai 2 tables totalement identiques situées dans deux bases différentes sur le même serveur.

base1 : table1 (chp1, chp2, chp3)
base2 : table2 (chp1, chp2, chp3)

les deux tables n'ont pas de champ incrémenté, ni de clé primaire.

je voudrais copier toutes les données de la table1 dans la table2 avec un SQL.
la table2 peut-être supprimée si nécessaire..

Depuis la base de données base2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
FOR EXECUTE STATEMENT 
   SELECT CHP1, CHP2, CHP3 FROM TABLE1
   ON EXTERNAL DATA SOURCE 'base1'  -- alias, chemin...
   AS USER 'UserName' PASSWORD 'UserPassword'
   INTO :chp1, :chp2, :chp3
DO INSERT INTO TABLE2(CHP1, CHP2, CHP3) VALUES(:chp1, :chp2, :chp3)

Moyennant peut être quelques ajustements...

Mise à jour : Serge a été plus rapide ! et détaillé !

[cantador]

@SergioMaster et Ph. B.

aie, rien ne marche..

le EXECUTE BLOCK ne passe pas aussi bien dans l'éditeur SQL que SQL Script de EMS

et sur l'exemple de Ph. B. adapté à mes besoins :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
FOR EXECUTE STATEMENT 
   SELECT INSEE_COM, REFERENCE_CADASTRALE, REFERENCE FROM PROCES
   ON EXTERNAL DATA SOURCE 'MyAlias'  -- alias, chemin...
   AS USER 'SYSDBA' PASSWORD 'masterkey'
   INTO :INSEE_COM, :REFERENCE_CADASTRALE, :REFERENCE
DO INSERT INTO PROCES(INSEE_COM, REFERENCE_CADASTRALE, REFERENCE) VALUES(:INSEE_COM, :REFERENCE_CADASTRALE, :REFERENCE)

j'ai un ? Invalid Statement

merci

[SergioMaster]

la partie SQL doit execute statement doit être en quotes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
FOR EXECUTE STATEMENT 
   'SELECT INSEE_COM, REFERENCE_CADASTRALE, REFERENCE FROM PROCES'
   ON EXTERNAL DATA SOURCE 'MyAlias'  -- alias, chemin...
   AS USER 'SYSDBA' PASSWORD 'masterkey'
   INTO :INSEE_COM, :REFERENCE_CADASTRALE, :REFERENCE
DO INSERT INTO PROCES(INSEE_COM, REFERENCE_CADASTRALE, REFERENCE) VALUES(:INSEE_COM, :REFERENCE_CADASTRALE, :REFERENCE)

la data source doit être bien indiquée avec 'localhost:myalias' à minima en étant bien entendu que myalias est dans aliases.conf

[cantador]

merci SergioMaster

mais en tenant compte des remarques,
avec EMS et Firebird 2.5 et seven 32 bits

dans le script ,
j'ai toujours un Invalid Statement avec un ? pour indiquer la ligne

et dans l'éditeur SQL, j'ai un
Token unknow FOR

?
@bientôt

[Artemus24]

Salut à tous.

Désolé pour mon retard, mais je traite les sujets en fonction du "rapport périodique sur FireBird". Donc, j'ai toujours un décalage de 1 jour.

N'avait-on pas déjà traité ce sujet par ailleurs ? Je m'en souviens et j'avais déjà fait un test que voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
CREATE DATABASE '..\Data\Base.fdb' page_size 4096 DEFAULT CHARACTER SET ISO8859_1;
 
-- =====================
-- création table "test"
-- =====================
 
create table test (
id       smallint     not null,
emp_no   smallint     not null,
lib      varchar(255) not null,
constraint pk_test_id primary key (id)
);
 
insert into test (id,emp_no,lib) values (1,  29, '');
insert into test (id,emp_no,lib) values (2,  65, '');
insert into test (id,emp_no,lib) values (3, 144, '');
 
select * from test;
 
     ID  EMP_NO LIB
======= ======= ===============================================================================
      1      29
      2      65
      3     144
 
 
commit;
 
-- =========================
-- Extraction et remplissage
-- =========================
 
SET TERM $;
 
execute block as
declare emp_no   smallint;
declare fullname varchar(255);
begin
  for execute statement 'select emp_no from test' into :emp_no do
    for execute statement ('select full_name from employee where emp_no = ?')(:emp_no)
    on external data source 'localhost:employee' as user 'sysdba' PASSWORD 'masterkey'
    into :fullname do
      update test set lib = :fullname where emp_no = :emp_no;
end$
 
SET TERM ;$
 
commit;
 
-- ========
-- Résultat
-- ========
 
select * from test;
 
     ID  EMP_NO LIB
======= ======= ===============================================================================
      1      29 De Souza, Roger
      2      65 O'Brien, Sue Anne
      3     144 Montgomery, John
 
 
exit;
 
Appuyez sur une touche pour continuer...

Dans cet exemple, la base externe est la base "employee".

Comme nous ne sommes pas dans le même environnement de travail, Cantador, tu devras adapter le code.
Je suis sous la version FireBird 3.0.0. Il se peut, d'après les messages d'anomalies que tu as un problèmes de compatibilités.

Sinon, c'est le même principe exposé par SergioMaster et par Ph. B.

@+

[cantador]

merci Artemus24,
j'ai bien tout noté mais
pour l'instant, ça ne fonctionne pas..

en attendant de pouvoir traiter cette question avec un SQL, j'ai
mis en place une boucle selon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
MaTable.First;
While not MaTable.EOF do
begin
..............
 
Append;
.............
Post;
.............
 
MaTable.Next;
end;

même si c'est pas top,
ça tourne et comme je suis un serveur (la nuit), ça ne pose pas de soucis..
mais je continue à chercher néanmoins !