problème TEXTBOX ET SQL

Version imprimable

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:

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:

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

26/04/2011, 14h35
asmduty

Peut être simplement parce que dans le second cas tu ne lui dis nulle part de supprimer quoi que ce soit :x
26/04/2011, 16h04
ostenhard
Bonjour,

Dans le second cas, tu dis que tu récupères correctement le code de l'article ? As-tu vérifié que ce code existe bien en base ? As-tu vérifié ta requête de suppression ? Passes-tu bien dans le code du bouton ?

Maintenant j'ai quelques remarques annexes sur ton code :
1. Il faut utiliser les requêtes paramétrées
2. Pourquoi faire un select * quand tu ne veux récupérer que la première colonne ?
3. Pourquoi utiliser un SqldataAdapter pour récupérer les données ?
4. Pourquoi faire une boucle sur la liste des résultats (vraisemblablement tu n'en attends qu'un seul) ?
5. Et enfin, si tu ne veux récupérer qu'une seule valeur, un ExecuteScalar est plus pertinent
26/04/2011, 23h27
oami89
Citation:
Envoyé par ostenhard

Bonjour,

Dans le second cas, tu dis que tu récupères correctement le code de l'article ? As-tu vérifié que ce code existe bien en base ? As-tu vérifié ta requête de suppression ? Passes-tu bien dans le code du bouton ?

Maintenant j'ai quelques remarques annexes sur ton code :

Il faut utiliser les requêtes paramétrées
Pourquoi faire un select * quand tu ne veux récupérer que la première colonne ?
Pourquoi utiliser un SqldataAdapter pour récupérer les données ?
Pourquoi faire une boucle sur la liste des résultats (vraisemblablement tu n'en attends qu'un seul) ?
Et enfin, si tu ne veux récupérer qu'une seule valeur, un ExecuteScalar est plus pertinent
Mais le ce code lui même fonctionne avec une autre table mais la différence que la clé primaire de l'autre table est de type entier.
et le choix du l'article, c'est déjà j'utilise l'auto complete pour choisir la désignation donc obligatoirement que l'article se trouve dans la base.
et si je met a la place de * un paramètre c'est la même chose le probleme persiste.
26/04/2011, 23h30
oami89

Citation:

Envoyé par asmduty

Peut être simplement parce que dans le second cas tu ne lui dis nulle part de supprimer quoi que ce soit :x

je lui dis de supprimer l'article ou j'ai choisie la désignation en envoyant son code donc je retourne exactement à la première cas.
et comme j'ai dit ce meme code fonctionne avec une autre table mais la seul différence que la clé primaire de l'autre est de type entier.
27/04/2011, 12h46
oami89

Et un autre problème aussi qu'il n'ya aucun message erreur
27/04/2011, 16h09
ostenhard

Citation:

Envoyé par oami89

Mais le ce code lui même fonctionne avec une autre table mais la différence que la clé primaire de l'autre table est de type entier.
et le choix du l'article, c'est déjà j'utilise l'auto complete pour choisir la désignation donc obligatoirement que l'article se trouve dans la base.
et si je met a la place de * un paramètre c'est la même chose le probleme persiste.

J'ai pas dit que changer l' * par les champs résoudrait le problème, seulement améliorerait le code.

Sinon peut-on voir la requête exécutée dans les deux cas ? Car es-tu vraiment sûr que le premier champ de la table est le champ ART ?
27/04/2011, 16h11
ostenhard

Citation:

Envoyé par oami89

Et un autre problème aussi qu'il n'ya aucun message erreur

Comment ? Tu n'obtiens pas de message d'erreur c'est bien ça ?
Ben ça veut simplement dire que ton code fait exactement et correctement ce que tu lui dis de faire ! Ce qui est différent visiblement de ce que tu souhaites lui faire faire !