Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 11 22 09:35:23

.NET 4.0 / SILVERLIGHT 2 : CHANGEMENTS BRISANTS SUR LES TYPES STRING ET CHAR par coq

UTILISER OPENCV SOUS DEVC++ (OPTIONS DE COMPILATION) par MadMatt

ZUNE : NOUVELLE VERSION DU SOFTWARE ET FIRMWARE - V 3.1 par ROMELARD Fabrice

[OPEN XML] LES LIENS DE LA SEMAINE 17/11/08 ET AUTRES INFOS EN VRAC par neodante

TCB : EPICURIEN VOUS DITES ? A PARIS par themit

RE : DESACTIVER CROIX par jmf0

DéPLACEMENT SOURIS par sergiooi

RE : PROBLEME ARRET PROGRAMME | THREAD par wpjo1956

RE : CHANGER LE PARAMèTRE "NOM TABLE" D'UNE REQUêTE CREATE DANS UNE MACRO par PCPT

+ de logiciels à télécharger

1 293 278 membres
90 nouveaux aujourd'hui
14 526 membres club

Trouver une ressource

Trouvez une ressource parmi 39 008 codes, 1 203 657 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FUSION LINKCONTACT V1 - AGENDA & GESTIONNAIRE DE CONTACT

Information sur la source

Catégorie :Base de Donnees Niveau : Initié Date de création : 05/02/2004 Vu : 2 820

Auteur : Disicom

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

- Bon le code est assez simple, j'utilise une BDD Access relié à du Data, personnellement j'aurai préféré utilisé de l'ADO mais cété pour un PTI de BTS.

- Cette source a plusieurs mois déjà, elle a relativement bien marché sur le site www.telecharger.com (dont je remercie en passant) avec plus de 2500 téléchargements chaque mois.

- Pour ce code a au moins un bug, la modification de rendez-vous merde un peu. Si quelqu'un a envie de s'amuser à réparer ce bug qui se trouve dans la form "frmChargement", je lui en serait redevable...

Extrait d'un bout de code gérant la BDD avec le composant data :

Source

Private Sub subGestionBDD(sens As Boolean)
'Gère la gestion des erreurs
'On Error GoTo erreur_bdd2
Dim i2 As Integer, iContact As Integer, iRV As Integer
If sens = True Then
'Enregistrement de la BDD
For i = 0 To 1
If Dir$(App.Path & "\" & AdresseBDD) <> vbNullString Then
Me.DataBDD(i).DatabaseName = App.Path & "\" & AdresseBDD
Else
GoTo erreur_bdd2
End If
Me.DataBDD(i).Refresh
If Me.DataBDD(i).Recordset.RecordCount > 0 Then Me.DataBDD(i).Recordset.MoveFirst
'module d'ajout d'un enregistrement
If i = 0 And CountContact(0) > 0 Then
For i2 = 1 To CountContact(0)
Me.DataBDD(i).Recordset.AddNew
Call subRemplissementBDD_Contact(i, ContactGestion(0, i2))
Me.DataBDD(i).Recordset.Update
Next i2
ElseIf i = 1 And CountRendezvous(0) > 0 Then
For i2 = 1 To CountRendezvous(0)
Me.DataBDD(i).Recordset.AddNew
Call subRemplissementBDD_RV(i, RendezvousGestion(0, i2))
Me.DataBDD(i).Recordset.Update
Next i2
End If
If Me.DataBDD(i).Recordset.RecordCount > 0 Then
'module de supression d'un enregistrement
If i = 0 And CountContact(2) > 0 Then
For i2 = 1 To CountContact(2)
Me.DataBDD(i).Refresh
If Me.DataBDD(i).Recordset.RecordCount = 1 Then
Me.DataBDD(i).Recordset.Delete
ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
Me.DataBDD(i).Recordset.Move ContactGestion(2, i2) - i2
Me.DataBDD(i).Recordset.Delete
End If
Next i2
ElseIf i = 1 And CountRendezvous(2) > 0 Then
For i2 = 1 To CountRendezvous(2)
Me.DataBDD(i).Refresh
If Me.DataBDD(i).Recordset.RecordCount = 1 Then
Me.DataBDD(i).Recordset.Delete
ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
Me.DataBDD(i).Recordset.Move RendezvousGestion(2, i2) - i2
Me.DataBDD(i).Recordset.Delete
End If
Next i2
End If
'module de modification d'un enregistrement
If i = 0 And CountContact(1) > 0 Then
For i2 = 1 To CountContact(1)
Me.DataBDD(i).Refresh
Me.DataBDD(i).Recordset.Move ContactGestion(1, i2) - i2
Me.DataBDD(i).Recordset.Edit
Call subRemplissementBDD_Contact(i, ContactGestion(1, i2))
Me.DataBDD(i).Recordset.Update
Next i2
ElseIf i = 1 And CountRendezvous(1) > 0 Then
For i2 = 1 To CountRendezvous(1)
Me.DataBDD(i).Refresh
Me.DataBDD(i).Recordset.Move RendezvousGestion(1, i2)
If Me.DataBDD(i).Recordset.AbsolutePosition < 0 Then Me.DataBDD(i).Recordset.AbsolutePosition = 0
Me.DataBDD(i).Recordset.Edit
Call subRemplissementBDD_RV(i, RendezvousGestion(1, i2))
Me.DataBDD(i).Recordset.Update
Next i2
End If
Me.DataBDD(i).Refresh
End If
Next i
Else
...

Private Sub subGestionBDD(sens As Boolean)
    'Gère la gestion des erreurs
    'On Error GoTo erreur_bdd2
    Dim i2 As Integer, iContact As Integer, iRV As Integer
    If sens = True Then
        'Enregistrement de la BDD
        For i = 0 To 1
            If Dir$(App.Path & "\" & AdresseBDD) <> vbNullString Then
                Me.DataBDD(i).DatabaseName = App.Path & "\" & AdresseBDD
            Else
                GoTo erreur_bdd2
            End If
            Me.DataBDD(i).Refresh
            If Me.DataBDD(i).Recordset.RecordCount > 0 Then Me.DataBDD(i).Recordset.MoveFirst
            'module d'ajout d'un enregistrement
            If i = 0 And CountContact(0) > 0 Then
                For i2 = 1 To CountContact(0)
                    Me.DataBDD(i).Recordset.AddNew
                    Call subRemplissementBDD_Contact(i, ContactGestion(0, i2))
                    Me.DataBDD(i).Recordset.Update
                Next i2
            ElseIf i = 1 And CountRendezvous(0) > 0 Then
                For i2 = 1 To CountRendezvous(0)
                    Me.DataBDD(i).Recordset.AddNew
                    Call subRemplissementBDD_RV(i, RendezvousGestion(0, i2))
                    Me.DataBDD(i).Recordset.Update
                Next i2
            End If
            If Me.DataBDD(i).Recordset.RecordCount > 0 Then
                'module de supression d'un enregistrement
                If i = 0 And CountContact(2) > 0 Then
                    For i2 = 1 To CountContact(2)
                        Me.DataBDD(i).Refresh
                        If Me.DataBDD(i).Recordset.RecordCount = 1 Then
                            Me.DataBDD(i).Recordset.Delete
                        ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
                            Me.DataBDD(i).Recordset.Move ContactGestion(2, i2) - i2
                            Me.DataBDD(i).Recordset.Delete
                        End If
                    Next i2
                ElseIf i = 1 And CountRendezvous(2) > 0 Then
                    For i2 = 1 To CountRendezvous(2)
                        Me.DataBDD(i).Refresh
                        If Me.DataBDD(i).Recordset.RecordCount = 1 Then
                            Me.DataBDD(i).Recordset.Delete
                        ElseIf Me.DataBDD(i).Recordset.RecordCount > 1 Then
                            Me.DataBDD(i).Recordset.Move RendezvousGestion(2, i2) - i2
                            Me.DataBDD(i).Recordset.Delete
                        End If
                    Next i2
                End If
                'module de modification d'un enregistrement
                If i = 0 And CountContact(1) > 0 Then
                    For i2 = 1 To CountContact(1)
                        Me.DataBDD(i).Refresh
                        Me.DataBDD(i).Recordset.Move ContactGestion(1, i2) - i2
                        Me.DataBDD(i).Recordset.Edit
                        Call subRemplissementBDD_Contact(i, ContactGestion(1, i2))
                        Me.DataBDD(i).Recordset.Update
                    Next i2
                ElseIf i = 1 And CountRendezvous(1) > 0 Then
                    For i2 = 1 To CountRendezvous(1)
                        Me.DataBDD(i).Refresh
                        Me.DataBDD(i).Recordset.Move RendezvousGestion(1, i2)
                        If Me.DataBDD(i).Recordset.AbsolutePosition < 0 Then Me.DataBDD(i).Recordset.AbsolutePosition = 0
                        Me.DataBDD(i).Recordset.Edit
                        Call subRemplissementBDD_RV(i, RendezvousGestion(1, i2))
                        Me.DataBDD(i).Recordset.Update
                    Next i2
                End If
                Me.DataBDD(i).Refresh
            End If
        Next i
    Else
...

Conclusion

Pour la source entière désolé, il faut la télécharger ici :
http://anti.shareware.free.fr/FTP/FusionLinkContact.zip
parce qu'elle fait environ 800 ko.

- Dans le code donc :

     - Il y a de gestion de BDD avec un composant Data
     - Enregistrement de clé registre (mais bon c pa du tout nouveau)
     - Par contre l'utilisation de la fonction commande au démarrage de l'application n'es pa très courante dans la plupart des sources ici.
     - Sinon un peu de shell...

     Enfin voila la routine des développeurs...

     Si ca peu aider certain qui sont par exemple en BTS...

    Sur ce, bon test !!

    Sinon une version deux va sortir, mais elle réuni en fait logiciel de la vie courante, Agenda, Contact, Boite de réception, P2P, Messagerie Instantanés, Album Photo, ... enfin tout un programme...

    Pour le logiciel complet avec installateur :

    http://telecharger.01net.com/id.php?id=27362&system=windows&rub=Bureautique : Agenda

Et je rappel la source est ici : http://anti.shareware.free.fr/FTP/FusionLinkContact.zip

Merci de comprendre que VbFrance ne peut pas accepter les sources trop grosses.

++