Discussion :

[Aiman.elmachi]

Salut tout le monde,
J'ai developpé ma petite application, qui est en relation avec deux BD SQL Server(BD_Niveaux et BD_Query1), et maintenant je suis en cours d'attribuer des événement de suppression de tous les données des deux bases lors de la fermeture de cette application. J'ai écrit le code suivant :
rivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

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
        Dim CnxSQLBDN As New SqlConnection("Data Source=AIMAN-PC;Initial Catalog=BD_Niveaux;Integrated security=True")
        CnxSQLBDN.Open()
        Dim lbl_niv As String = Form4.Label2.Text
        Dim requete As String = "Delete [" & lbl_niv & "]"
        Dim req As SqlCommand = New SqlCommand(requete, CnxSQLBDN)
        Dim readerDrp As SqlDataReader
        readerDrp = req.ExecuteReader()
        readerDrp.Read()
        CnxSQLBDN.Close()
 
        Dim CnxQ As New SqlConnection("Data Source=AIMAN-PC;Initial Catalog=BD_Query1;Integrated security=True")
        CnxQ.Open()
        Dim lbl_nivq As String = Form4.Label2.Text
        Dim requeteq As String = "Delete [" & lbl_niv & "]"
        Dim reqq As SqlCommand = New SqlCommand(requeteq, CnxQ)
        Dim readerDrpq As SqlDataReader
        readerDrpq = req.ExecuteReader()
        readerDrpq.Read()
        CnxQ.Close()
    End Sub

Quand je clique sur le Bouton qui doit déclencher cet évenement de supression, les données de BD_Niveaux sont supprimé avec succès, mais pour la deuxième "BD_Query1" s'affiche un message d'erreur comme dans la capture si dessous :