Discussion :

[pqboot]

Bonjour à tous,

j'ai installé SQL Server Express.
J'ai écris du code avec VB.Net pour créer une base de données, ajouter une table,
ajouter des enregistrements et tout à l'air de fonctionner correctement.
Mais j'ai quand meme un soucis.
Pour essayer de comprendre (sans succès), j'ai commençé un nouveau programme avec
seulement 2 boutons. Un pour ouvrir la base "Test1", et un autre pour la supprimer.
Si après le lancement du programme je tente de supprimer la base, pas de problème.
Mais si j'ouvre d'abord la base avec le bouton "BtnOPEN", et qu'ensuite j'essai de
la supprimer avec le bouton "BtnDROP", j'ai ce message d'erreur :

"Impossible de supprimer la base de données "Test1" car elle est en cours d'utilisation."

Pourtant j'ai bien fait ".Dispose" sur l'objet SqlConnection.
Qu'est c'que j'ai oublié ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub BtnOPEN_Click(sender As Object, e As EventArgs) Handles BtnOPEN.Click
 
    Dim ObjConnection As SqlConnection
 
    ObjConnection = New SqlConnection("Server=localhost\SQLEXPRESS;User Id=toto;Password=xxxx;Database=Test1;")
 
    Try
        ObjConnection.Open()
        MessageBox.Show("Ouverture Ok")
 
    Catch ex As Exception
        MessageBox.Show(ex.Message)
 
    Finally
        ObjConnection.Close()
        ObjConnection.Dispose()
        ObjConnection = Nothing
 
    End Try
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub BtnDROP_Click(sender As Object, e As EventArgs) Handles BtnDROP.Click
 
        Dim ObjConnection As SqlConnection
        Dim ObjCMD As SqlCommand
 
        ObjConnection = New SqlConnection("Server=localhost\SQLEXPRESS;User Id=toto;Password=xxxx;")
        ObjConnection.Open()
 
        ObjCMD = ObjConnection.CreateCommand
        ObjCMD.CommandText = "DROP DATABASE IF EXISTS Test1;"
 
        Try
            ObjCMD.ExecuteNonQuery()
            MessageBox.Show("DROP Ok")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        Finally
            ObjCMD.Dispose()
            ObjCMD = Nothing
            ObjConnection.Close()
            ObjConnection.Dispose()
            ObjConnection = Nothing
 
        End Try
 
    End Sub

[tatayo]

Bonjour,
Je pense que la base de données par défaut est Testa.
Change de base (méthode ChangeDatabase) pour te connecter à master.
Tu devrais alors pouvoir supprimer ta base Testa.

Tatayo

[pqboot]

@tatayo Merci pour la réponse

Dans le bouton "BtnDROP", j'ai modifié le code comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        ObjConnection = New SqlConnection("Server=localhost\SQLEXPRESS;User Id=toto;Password=xxxx;Database=master;")
        ObjConnection.Open()
        ObjConnection.ChangeDatabase("master")
 
        ObjCMD = ObjConnection.CreateCommand
        ObjCMD.CommandText = "DROP DATABASE IF EXISTS Test1;"

mais j'ai toujours le message d'erreur.

[tatayo]

Il y a une méthode dans la documentation:
Create/Alter/Drop database.

Attention à ne pas supprimer la base master

Tatayo.

[umfred]

Tu ne l'as ouverte dans une autre application par hasard ? un sql management, ou autre ? ou un objet lié à la nase dans tes projets ouverts ?

[pqboot]

Merci pour vos réponses

je viens d'essayer avec SMO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim ServeurSQL As Microsoft.SqlServer.Management.Smo.Server
 
ServeurSQL = New Microsoft.SqlServer.Management.Smo.Server("localhost\SQLEXPRESS")
ServeurSQL.ConnectionContext.LoginSecure = False
ServeurSQL.ConnectionContext.Login = "xxxx"
ServeurSQL.ConnectionContext.Password = "xxxx"
 
ServeurSQL.Databases("Test1").Drop()

si j'utilise pas avant le bouton "BtnOPEN", ça fonctionne, la base est bien détruite.
Mais si j'ouvre d'abord la base avc le bouton "BtnOPEN", cette fois-ci j'ai droit à
2 exceptions :

"Drop failed for Database 'Test1'"
et
"Impossible de supprimer la base de données "Test1" car elle est en cours d'utilisation."

Aucun autre programme tournant utilisant la base.
J'ai juste installé SQL Server Express et j'ai commencé à programmer avec une nouvelle
application .NET Framework 4.8

[pqboot]

J'ai ajouté ce code pour voir la liste des connexions sur la base "Test1" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        Dim ObjReader As SqlDataReader
        Dim s As String
        ObjCMD.CommandText = "SELECT DB_NAME(dbid) as DBName, loginame as LoginName, program_name, status FROM sys.sysprocesses WHERE DB_NAME(dbid) = 'Test1' AND spid != @@SPID;"
        ObjReader = ObjCMD.ExecuteReader()
        While ObjReader.Read()
            s = ObjReader("DBName")
            s = ObjReader("LoginName")
            s = ObjReader("program_name")
            s = ObjReader("status")
        End While

sans appuyer sur "BtnOPEN", la liste est vide.
Mais après avoir sollicité "BtnOPEN", j'obtiens :

Test1
Phil
.Net SqlClient Data Provider
sleeping

Dans "BtnDROP", avant d'ouvrir la connexion avec ".Open()", j'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SqlConnection.ClearAllPools()

le nombre de connexions est revenu à zéro, et j'ai pu supprimer la base,
sans message d'erreur.
Je pense qu'il me faut passer du temps à essayer de comprendre le fonctionnement de
ce que Microsoft appele le "Pooling de connexions" dans SQL Server.

[pqboot]

Je vais clore le sujet puisque manifestement c'était le Pool de connexions le "soucis".
Ce Pool qui semble t-il accélère les connections.
J'ai lu qu'on pouvait le désactiver dans la chaine de connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

POOLING=FALSE;

Mais ce systeme me laisse perplexe.
Qu'il garde une liste des connections précédentes ok, mais il garde aussi le lien
sur la derniere base de données ouverte. ça doit poser des problemes non ?
Dans mon BtnDROP, j'ai supprimé l'appel à la méthode ".ClearAllPools()"
Dans mon BtnOPEN, avant de fermer la base j'ai ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.ChangeDatabase("master")

Plus de message d'erreur lors de la suppression de la base de données avec DROP.

[bacelar]

Désolé pour le manque de réactivité.

Le pooling de connexion à la base est un truc vieux comme .NET2.
C'est un mécanisme qui a(vait) pour but de réduire la latence et le temps de connexion, surtout dans les applications Web.

Happy Programming.

[pqboot]

Désolé pour le manque de réactivité.

Le pooling de connexion à la base est un truc vieux comme .NET2.
C'est un mécanisme qui a(vait) pour but de réduire la latence et le temps de connexion, surtout dans les applications Web.

Happy Programming.

Merci pour la précision