- 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 / Exemple :
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.
++
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.