Carnet téléphone avec access, listview, oledb, commande sql (ajout, modif et supprimé), trie

Soyez le premier à donner votre avis sur cette source.

Vue 13 016 fois - Téléchargée 1 954 fois

Description

Un petit carnet d'adresse. Je sais qu'il en existe plusieur, mais celui la fait appel à des commandes SQL pour faire l'ajout, modification et suppression de ligne dans la BD Access.

Si vous avez des commantaires ou des optimisation que vous pensez qu'il pourrait être fait. Faites moi signe

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
220
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
26 octobre 2007
1
Niquel exactement ce que je cherche.
Comme quoi meme après 2 ans les codes sources sont encore utiles !!
Messages postés
5
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
18 octobre 2006

alors là, je pose une question :
qu'est ce qui est le plus "best practise"?

function HelloWorld() as string
return "Hello World!"
End Function

ou

function HelloWorld() as string
HelloWorld = "Hello World!"
End Function
Messages postés
76
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
20 mars 2006

C'est fort simple le pourquoi que je l'ai comme ceci. Ce programme s'adresse à des débutants comme moi. Je pense qu'une fois tu as une idée de la base faire l'adaptation pour ce que l'on veux est très simple.

Mais j'en prend bonne note.

Merci
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005

Sans vouloir etre mechant comme tu dit il en existe plusieur donc pourquoi l'avoir fait aussi simple .

tu aurais pu faire une fichier détail pour avoir le détail d'un contact:
nom
prenom
adresse perso
adresse bureau
mail
tel prive
tel bureau
portable
site perso
site professionel
commentaire
photo
...etc

autant en faire un complet ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.