CARNET D'ADRESSES - BASE DE DONNÉES ACCESS & ADO 2.0

Commentaire de Verbatime900MB le 26/01/2002 22:46:25

c est supert se que tu a fait ca va me servire de cour pour apprendre les bases de données merci a toi!!!!!

Commentaire de azouguegh le 09/04/2002 00:30:17

Un bon exemple, Bravo et bon courage.
Si tu peux mettre en ligne un cours sur l'ADO ça sera mieux..........

Commentaire de Maverickdep83 le 09/08/2002 15:16:28

Merci pour cet exemple qui a pu venir à bout des problèmes rencontrés lors de mon 1er Développement.

Commentaire de jpclerc le 27/08/2002 04:17:56

Super, mais .....
J'aurais aimé pour complèter la leçon avoir des DBCombo, DBList, ....
Dans la prochaine verion peut-être.
En tout cas je suis à la recherche d'exemples qui mettent en oeuvre un DBCombo pour gèrer une colonne de table qui fait référence à une autre table.
Alors si qq'un a cela, je suis preneur

Commentaire de lOrdOfdArk le 18/05/2003 12:58:07

super comm prog ya rien a dire mais ya un truc ke je comprend po dessus

comment tu fait por afficher les resultat dans le listview
comme je debute en vb ce seré simpa de maider plz

merci davance

je me repète peu etr mais ton prog et super mais on peu ossi le fair en dao ?? non?

c tt ce ke javé a dire !

@+

Commentaire de Michele le 11/09/2003 11:18:58

Bonjour.

J'ai testé ton carnet d'adresse qui est bien fait.

Juste une petite remarque si tu me le permets.

Lors de la recherche d'un nom comprenant un apostrophe une erreur se produit, afin d'y remédier je te propose la solution ci-dessous.

A+ Michele



Dans la partie  Private Sub TextRecherche_Change() modifie de la manier suivant





Dim ListItemResultat As ListItem          



Dim IntegerIndex As Integer                





' Mise à jour de la ListView



ListViewResultat.ListItems.Clear





' Mise à jour des zones de texte



Dim StrApostrophe As String



  If (InStr(TextRecherche, "'")) Then

    StrApostrophe = SrchReplace(TextRecherche)

Else

StrApostrophe = TextRecherche

End If

' Recherche par Nom



If ((Not Trim(TextRecherche.Text) = "") And (ComboRecherchePar.ListIndex = 0)) Then



resultatADO.Filter = "NomPrenon LIKE '" & Trim(StrApostrophe) & "*'"



End If



Et ajoute cette fonction



Function SrchReplace(ByVal sStringToFix As String) As String



Dim iPosition As Integer

Dim sCharToReplace As String

Dim sReplaceWith As String

Dim sTempString As String



sCharToReplace = "'"

sReplaceWith = "''"



iPosition = InStr(sStringToFix, sCharToReplace)

sTempString = ""



Do While iPosition

  sTempString = sTempString & Left$(sStringToFix, iPosition - 1)

  sTempString = sTempString & sReplaceWith

  sTempString = sTempString & _

    Mid$(sStringToFix, iPosition + 1, Len(sStringToFix))

  iPosition = InStr(iPosition + 1, sStringToFix, sCharToReplace)

Loop



SrchReplace = sTempString



End Function

Commentaire de Michele le 11/09/2003 18:42:11

rires ?

Commentaire de cyrille le 11/09/2003 19:07:34

Sans interet. Bonne prog Michele.

Salutations,

Cyrille

Commentaire de devsteph le 19/03/2008 18:22:00

bonjour à tous

je viens de télécharger le zip mais la base de donnet : carnet d'adresse ne contient pas de formulaire, en fait il y a seulement 1 table.

bizarre.

quel qu un a t il une idée?

merci

steph