Discussion :

[onesat]

Bonjour tout le monde,
voilà je dispose d'un formulaire d'inscription Windows Form avec plus champs comme l'illustre le code suivant:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Imports System.Data.SqlClient
Public Class forminscription
    Dim con As New SqlConnection
    Private Sub forminscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("--Selectionner un groupe--")
        ComboBox1.SelectedIndex = 0
        con.ConnectionString = "Data Source=WIN-DCM2QL793CF;Initial Catalog=maboutiquedb;Integrated Security=True"
        con.Open()
        Try
            Dim req As String = "SELECT * FROM groupes_utilisateurs"
            Dim execu As New SqlDataAdapter(req, con)
            Dim res As New DataSet
            execu.Fill(res)
            con.Close()
            For Each oRow As DataRow In res.Tables("Table").Rows
                ComboBox1.ValueMember = "id_grp"
                ComboBox1.DisplayMember = ComboBox1.Items.Add(oRow.Item("nom_grp"))
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub btajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btajout.Click
        con.Open()
        Try
            Dim cmd As New SqlCommand(("INSERT INTO utilisateurs VALUES ('" & _
                                       txtidutili.Text & "','" & _
                                       ComboBox1.Text & "','" & _
                                       txtnomutili.Text & "','" & _
                                       txtmdp.Text & "','" & _
                                       txtnomfautili.Text & "','" & _
                                       txtprenomutili.Text & "','" & _
                                       txtemailutili.Text & "','" & _
                                       txtbputili.Text & "', SYSDateTime(), '" & _
                                       txtetatcompte.Text & "','" & _
                                       txtnumteleutili.Text & "')"), con)
 
            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("Success ...", MsgBoxStyle.Information, "L'utilisateur a ete correctement ajouter")
            txtidutili.Focus()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    End Sub
End Class

Et quand j'exécute mon code, j'ai ce message d'erreur:
Echec de la conversion de la valeur varchar 'Administrateur en type de données int.

Et j'ai besoin d'un coup de pouce, merci à l'avance!