Discussion :

[seydel]

salut, je voudrais transferer une table1 de ma base vers une table2 d'une deuxieme base (sauvegarde de donnee).
voici le code que j'ai écris:

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
IBTransaction1.Commit;
 IBTransaction1.StartTransaction;
 
 IBQuery1.Open;
 while IBquery1.Eof do
begin
 
 IBQuery2.ParamByName('xxx').ASSTRING:=IBQuery1.ParamByName('xxx').ASSTRING;
........... 
  IBquery1.Next;
 
 end;
;
 IBQuery1.ExecSQL;
 
end;

le programme s’exécute mais pas de transfere de donner. Merci pour l'aide.

[Ph. B.]

Bonjour,

salut, je voudrais transferer une table1 de ma base vers une table2 d'une deuxieme base (sauvegarde de donnee).

Ok.

voici le code que j'ai écris:

Utilisez la balise [ CODE ] (bouton # de l'éditeur) pour plus de clarté.
J'ai mis quelques commentaires à votre code en essayant de deviner ce que vous avez omis de préciser : le contenu des 2 requêtes, le SGBD (bien qu'avec IB, j'ai compris qu'il s'agissait d'Interbase ou Firebird), le code partiel, etc.

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
  //.......................
  // IBTransaction1.Commit; 
  // Tout ce qui précède doit-il impérativement être validé ?
 
  IBTransaction1.StartTransaction;
 
  IBQuery1.Open;
  while IBquery1.Eof do
  begin
 
    // IBQuery2.ParamByName('xxx').AsString := IBQuery1.ParamByName('xxx').AsString;
    // Transfert de paramètres ? C'est plutôt des colonnes (Fields), non ? voir ci-dessous
    IBQuery2.ParamByName('xxx').AsString := IBQuery1.FieldByName('xxx').AsString;
    //....
    //....... 
    // Il faut peut être exécuter la 2° requête pour la copie, non ?
    IBQuery2.ExecSql;
 
    IBquery1.Next;
 
  end;
 
  // Hein ???
  // IBQuery1.ExecSQL;
 
end;
// Par contre ici, il me semble judicieux de valider les copies, non ?
IBTransaction1.Commit; 
.................

Cela étant, pour copier une table entière, AMHA, je passerais plutôt par une requête (plus rapide, plus sur) :

Code sql :

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

1
2
insert into matabledestination(col1, ..., coln)
select col_lue1, ...,col_lueN rom matablesource

[SergioMaster]

je vote pour la solution 2 beaucoup plus efficace

[BuzzLeclaire]

Salut la compagnie,

il existe aussi cela :

Si la table réceptrice n'éxiste pas (SQL Server) :

Code :

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

CREATE TABLE TABLE2 AS SELECT * FROM TABLE1

Si la table réceptrice existe (Access) :

Code :

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

SELECT * INTO TABLE2 FROM TABLE1

Je sais que cela fonctionne sous Access à toi de voir pour ton SGBD, l'avantage ici, tu évite d'oublier des champs et en plus si ta table source est modifiée cela fonctionne sans rien modifier.

a+

[seydel]

Merci Ph.B
c IBQuery2.ExecSql; et non IBQuery1.ExecSql;
et
IBQuery2.ParamByName('xxx').AsString := IBQuery1.Fields[].as...

merci a vous tous; programme fonction correctement.