Bonjour
J'essaie d'utiliser les composants UIB sur XE3 pour faire un backup d'une base Firebird mais ç an fonctionne pas.
Aucun fichier créé ....
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 procedure TBaseManager.BackupBase; var Bck: TUIBBackup; begin if TFile.Exists(Parametres.Fichier) then begin try try Bck := TUIBBackup.Create(nil); Bck.Options := []; Bck.DataBase := Parametres.Fichier; Bck.LibraryName := Parametres.ClientFirebird; Bck.UserName := Parametres.Utilisateur; Bck.PassWord := Parametres.MotDePasse; Bck.BackupFiles.Add(ChangeFileExt(Parametres.Fichier, '.bak')); Bck.Run; except on E: Exception do MessageDlg(E.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbClose], 0); end; finally Bck.Free; end; end; end;
Quelqu'un saurait pourquoi ?
Papy !
Résolu : Comment ? Aucune idée ! Enfin, peut-être ... j'ai juste rajouté un Bck.BackupFiles.Clear
Partager