Ben le run marche et j'ai pas d'exeptions :)
Citation:
Tu n'as peur de rien toi !
Peur de rien moi ^^ Nan plus sérieusement je travaille sur une base de données de test que j'ai créé vite fait :)
Bon ben je ballance mes sources.. Peut etre qu'un jour un stagiaire encore plus incompétent que moi passera par la ( J'ai dit peut etre hein, je sais que ca va être dur :p )
BACKUP
Citation:
///////////////////////////////////////////////////////////////////////////////////////
// Procédure permettant de sauver une BDD
procedure TDataModule_debutant.save;
var jvBackup : TJvUIBBackup;
begin
jvBackup := TJvUIBBackup.Create(nil);
try
// On renseigne l'adresse de la BDD
jvBackup.Database:='C:\Documents and Settings\AF36\Desktop\BDD\BDDs de Test\Statistique\FireBird\STATSFIREBIRD.FDB';
// Voir les erreurs
jvBackup.Verbose := true;
// Login
jvBackup.UserName:='SYSDBA';
// Pwd
jvBackup.PassWord:='masterkey';
// On efface le BackupFiles
jvBackup.BackupFiles.Clear;
// On place le chemin et le nom du fichier de sauvegarde de la BDD ( ici c'est dans un champs )
jvBackup.BackupFiles.add(Form_delph_IB_FRB.Edit2.Text);
// Go ^^
jvBackup.Run;
finally
// On libère
jvBackup.Free;
end;
end;
///////////////////////////////////////////////////////////////////////////////////////
RESTORE
Citation:
///////////////////////////////////////////////////////////////////////////////////////
// Procédure permettant de restaurer une BDD
procedure TDataModule_debutant.load;
var jvRestore : TJvUIBRestore;
begin
jvRestore := TJvUIBRestore.Create(nil);
try
// On renseigne l'adresse de la BDD
jvRestore.Database:='C:\Documents and Settings\AF36\Desktop\BDD\BDDs de Test\Statistique\FireBird\STATSFIREBIRD.FDB';
// Voir les erreurs
jvRestore.Verbose := true;
// Les options choisies pour la restauration
jvRestore.Options := [roReplace,roUseAllSpace];
// Login
jvRestore.UserName:='SYSDBA';
// Pwd
jvRestore.PassWord:='masterkey';
// On efface le BackupFiles
jvRestore.BackupFiles.Clear;
// On place le chemin et le nom du fichier de sauvegarde de la BDD ( ici c'est dans un champs )
jvRestore.BackupFiles.add(Form_delph_IB_FRB.Edit2.Text);
// Go ^^
jvRestore.Run;
finally
// On libère
jvRestore.Free;
end;
end;
///////////////////////////////////////////////////////////////////////////////////////
REPAIR
Citation:
///////////////////////////////////////////////////////////////////////////////////////
// Procédure permettant de réparer une BDD
procedure TDataModule_debutant.repair;
var jvUIBRepair : TJvUIBRepair;
begin
jvUIBRepair := TJvUIBRepair.Create(nil);
try
// On renseigne l'adresse de la BDD
jvUIBRepair.Database:='C:\Documents and Settings\AF36\Desktop\BDD\BDDs de Test\Statistique\FireBird\STATSFIREBIRD.FDB';
// Les options choisies pour la reparation
jvUIBRepair.Options:= [roMendDB, roValidateFull, roIgnoreChecksum];
// Login
jvUIBRepair.UserName:='SYSDBA';
// Pwd
jvUIBRepair.PassWord:='masterkey';
// Go ^^
jvUIBRepair.Run;
finally
// On libère
jvUIBRepair.Free
end;
end;
///////////////////////////////////////////////////////////////////////////////////////
Bon ca fait 3jours que je fais du Delphi, alors on évite de me déchirer trop violemment si ce que j'ai fait c'est moisi ^^