1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
tableSource:=TTable(DataModule2.FindComponent(nomTable));
// définition de la Table temp par copie de la table sélectionnée (tableSource)
definiTTable('temp',tableSource);
// définition du nouveau champs
definirNewChamps('temp', nomChamps, typeChamps, tailleChamps);
// création de la table dans la BDD avec les champs de la tableSource + le champs que l'on souhaite ajouter
dataModule2.temp.CreateTable;
tableSource.Active:=false;
// copie des enregistrements de la table de départ vers la table temp avec un TBatchMove
dataModule2.BatchMove1.source:=tableSource;
dataModule2.BatchMove1.destination:=dataModule2.temp;
dataModule2.BatchMove1.Execute;
tableSource.close;
// tableSource.BatchMove(dataModule2.temp,batCopy);
tableSource.DeleteTable;
dataModule2.temp.RenameTable(nomTable); |
Partager