| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
 Publicado: Jue 02 Feb, 2017 5:59 pm Asunto: Progreso al restaurar una copia de seguridad |
 |
|
Para que cuando se hace la copia de seguridad con un TIBBackupService no parezca que el equipo se ha quedado muerto me he montado un formulario con un TMemo en el que se va volcando por donde va el proceso de copia. Eso lo hago así:
| Código: | Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
Backup->BackupFile->Add(cAux = cDirectorio + "\\" + Now().FormatString("yyyymmddhhnnss") + ".gbk");
Backup->Active = true;
Backup->ServiceStart();
while (Backup->IsServiceRunning)
Memo1->Lines->Add(Backup->GetNextLine()); |
El resultado es este:
Había pensado que para usar el TIBRestoreService valdría una proceso similar:
| Código: | Restore->LoginPrompt = false;
Restore->Params->Add("user_name=sysdba");
Restore->Params->Add("password=masterkey");
Restore->DatabaseName->Add(fPersona->Afiliados->DatabaseName);
Restore->BackupFile->Add(pItem->SubItems->Strings[2]);
Restore->Active = true;
Restore->ServiceStart();
while (Restore->IsServiceRunning)
Memo1->Lines->Add(Restore->GetNextLine()); |
Sin embargo al ejecutarlo en el TMemo no se muestra nada, se queda en blanco.
Todas las variables que aparecen (cAux, pItem, etc.) están perfectamente definidas; el proceso se ejecuta bien pero no muestra nada ¿Alguna idea?
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
 |
JesúsGandia
Master
Registrado: 17 Jul 2004Mensajes: 403Ubicación: Gandia, Valencia
|
| Publicado: Mie 02 May, 2018 5:24 pm Asunto: |
|
|
Para hacer un RESTORE, la base de datos debe ser cerrada antes.
| Código: |
MDatos->IBDatabase->Close();//Te falta esta Linea
MDatos->IBDRestaurar->Attach();//Te falta esta LINEA
MDatos->IBDRestaurar->Active = true; // Activamos el servicio
MDatos->IBDRestaurar->ServiceStart(); // Iniciamos la restauracion
while(MDatos->IBDRestaurar->IsServiceRunning)
{
MemoRestore->Lines->Add(MDatos->IBDRestaurar->GetNextLine());
Application->ProcessMessages();
}
MDatos->IBDRestaurar->Active = false;// Desactivamos el servicio
|
_________________
Muchos hombres no se equivocan jamás porque no se proponen nada razonable. |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Vie 27 Sep, 2019 12:37 am Asunto: |
|
|
Que tál Jesús, puedes ponerte en contacto conmigo, tengo unas preguntas sobre tu software de Restaurante te paso mi correo: ccsalazar(arroba)prodigy.net.mx
Gracias.
Nota: no puedo enviar mensajes privados, ya que al tratar de hacerlo el navegador se queda en blanco y no me permite ingresar para ver los generales de cualquier usuario.
Saludos!!
_________________
 |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
