Discussion :

[elngoma]

Rebonsoir, quand je clique sur mon bouton "enregistrer"?, on m'affiche ce message sur image, j'ai deja essayé de resoudre rien, voici le code/:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 For i As Integer = 0 To ListView1.Items.Count - 1
            If con.State = ConnectionState.Closed Then con.Open()
            Dim st As String = "INSERT INTO [client] (idclt, nom, prenom, sexe, tel1, tel2, objet, ville, mail, niv_etud, idsp,idqtier) VALUES ('" & ListView1.Items(i).Text & "','" & ListView1.Items(i).SubItems(1).Text & "','" & ListView1.Items(i).SubItems(2).Text & "','" & ListView1.Items(i).SubItems(3).Text & "','" & ListView1.Items(i).SubItems(4).Text & "','" & ListView1.Items(i).SubItems(5).Text & "','" & ListView1.Items(i).SubItems(6).Text & "','" & ListView1.Items(i).SubItems(7).Text & "','" & ListView1.Items(i).SubItems(8).Text & "','" & ListView1.Items(i).SubItems(9).Text & "','" & ListView1.Items(i).SubItems(10).Text & "','" & ListView1.Items(i).SubItems(11).Text & "')"
            MessageBox.Show("Process successful!", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Dim cmdd As New OleDbCommand(st, con)
            cmdd.ExecuteNonQuery()
            con.Close()
            Me.fill()
            clearitems()
        Next