Discussion :

[redoran]

Slt ; [D7+Access 2003] pour sauvegarder ma Bdd avec date de sauvegarde j'utilise ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
var chemin : string;
begin
if DirectoryExists('C:\Documents and Settings\a\Bureau\essai comp\archivebdd\') then
begin
SaveDialog1.FileName:='ATC'+FormatDateTime('dd-mm-yyyy',Now)+'.mdb';
SaveDialog1.execute;
copyFile(PChar('C:\Documents and Settings\a\Bureau\essai comp\ATC.mdb'),PChar('C:\Documents and Settings\a\Bureau\essai comp\archivebdd'\'+'savedialog1.FileName''),false);
(savedialog1.FileName);//
        end
  else
    showmessage ('le répertoire n''existe pas');
end;

sa marche bien le seul problème c'est que j'arrive pas a nommé ma bdd "ATC" avec le contenu du savedialogue1.filename pour avoir le résultat suivant : ATC 23/10/2010.

[Andnotor]

Et à quoi sert le SaveDialog si de toute façon tu imposes le répertoire et le nom de fichier

[redoran]

Re ; @ andnotor là je pensé que peut être que l'utilisateur veut la sauvegarder ailler que mon répertoire; mais je crois vous avez raison Ok :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
var nbd : string; // nouveau nom de ma bdd avec date de sauve garde
begin
if DirectoryExists('C:\Documents and Settings\a\Bureau\essai comp\archivebdd\') then
begin
nbd:='ATC'+FormatDateTime('dd-mm-yyyy',Now)+'.mdb';// ATC nom de la bdd
copyFile(PChar('C:\Documents and Settings\a\Bureau\essai comp\ATC.mdb'),PChar('C:\Documents and Settings\a\Bureau\essai comp\archivebdd'\.................''),false);
 
        end
  else
    showmessage ('le répertoire n''existe pas');
end;

là ou il y'a les pointillé j'arrive pas a inséré le nouveau nom de la BDD (ATC + date...) sa bloque lors de la compilation.

[Andnotor]

et un minimum d'effort avant de poster...

Code :

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

copyFile(PChar('C:\Documents and Settings\a\Bureau\essai comp\ATC.mdb'),PChar('C:\Documents and Settings\a\Bureau\essai comp\archivebdd\' +nbd), false);

[redoran]

Re ; merci andnotor , aussi je vous informe que le F1 coule dans mon sang .
l'erreur était la (archivebdd') en rouge qui provoqué l'arrêt du compilateur.

Code :

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

copyFile(PChar('C:\Documents and Settings\a\Bureau\essai comp\ATC.mdb'),PChar('C:\Documents and Settings\a\Bureau\essai comp\archivebdd'\.................''),false);

Code :

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

1
2
3
 
//ligne correcte après correction d'andnotor 
copyFile(PChar('C:\Documents and Settings\a\Bureau\essai comp\gest.mdb'),PChar('C:\Documents and Settings\a\Bureau\essai comp\archivebdd\'+ nbd),false);

@ Andnotor malgré que je suis débutant , mais ce que je craint le plus pas l'ignorance des procédures ni des fonctions on fini toujours par apprendre , mais le manque de point ou de virgule ou apostrophe ... c'est petite caractére qui bascule tous le code vers l'erreur c'est un opinion
merci Andnotor