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
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 :
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
Partager