Tengo este código en BCB 6 para restaurar un BB.DD. hecha con FB 2.5:
Código:
try
{
Query1->Transaction->Active = false;
Afiliados->Connected = false;
IBRestoreService1->LoginPrompt = false;
IBRestoreService1->Params->Add("user_name=sysdba");
IBRestoreService1->Params->Add("password=masterkey");
IBRestoreService1->DatabaseName->Add(Afiliados->DatabaseName);
IBRestoreService1->BackupFile->Add(pItem->SubItems->Strings[2]);
IBRestoreService1->Active = true;
IBRestoreService1->ServiceStart();
while (IBRestoreService1->IsServiceRunning)
Memo1->Lines->Add(IBRestoreService1->GetNextLine());
}
__finally
{
IBRestoreService1->Active = false;
Afiliados->Connected = true;
Query1->Transaction->Active = true;
}
La copia de seguridad a restaurar la elijo a partir de TListView en el que muestro las que hay guardadas. El problema aparece al comenzar a restaurarse el fichero, en cuanto se ejecuta por primera vez el
while. Me da este error:
El error, al menos así lo interpreto, parece indicar que la base de datos está en uso ¡cuando acabo de cerrarla al inicio del proceso!