CARNET TÉLÉPHONE AVEC ACCESS, LISTVIEW, OLEDB, COMMANDE SQL (AJOUT, MODIF ET SUPPRIMÉ), TRIE

   Private Sub cmdSupprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSupprime.Click
        Dim SQLString As String
        Dim sNom As String, sPrenom As String, sTelephone As String

        If iListViewPosition <> AucuneSelection Then
            sNom = lvTelephone.Items(iListViewPosition).Text
            sPrenom = lvTelephone.Items(iListViewPosition).SubItems(1).Text
            sTelephone = lvTelephone.Items(iListViewPosition).SubItems(2).Text

            SQLString = "DELETE DELETE FROM T_Iden " _
                    & "WHERE Nom = " & "'" & sNom & "'" _
                    & "AND Prenom = " & "'" & sPrenom & "'" _
                    & "AND Numero = " & "'" & sTelephone & "'"

            ' On est pas obligé de définir c'est 3 variables on pourrait les mettre directement
            ' dans SQLString comme ceci, mais c'est moins lisible:
            'SQLString = "DELETE DELETE FROM T_Iden " _
            '        & "WHERE Nom = " & "'" & lvTelephone.Items(iListViewPosition).Text & "'" _
            '        & "AND Prenom = " & "'" & lvTelephone.Items(iListViewPosition).SubItems(1).Text & "'" _
            '        & "AND Numero = " & "'" & lvTelephone.Items(iListViewPosition).SubItems(2).Text & "'"

            If AjouteModifLigne(SQLString) Then
                lvTelephone.Items.RemoveAt(iListViewPosition)
            End If
        End If
    End Sub

   Private Sub cmdModif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModif.Click

        Dim SQLString As String = "UPDATE T_Iden SET Numero = '" _
                                & txtTelephone.Text.Trim & "' " & "WHERE Prenom = '" _
                                & txtPrenom.Text.Trim & "'"

        If AjouteModifLigne(SQLString) Then
            If AChangerValeur Then
                ' Dans ce cas ci on met juste à jours la ligne Telephone
                'lvTelephone.Items(iListViewPosition).Text = txtNom.Text
                'lvTelephone.Items(iListViewPosition).SubItems(1).Text = txtPrenom.Text
                lvTelephone.Items(iListViewPosition).SubItems(2).Text = txtTelephone.Text
            End If
            AChangerValeur = False ' La valeur ne peut plus être changé
        End If
    End Sub

    Private Sub cmdAjout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAjout.Click
        Dim LviItem As ListViewItem
        Dim LsiSubItem As ListViewItem.ListViewSubItem
        Dim SQLString As String

        SQLString = "INSERT into T_Iden (Nom, Prenom, Numero) Values" _
        & " ('" & txtNom.Text & "','" & txtPrenom.Text & "','" & txtTelephone.Text & "')"

        If (txtNom.Text <> "") And (txtPrenom.Text <> "") Then
            If AjouteModifLigne(SQLString) Then
                LviItem = lvTelephone.Items.Add(txtNom.Text)
                LsiSubItem = LviItem.SubItems.Add(txtPrenom.Text)
                LsiSubItem = LviItem.SubItems.Add(txtTelephone.Text)
            End If
        End If
    End Sub

    Private Function AjouteModifLigne(ByVal SQLString As String) As Boolean
        Dim objConnection As New OleDb.OleDbConnection(ConnString)

        Try
            objConnection.Open()
            Dim objCommand As New OleDbCommand(SQLString, objConnection)
            objCommand.ExecuteNonQuery()
            objConnection.Close()
            AjouteModifLigne = True
        Catch ex As Exception
            MsgBox(ex.ToString)
            AjouteModifLigne = False
        End Try
    End Function