Bonjour
Comment peut-on en Delphi programmer une procedure qui assurerait la copie du fichier ".bd" mais en incluant les informations sur les index, par exemple pour avoir une sauvegarde.
J'ai écrit cette procédure mais la structure des index n'est pas recopiée dans le nouveau fichier ".db" ni bien sur les fichiers correspondants. Mais si je n'ai pas la strcture des index le progeramme génére des erreurs los du remplacement du fichier de base par la sauvegarde car l'information index est perdue
procedure TSoftB_MainForm.SauvegarderBase(NomBase: string);
begin
TableCibleTransfert.TableName := NomBase + FormatBak + '.db';
TableSourceTransfert.TableName := NomBase + '.db';
with BatchMove1 do
begin
Source := TableSourceTransfert;
Destination := TableCibleTransfert;
Mode := batCopy;
Execute;
ShowMessage(NomBase + ' : ' + IntToStr(MovedCount) + ' enregistrements copiés');
end;
end;
Si quelqu'un a une idée...Merci d'avance
M Torreilles
Partager