Hola familia delphinos:
Estoy desarrollando una aplicación en Delphi7 y SQL Server 2000.
Con este codigo intento restaurar la base de datos.
Código Delphi
[-]procedure TPrincipalForm.RestaurarBD1Click(Sender: TObject);
var
Camino : String;
begin
Camino := 'c:\SalvaSAF';
try
QrySalvRest.SQL.Clear;
QrySalvRest.SQL.Add('Restore database SAF');
QrySalvRest.SQL.Add('from disk = '+ QuotedStr(Camino));
QrySalvRest.SQL.Add('With Replace');
QrySalvRest.ExecSQL;
Application.MessageBox('La restaura terminó satisfactoriamente.','Salvar BD', MB_ICONINFORMATION);
except
Application.MessageBox('No se pudo restaurar la base de datos.','Salvar BD', MB_ICONERROR);
end;
end;
Este es el error que me lanza:
Cita:
|
Exclusive access could not be obtained because the database is in use
|