Error con Restore

[Ledian_Fdez]

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:

Exclusive access could not be obtained because the database is in use

[Casimiro Noteví]

Está claro, ¿verdad?, estás restaurando una BD en uso, tendrá que desconectar todo el mundo

[Ledian_Fdez]

Me podrian explicar ¿cómo desconectar a todo el mundo?

Salu2,
Y grasias de antemano.

[Casimiro Noteví]

No tengo ni idea de cómo se hace en MS SQL
Aunque debes tener cuidado de no sobreescribir la BD actual, haz una copia de la misma antes de restaurar.

[Ledian_Fdez]

Intente con

Código Delphi [-]
DM.Connect.Connected := False;

pero sigue saliendo el mismo error.

[luisgutierrezb]

yo te recomiendo que pongas la base de datos en modo "single",
EXEC sp_dboption 'Works', 'single user', 'true'
EXEC sp_dboption 'Works', 'single user', 'false'

Works seria la base de datos, y el verdadero o falso es para ponerlo o quitarlo...

restauras el respaldo y la vuelves a poner multiusuario....

mas informacion...

http://www.kodyaz.com/articles/alter...user-mode.aspx