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 |
Partager