J'ai un problème que j'aimerais bien résoudre avec votre aide
J'aimerais copier ma base de données dans un autre fichier avec le programme ouvert. Sa fonctionne avec le code suivant mais l'enregistrement
ne copie pas toujours les derniers enregistrement effectués.
Faut t'il mettre la table a false avant la sauvegarde dans le dossier tipsrepairsaved?? Quest ce que je fait d'incorrect....


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
30
31
32
33
34
35
36
37
 
procedure TFormSauvegarde.FormActivate(Sender: TObject);
var
sr : TSearchRec;
trouve : integer;
dest : string;
 
 
begin
table1.refresh;
 
DeleteFile('c:\tipsrepairsaved\tips.db');
DeleteFile('c:\tipsrepairsaved\tips.MB');
DeleteFile('c:\tipsrepairsaved\tips.PX');
DeleteFile('c:\tipsrepairsaved\ep.db');
DeleteFile('c:\tipsrepairsaved\ep.MB');
DeleteFile('c:\tipsrepairsaved');
 
 
CreateDir('c:\tipsrepairsaved');
 
dest:='c:\tipsrepairsaved\';
trouve := FindFirst('c:\voltasoft\tipsrepair\alias\*.*', faAnyFile, sr);
 
 while trouve = 0 do
 begin
 CopyFile(pchar('c:\voltasoft\tipsrepair\alias\'+sr.Name), pchar(dest+ExtractFileName(sr.Name)),false);
 trouve := FindNext(sr);
 end;
 FindClose(sr);
 
 if FileExists('c:\tipsrepairsaved\ep.MB')then
MessageDlg('Enregistrement bien effectué', mtWarning, [mbOk], 0)
 else
MessageDlg('ATTENTION enregistrement NON effectué vérifier le périphérique', mtWarning, [mbOk], 0);
 
end;