backaup y Restore
Publicado por Elianny (31 intervenciones) el 05/11/2012 21:35:33
backaup y Restore
Hola a todos:
Hace varios días estoy tratando de hacer un backaup de la base de datos (Access) de mi sistema y por fin ya lo logré, me da como resultado un Archivo. BACK.
El código del botón copiar del backaup es:
Ahora bien cuál es mi pregunta: ¿Cuál sería el código del botón Restore, para restaurar la base de datos.
Se supone que si pasa algún problema con los archivos de la base de datos, el Archivo. BACK se restaura a mi base de datos.
Hola a todos:
Hace varios días estoy tratando de hacer un backaup de la base de datos (Access) de mi sistema y por fin ya lo logré, me da como resultado un Archivo. BACK.
El código del botón copiar del backaup es:
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
38
39
procedure TFrmBackup.btnBackUpClick(Sender: TObject);
var
Origem, Destino: string;
begin
If Edit1.Text = '' then
BEGIN
ShowMessage('Debe Elegir la base de datos que desea copiar ');
EXIT;
END;
If Edit2.Text = '' then
BEGIN
ShowMessage('Seleccione la unidad de almacenamiento');
Edit2.SetFocus;EXIT;
END;
if MESSAGEBOX(Application.Handle, 'Deseja Fazer o Backup do Arquivo?', 'Por favor, confirme:', MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON2) = ID_YES then
Origem := Edit1.Text;
Destino := Edit2.Text + '\' + Edit3.Text + '.BACK' ;
Progreso.Position:=1;
Progreso.Position:=3;
Progreso.Position:=5;
Progreso.Position:=20;
Progreso.Position:=30;
Progreso.Position:=40;
Progreso.Position:=70;
Progreso.Position:=80;
Progreso.Position:=90;
Progreso.Position:=100;
ShowMessage('Backup Realizado con Éxito.');
if not CopyFile(PChar(Origem), PChar(Destino), false) then
ShowMessage('Error al copiar ' + Origem + ' para ' + Destino);
Tiempo.Enabled:=True;
FrmBackup.Close;end;
Ahora bien cuál es mi pregunta: ¿Cuál sería el código del botón Restore, para restaurar la base de datos.
Se supone que si pasa algún problema con los archivos de la base de datos, el Archivo. BACK se restaura a mi base de datos.
Valora esta pregunta
1
