Bonjour
j'utilise le code si dessous pour supprimer une ligne de la table(base sql) ARTICLE.Pour supprimer je tape le code article dans le textbox (code.text)
puis je clique sur le bouton et c'est bon ca marche.(le 1er code)
mais si je ne connait pas le code je tape une point d'interrogation et je clique (enter) pour afficher une boite dialogue qui contient un textbox(desig.text) qui me permet de taper la designation d'article a supprimer et si je clique (enter) le code de ce article va etre envoyé vers le code(le 2eme code).text du form(Il s'envoie correctement).mais si je clique sur la bouton il ne s'efface pas.
Merci de m'aider avec ce problème ca me gène parce que je ne vois pas une différence avec les deux méthode quand je clique sur la bouton supprimer.
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
 
 Private Sub nom_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles code.KeyDown
        If e.KeyCode = Keys.Enter Then
            If code.Text = "?" Then
                dialogarticlesupprimer.Show()
            End If
        End If
    End Sub
 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        con.Open() ' ouverture de la connexion vers la base
 
        'SELECT CHARINDEX('SQL','Useful SQL String Function')
        Dim cmd5 As New SqlCommand("DELETE FROM [Base-Ets-Mtiri].[dbo].[ARTICLE] where ART='" & code.Text & "'", con)
        cmd5.ExecuteNonQuery()
        con.Close()
    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
 
 Private Sub nom_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles desig.KeyDown
 
        If e.KeyCode = Keys.Enter Then
 
            Dim dst4 As New DataSet
            Dim adpt4 As New SqlDataAdapter("select * from [Base-Ets-Mtiri].[dbo].[ARTICLE] where DESIG='" & Me.desig.Text & "'", con)
            adpt4.Fill(dst4, "t")
            Dim z As Integer
            For z = 0 To dst4.Tables("t").Rows.Count - 1
                supprimerarticle.code.Text = dst4.Tables("t").Rows(z).Item(0) & vbCrLf
            Next
            Me.Close()
 
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
 
    End Sub