Pb avec le comoposant TBatchMove

Question

j'ai utiliser le code suivant pour exporter des donnees d'une table1 vers table2 :

procedure TForm1.Button1Click(Sender: TObject);
begin
    With BatchMove1 do
    begin
      Source := table1;
      destination := table2;
      mode := batCopy;
      Execute;  
      ShowMessage(IntToStr(MovedCount) + ' enregistrements copiés');
    end;
end;

mais j'aimerais bien avoir des reponses a ceci :
Comment faire pour :
1- renomer des champs pendant ou apres l'exportation des donnees ?
2- definir le(s) index de Tables2 ? (parce que tbatchmove n'accomplie pas cette tache).

cs_Nono40 · Answer

Question 1 :
Renommer les champs n'est pas facile par programmation avec les tables paradox.
Il faut ajouter un champ par requète :
ALTER TABLE "MaTable.db" ADD NouveauNom CHAR(25)
Puis copier les données par une autre requète
UPDATE "MaTable.db" SET NouveauNom=AncienNom
Enfin supprimer l'ancien :
ALTER TABLE "MaTable.db" DROP AncienNom 
Si un index primaire existait sur la colonne, alors il est supprimé. Il est donc préférable de le faire avant la création des index.

Mais s'il ne s'agit que d'une manipulation temporaire, utilise le "module bases de données" pour changer le nom de la colonne, c'est beaucoup plus rapide.

Question 2 :
Utilise TTable.AddIndex() pour ajouter un index sur une table existante.

--- :sleepy)  Nono du Moulin  :sleepy) ---

Pb avec le comoposant TBatchMove

1 réponse

Votre réponse