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
Partager