Discussion :

[mimiferry]

Bonjour tout le monde,

Pour mon application de gestion de la paye, avec Delphi 10.3, Je doit écrire un algorithme qui permet de transférer TOUS les enregistrements d'une table vers une autre (table_temporaire vers table_paye). les deux tables ont exactement la même structure. En fait, la paye se calcul sur la table_temporaire ou on peux ajouter, supprimer, modifier comme on le souhaite, mais une fois le calcul terminé, J'aimerai qu'en cliquant sur le bouton VALIDER, TOUS les enregistrements de la table_temporaire soient transférés vers la table_paye ou ces derniers sont définitivement sauvegarder.

Ce que je fait :

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
procedure TForm3.Button2Click(Sender: TObject);
 
 
begin
  With ADOTable4 do
 
     begin
 
      ADOTable4.Insert ;
      ADOTable4['Id_rubrique_t'] := ADOTable3['Id_rubrique'];
      ADOTable4['Code_rubrique_t'] := ADOTable3['Code_rubrique'] ;
      ADOTable4['Designation_t'] := ADOTable3['Designation'] ;
      ADOTable4['Base_t'] := ADOTable3['Base'] ;
      ADOTable4['T_Pat_t'] := ADOTable3['T_Pat'] ;
      ADOTable4['T_Sal_t'] := ADOTable3['T_Sal'] ;
      ADOTable4['P_Pat_t'] := ADOTable3['P_Pat'] ;
      ADOTable4['P_Sal_t'] := ADOTable3['P_Sal'] ;
      ADOTable4.Post ;
      end;
 
 
   end;

Mais ce dernier ajoute uniquement le seul et le dernier enregistrement
Quelqu'un à une solution à me proposer ? merci par avance !

[Fxg]

Bonjour,

Il faut partit du premier enregistrement et parcourir toute la table jusqu'au dernier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with ADOQuery1 do
     begin
       open;
       first;
       while not eof do
           begin
             // Lecture dans la première table
 
// Ecriture dans la deuxième table
 
             next;
           end;

[SergioMaster]

Bonjour,

La réponse de Fxg est la première solution., encore que l'ordre des commentaires laisse à désirer, il faut lire le prochain enregistrement après avoir écrit dans la table cible !

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
procedure TForm3.Button2Click(Sender: TObject);
begin
  With ADOTable4 do
     begin
      First;
      while not EOF do 
          begin 
            // insertion 
            ADOTable4.Insert ;
            ADOTable4['Id_rubrique_t'] := ADOTable3['Id_rubrique'];
            ADOTable4['Code_rubrique_t'] := ADOTable3['Code_rubrique'] ;
            ADOTable4['Designation_t'] := ADOTable3['Designation'] ;
            ADOTable4['Base_t'] := ADOTable3['Base'] ;
            ADOTable4['T_Pat_t'] := ADOTable3['T_Pat'] ;
            ADOTable4['T_Sal_t'] := ADOTable3['T_Sal'] ;
            ADOTable4['P_Pat_t'] := ADOTable3['P_Pat'] ;
            ADOTable4['P_Sal_t'] := ADOTable3['P_Sal'] ;
            try 
                ADOTable4.Post ;
            except
                // traitement erreur 
                 ADOTable4.Cancel  // annulation
            end;
            // lecture 
            Next; 
        end;
   end;
 end;

Une solution plus élégante serait de passer, si c'est possible (cela dépend du SGBD), par un SQL
par exemple

Code SQL :

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

INSERT INTO TABLECIBLE (COL1,COL2,COL3) SELECT COL1,COL2,COL3 FROM TABLESOURCE

donc

Code SQL :

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

1
2
INSERT INTO Table4 (id_rubrique,Code_Rubrique,Designation,Base,T_Pat,T_Sal,P_Pat,P_sal)  
  SELECT Id_rubrique_t,Code_rubrique_t,Designation_t,Base_t,T_Pat_t,T_Sal_t,P_Pat_t,P_Sal_t FROM Table3

Avantages :
- si id_rubrique est un auto-incrément, la colonne peut ne pas être indiquée
- qui dit SELECT dit possibilité de toute sorte d'opération comme une clause WHERE par exemple


Enfin une autre solution en utilisant les composants Firedac (FDConnexion,FDBatchMove,FDBatchMoveDatasetReader,FDBatchMoveDatasetWriter) est aussi envisageable

[mimiferry]

Bonjour,

Merci de vos réponses, mais un détail m’échappe toujours !

Ce code semble correct portant aucun transfert n'est effectué sur la table

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
procedure TForm3.Button2Click(Sender: TObject);
begin
  With ADOTable4 do
     begin
      First;
      while not EOF do 
          begin 
            // insertion 
            ADOTable4.Insert ;
            ADOTable4['Id_rubrique_t'] := ADOTable3['Id_rubrique'];
            ADOTable4['Code_rubrique_t'] := ADOTable3['Code_rubrique'] ;
            ADOTable4['Designation_t'] := ADOTable3['Designation'] ;
            ADOTable4['Base_t'] := ADOTable3['Base'] ;
            ADOTable4['T_Pat_t'] := ADOTable3['T_Pat'] ;
            ADOTable4['T_Sal_t'] := ADOTable3['T_Sal'] ;
            ADOTable4['P_Pat_t'] := ADOTable3['P_Pat'] ;
            ADOTable4['P_Sal_t'] := ADOTable3['P_Sal'] ;
            try 
                ADOTable4.Post ;
            except
                // traitement erreur 
                 ADOTable4.Cancel  // annulation
            end;
            // lecture 
            Next; 
        end;
   end;
 end;

J'ai essayé avec ce code mais je ne sais pas pourquoi, ça ne fonctionne pas portant aucun message d'erreur n'est affiché après compilation du programme
Peut-être faut une liaison spéciale entre les tables ? Le SGBD initialisé est accès 2010

[SergioMaster]

Bonjour,

Avez-vous songé que l'insertion ne peut se faire si l'enregistrement existe déjà ? (lignes 20 - 23)

Vous nous avez demandé de fournir un code tel que tous les enregistrements de la table temporaire soient envoyés en table "permanente", dont acte.
Toutefois si la demande avait été différente : "ajouter ou modifier les enregistrements de la table permanente" quelques lignes de plus auraient été nécessaires : un simple test d'existence sur la table permanente !

ligne 9 :If Adotable4.FindKey(ADOTable3['Id_rubrique']) then Adotable4.Edit else ADOTable4.Insert;À ce propos j'ai un méaculpa à faire
Le fait que vous n'ayez pas donné des noms explicites à vos composants en explique certainement la cause DONNEZ DES NOMS EXPLICITES AUX COMPOSANTS (j'aurais pu utiliser le smiley mais je ne veux pas être taxé #porc)
Dans le code que j'ai proposé le with ADOTable4 do est faux, selon le reste du code c'est with ADOTable3 dode même, j'ai un gros doute, j'ai l'impression que vous vous êtes trompée dans l'affectation des colonnes !

Si dans les noms de colonnes le suffixe "_t" indique qu'il s'agit d'une colonne de la table temporaire et que vous voulez copier de la table temporaire vers la table "permanente" alors vous vous êtes fourvoyée dans le sens de copie !
ADOTable3 -> T_Temporaire
ADOTable4 -> T_Cible

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
procedure TForm3.CopierVersClick(Sender: TObject);
begin
      T_Temporaire.First;
      while not T_Temporaire.EOF do 
          begin 
            // insertion 
            if T_Cible.Findkey(T_Temporaire['Id_rubrique']) then T_Cible.Edit else T_Cible.Insert ;
            T_Cible['Id_rubrique'] := T_Temporaire['Id_rubrique'];
            T_Cible['Code_rubrique'] := T_Temporaire['Code_rubrique_t'] ;
            T_Cible['Designation'] := T_Temporaire['Designation_t'] ;
            T_Cible['Base'] := T_Temporaire['Base_t'] ;
            T_Cible['T_Pat'] := T_Temporaire['T_Pat_t'] ;
            T_Cible['T_Sal'] := T_Temporaire['T_Sal_t'] ;
            T_Cible['P_Pat'] := T_Temporaire['P_Pat_t'] ;
            T_Cible['P_Sal'] := T_Temporaire['P_Sal_t'] ;
            try 
                T_Cible.Post ;
            except
                // traitement erreur 
                 T_Cible.Cancel  // annulation
            end;
            // lecture 
            T_Temporaire.Next; 
        end;
 end;

NOTES :
- J'en ai même ôté ces instructions with qui floutent plus que ne sont utiles
- Pour l'instruction FindKey j'ai un doute, mais je n'irais pas faire la vérification, ADO et Access, je l'ai souvent écrit, ce n'est pas ma tasse de thé
- maintenant que le SGBD a été indiqué je confirme que la requête indiquée est possible https://docs.microsoft.com/fr-fr/off...oft-access-sql
- malheureusement ce même "SGBD" (notez que je l'ai mis entre guillemets pour exprimer mon désaveu d'Access) ne permet pas de faire des instructions de type UPDATE OR INSERT

[ALWEBER]

Je pense, remplacer

Code :

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

1
2
3
 
  With ADOTable4 do
     begin

par

Code :

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

1
2
3
 
  With ADOTable3 do
     begin

[anapurna]

salut

si c'est sur une meme base
autant utiliser le sql c' seras toujours plus rapide qu'un boucle et un post en fin de boucle

Code :

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

1
2
3
4
 
Insert into T_Cible(CH1,CH2,...)
select CH1,CH2,...
From T_TEMPORAIRE

si il existe des condition particulière tu peut ajouter des filtre

[mimiferry]

Bonjour,

Merci de vos réponse !

Le programme fonctionne bien, En fait, fallait juste faire :

With ADOTable3 do

Au lieu de

With ADOTable4 do

Et ça fonctionne bien !

C'est vrai y avait confusion dans le transfère des enregistrements entre table et cela est bien corrigé !
Merci @SergioMaster pour ton idée de donner des noms explicite à chaque composant, et cela est bien fait !

mais apparemment la deuxième solution proposé par SergioMaster en utilisant SQL est plus élégante et j'aimerai bien par cette occasion apprendre à l'utiliser
si j'ai donc bien compris, faut utiliser ADOQuery au lieu de ADOTable et la propriété SQL du ADOQuery,
Mais dans ce cas la requête SQL proposé sera utiliser plutot à la place du code du bouton valider toujours ou bien sur la propriété SQL de ADOQuery ?

[SergioMaster]

Merci @SergioMaster pour ton idée de donner des noms explicite à chaque composant !

Cela devrait être systématique, pensez toujours "et si je devais faire de la maintenance sur le programme"

Mais apparemment la deuxième solution proposée par SergioMaster en utilisant SQL est plus élégante et j'aimerais bien par cette occasion apprendre à l'utiliser

anapurna aussi l'a proposée. Cette solution est plus élégante dans le sens où c'est le SGBD qui fait le boulot et non le programme

si j'ai donc bien compris, faut utiliser ADOQuery au lieu de ADOTable et la propriété SQL du ADOQuery,

oui

Mais dans ce cas la requête SQL proposé sera utiliser plutôt à la place du code du bouton valider toujours?

Dans le code de l'événement OnClick du bouton par un simple ExecSQL

ici, une version qui évite de poser un TADOQuery sur la forme (création au runtime)

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
procedure TForm3.CopierVersClick(Sender: TObject);
var aQuery : TAdoQuery;
     n : integer;
begin
aQuery:=TADOQuery.Create(Self);  // création du composant
try
  aQuery.Connection:=Connexionbase;   // Connexionbase = Adoconnection1 
  // bien sûr il faut remplacer Table4 et Table3 par les bons noms de table 
  aquery.SQL.text:='INSERT INTO Table4 (id_rubrique,Code_Rubrique,Designation,Base,T_Pat,T_Sal,P_Pat,P_sal)';  
  aQuery.SQL.Add('SELECT Id_rubrique_t,Code_rubrique_t,Designation_t,Base_t,T_Pat_t,T_Sal_t,P_Pat_t,P_Sal_t FROM Table3');
 try
    n:=aQuery.ExecSQL;   // exécution du SQL, pour le plaisir on récupére le nombre d'insertions 
    Showmessage(format('copie de %d enregistrements',[n]));
 except
    Showmessage('Erreurs'); // penser à gérer le cas où doublons 
 end; 
finally
 aQuery.Free;  // "supprime" le composant
end; 
end;

P.S. Il doit même y avoir plus simple, exécuter une commande directement avec la connexion mais ADO et moi ...