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 306 fois - Téléchargée 1 990 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
lex1111 Messages postés 220 Date d'inscription jeudi 30 mars 2006 Statut Membre Dernière intervention 26 octobre 2007 1
19 nov. 2006 à 12:28
Niquel exactement ce que je cherche.
Comme quoi meme après 2 ans les codes sources sont encore utiles !!
lobrys Messages postés 5 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 18 octobre 2006
2 nov. 2004 à 09:16
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
cs_Creat Messages postés 76 Date d'inscription dimanche 25 juillet 2004 Statut Membre Dernière intervention 20 mars 2006
31 oct. 2004 à 17:04
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
dionysos6868 Messages postés 310 Date d'inscription jeudi 4 septembre 2003 Statut Membre Dernière intervention 9 juin 2005 1
31 oct. 2004 à 13:39
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 ;)
S'inscrire maintenant

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.

Du même auteur (cs_Creat)