problème avec insertion des données dans sqlServer

Version imprimable

bonjour, je suis en train de développer mon application sur visual studio 2010
bon, j'ai 2 forme, la 1ere forme je fais l'insertion des utilisateurs suivant ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        DataRow = DataSet.Tables("dbo.compte").NewRow()
        DataRow("nomUser") = Me.TextBox1.Text
        DataRow("prenomUser") = Me.TextBox2.Text
        DataRow("loginUser") = Me.TextBox3.Text
        DataRow("mdpUser") = Me.TextBox4.Text
        DataRow("type") = Me.ComboBox1.Text
 
        If (Me.TextBox1.Text = "") Or (Me.TextBox2.Text = "") Or (Me.TextBox3.Text = "") Or (Me.TextBox4.Text = "") Or (Me.ComboBox1.SelectedItem = "") Then
            Label6.Visible = True
        Else
            DataSet.Tables("dbo.compte").Rows.Add(DataRow)
            cmd = New SqlCommand(strSql, connexion)
            cmdBuilder = New SqlCommandBuilder(adapter)
            adapter.SelectCommand = cmd
            'Mise à jour
            Try
                adapter.Update(DataSet, "dbo.compte")
                MsgBox("Le nouveau compte a été bien crée")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                ComboBox1.Text = ""
            Catch ex As Exception
                MsgBox("login existe déja")
                TextBox3.Text = ""
                TextBox4.Text = ""
            End Try
            'On vide le DataSet et on le 'recharge' de nouveau.
            DataSet.Clear()
            adapter.Fill(DataSet, "dbo.compte")
            DataTable2 = DataSet.Tables("dbo.compte")
 
        End If
end sub

et j'ai aussi une autre forme sur laquelle je fais l'insertion des président de la même manière.
bréf mon problème c'est que lorsque j'ajoute des utilisateurs (tout se passe bien) et je vais ajouter des président ou bien faire autre choses sur d'autre forme , en revenant sur la 1ere forme pour ajouter un 2 eme utilisateur j aurai l erreur "login existe déjà" (l utilisateur ne s'ajoute pas , sachant que le login n'est pas utilisé)
d’où vient ce problème et merci

18/05/2012, 14h58
-N4w4k-

Est ce que le champ "login" à la contrainte d'unicité dans ta table? Est ce que tu n’essaierais pas d'en ajouter un qui existe déjà?
18/05/2012, 15h28
Invité

Re

oui le champs login représente la clé dans la table des utilisateurs ,oui j'ajoute un champs qui n'existe pas dans la table

ton code est je crois mal structuré

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
sub remplireusers()
            
             DataSet.Clear()
             DataTable2.Clear()
            adapter.Fill(DataSet, "dbo.compte")
            DataTable2 = DataSet.Tables("dbo.compte")
end

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   remplireusers()

        If (Me.TextBox1.Text = "") Or (Me.TextBox2.Text = "") Or (Me.TextBox3.Text = "") Or (Me.TextBox4.Text = "") Or (Me.ComboBox1.SelectedItem = "") Then
            Label6.Visible = True
        Else
           
            Try
        DataRow = DataSet.Tables("dbo.compte").NewRow()
        DataRow("nomUser") = Me.TextBox1.Text
        DataRow("prenomUser") = Me.TextBox2.Text
        DataRow("loginUser") = Me.TextBox3.Text
        DataRow("mdpUser") = Me.TextBox4.Text
        DataRow("type") = Me.ComboBox1.Text
            'Mise à jour
            DataSet.Tables("dbo.compte").Rows.Add(DataRow)
            cmd = New SqlCommand(strSql, connexion)
            cmdBuilder = New SqlCommandBuilder(adapter)
            adapter.Update(DataSet, "dbo.compte")
                MsgBox("Le nouveau compte a été bien crée")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                ComboBox1.Text = ""

            Catch ex As Exception
                MsgBox("login existe déja")
                TextBox3.Text = ""
                TextBox4.Text = ""
            End Try
        End If
end sub

Bon pratique est bon chance l'exam

22/05/2012, 10h45
Invité

Re

merci pour votre réponse, le problème est toujours le même, quand je change de form, et je reviens sur la même form pour enregistrer un user ,j'ai comme message "Le nouveau compte a été bien crée", mais rien n'est créé