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

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

Ce site au démarrage

begin process at 2012 02 12 17:01:36

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Base de Donnees

> FUSION LINKCONTACT V1 - AGENDA & GESTIONNAIRE DE CONTACT

FUSION LINKCONTACT V1 - AGENDA & GESTIONNAIRE DE CONTACT

Information sur la source

Note :
Aucune note

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

Auteur : Disicom

Ecrire un message privé

Site perso

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/FusionLinkCont act.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&syste m=windows&rub=Bureautique : Agenda

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

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

++

Sources du même auteur

SHUT DOWN - ETEINDRE, REDÉMARRER SON PC DANS LE TEMPS !

MORPION (JOUEUR VS JOUEUR) ET (JOUEUR VS ORDINATEUR)

Toutes les sources de Disicom

Sources de la même categorie

BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa

VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi

CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa

MISAHORAIRE par MdelM

BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de gbillerty le 24/04/2004 19:45:42

On peut pas avoir la source???

Commentaire de Disicom le 26/04/2004 15:26:19

je te prépare ca, attend je le remet sur le ftp dans la journée

Commentaire de Disicom le 26/04/2004 15:38:33

je te prépare ca, attend je le remet sur le ftp dans la journée

Commentaire de Disicom le 26/04/2004 16:00:39

http://anti.shareware.free.fr/FTP/FusionLinkContact.zip

voila (2mo)

Commentaire de BozzoDodo le 16/04/2005 14:20:09

Ca serait bien si ce lien marchait...
Qu'utilise tu comme controle pour inscrire une date et une heure? merci

Commentaire de tau le 22/07/2005 08:15:15

salut peut tu m'envoyer le source c'est super important j'ai un projet similaire à faire

karim.messeguem@wanadoo.fr

Ajouter un commentaire

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : 1 SEUL COLONNE DATAGRIDE CONTIENT PLUSIEURS COTROLE !!!! par NHenry

RE : UN NOM EGALE UNE COULEUR par ucfoutu

RE : CALCUL INFINI AVEC REPRISE DE LA VALEUR PAR UN LABEL par Trigunale

RE : Ré AFFICHAGE DANS UN DATAGRIDVEW CRéé AVEC L'ASSISTANT par gardoulet

PROBLèME AVEC DATAGRID par germany1970

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning