Sauvegarde/Restauration BD SqlServer depuis appli VB.NET

Bonjour à tous,

cette question aurait aussi bien ça place dans la section Sql Server mais je poste ici quand meme parce que la nécessité de pouvoir le faire depuis l'applicatif VB.NET est primordiale.

Donc je développe un petit module qui devrait permettre de faire des sauvegardes et restaurations à chaud de la base SqlServer utilisé par mon appli. Je sauvegarde ma base de cette manière :

Code:

---

1 2 3 4 5 6 7 8

Dim Sql, nomfichier As String nomfichier = "SAV" & Now.ToString("s").Replace(":", "-")   ConnectBD(Conn) Sql = "BACKUP DATABASE GPAO TO DISK=N'" & depot & nomfichier & ".bak '" Conn.Execute(Sql) DeconnectBD(Conn)

---

Ce code me génère donc un fichier .bak dans un dépot qui rassemble toutes les sauvegardes.

Pour charger (et donc remplacer ma base courante), je procède comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Sql, nomfichier As String nomfichier = backups.GetItemText(backups.SelectedItem)   ConnectBD(Conn) ' KILL DE TOUTES LES CONNEXIONS ACTIVES A LA BASE 'Sql = " SELECT 'kill', spid FROM sysprocesses WHERE dbid=db_id('GPAO');" 'Conn.Execute(Sql)   ' EXECUTE LA RESTAURATION Sql = "RESTORE DATABASE GPAO FROM DISK=N'\\serveurfm\d\bob\backup\" & nomfichier & "';" Conn.Execute(Sql) DeconnectBD(Conn)

---

Quand je tente un chargement d'une sauvegarde, j'ai le message suivant :

Citation:

---

Impossible de remplacer le fichier 'C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\GPAO.mdf' car il est utilisé par la base de données 'GPAO'.

---

Effectivement, pour pouvoir exécuter ma requete RESTORE, j'utilise une connexion à cette meme base GPAO (je vous mettrai ma procédure ConnectBD si nécessaire)... Donc j'imagine qu'il n'est pas capable de remplacer la base de données GPAO puisque je suis actuellement connecté dessus !

Mais comment faire dans ce cas ?

Merci pour votre aide.

Bob

Bon, il y a du nouveau,

j'ai changé la chaine de connexion, avant je me connectais directement sur ma bd GPAO, maintenant je pointe sur MASTER. Et j'ai le message suivant :

Impossible d'obtenir l'accès exclusif car la base de données est en cours d'utilisation.

C'est le serpent qui se mord la queue !! :D

Comment est-ce que je peux leurrer le server SQL et exécuter cette fichue requete RESTORE ?

Salam (Bonjour)

je crois qu'il faut exécuté cette requête avant de faire la restauration

Code:

---

ALTER DATABASE labasededonnees SET SINGLE_USER WITH ROLLBACK IMMEDIATE

---

j'ai déjà eu ce problème et je l'ai résolu par cette méthode

Avant de partir au boulot j'étais plus ou moins parvenu à une solution en faisant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

ConnectMaster(Conn)   Sql = "SELECT spid FROM sysprocesses WHERE dbid=db_id('GPAO');" Rs.Open Sql, Conn do while not Rs.eof Conn.Execute("KILL " & Rs("spid").value & ";") Rs.MoveNext() Loop Rs.Close   ' Ensuite la restauration est possible Sql = "RESTORE DATABASE GPAO FROM DISK=N'\\serveurfm\d\bob\backup\" & nomfichier & "';" Conn.Execute(Sql)   DeconnectBD(Conn)

---

Maintenant peut-être que le ALTER est plus rapide ou performant, je teste demain matin.

Merci