UN CARNET D'ADRESSE POUR COMMENCER EN VB

Commentaire de bouv le 07/04/2004 19:55:35

Salut,

ton programme est pas mal. Pas de bug apparent sauf pour le code postal. Tu devrai declarer "    intCp As String * 5"

A part ce ton fichier risque de prendre rapidement beaucoup de place car tout tes champs prennent une place determinée (commentaire = 255 caractères) meme si l'utilisateur n'utilise pas tout l'espace disponible.

Tu devrai essayer de séparer tes champs par des séparateurs du type ";"

Cela donnerai NOM;PRENOM;ADRESSE;CODEPOSTAL;VILLE;;;

Tu recupere ensuite les info avec la fonction Split qui te permet de remplir un tableau.

Si tu veux plus d'info contact moi. J'ai une source qui utilise cette fonction si tu veux

Cordialement

Commentaire de Harakor le 07/04/2004 20:56:50

Salut,
Un conseil pour les dates, transforme les en numérique, et quand tu doit les lires retransformer en date. Ainsi tu auras aucun problème de compatibilité avec les différentes langues des OS.

Commentaire de Harakor le 07/04/2004 21:40:13

Voila comment je procède pour mes programmes:

A l'enregistrement:
if not IsDate(txtDatedeNaissance) then
msgbox "Vous n'avez pas rentrez un champ valide pour votre date de naissance"
else
variable = clng(TxtDatedeNaissance)
end if

Pour voir l'enregistrement:

txtDatedeNaissance = CDate(variable)

Sinons tu peux aussi faire une petite fonction qui renvoi que les nombres, "." & "/" d'un paramettre.

Commentaire de tankian18 le 08/04/2004 10:30:19

C'est pas mal même si il y a bcp d'imperfection (Par ex le fait que l'appli démarre sur c:\contact.txt) La tu aurais pu soit proposer via une common dialog d'aller cherche le fichier ou alors en créér un vide viaz les FSO)
SInon c'est un bon début ;)

Commentaire de tankian18 le 08/04/2004 16:55:14

Ah ok. En fait le common dialog est un control qui te permet da lancer une fenetre pour que l'utilisateur aille choisir manuellement le fichier. Donc sur ton formload, si jamais le fichier ne se trouve pas ds c:\toto.txt, tu fais commondialog.showopen (il faut que tu aies placé ce control sur ta form au préalable) (tu peux meme appliquer des filtres pour que n'apparaissent que les fichiers *.txt ou ce que tu veux). Ensuite, une fois que l'utilisateur aura trouvé cliquer sur le fichier( en fait tu mets ce code juste après le .showopen), tu recupéres le l'amplacement tu fichier séléctionné par l'user par le commondialog.filename (par ex : c:\machin\toto.txt).
Après tu n'as plus qu'a faire un: filecopy commondialog.filename tonrepdedestination.

Ensuite Pour les FSO (file system object) cela te permet de creer, parcourir, modifier des fichiers. Donc tu aurais pu également faire

tu fais
Dim fso As New FileSystemObject

If fso.existfile (c:\toto.txt)
    'ta suite
else
   fso.CreateTextFile("c:\toto.txt")
   Set Fichier =  fso.opentextfile("c:\toto.txt")
    fichier.writeline 'tu ecris la structure de ton file...
    fichier.close
end if

Grosso modo ca doit ressembler à un truc de sce style ;) Si t'as un pb contact moi.