Base de données pour gérer les composants éléctronique chez soi

Soyez le premier à donner votre avis sur cette source.

Vue 10 383 fois - Téléchargée 2 330 fois

Description

Tout dans le zip....Base toute simple....Pour une gestion qui reste simple.
Code vraiment simple pour débutant.

Conclusion :


Version mise à jour le 10/05/2003.
Améliorations : Moins de boucles inutiles,gestion des doublons sans bugs(j'éspère!!!),listview1 et 2 idem,gestion de la base,rajout de quelques lignes de codes pour gestion plus claire.

Si vous trouvez des bugs(il y en a surement!!) merci d'avance pour me les communiquer.

Merci à tous.

Exploreur

A+

Le 30/05/2003

Modife apporté le rajout d'une statusbar !!!

A+

Exploreur

Nouvelle version 23/05/2003

Permet l'exportation de la base dans des fichiers : DOC, XLS, RTF, TXT ainsi que pour la recherche.

A+



Mise à jour du 17/07/2003:

Correction dans la partie modification de la fiche(gros bug trés génant!!!)

A+

Exploreur

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
jeudi 8 novembre 2007
Statut
Membre
Dernière intervention
18 juillet 2017

Bonjour,

Je ne possède pas vb. Est-il possible d'ajouter l'exécutable dans le zip ?
Merci.

Cdlt.
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Regarde dans ta base, si ton champ Sous_Categorie, si tu lui autorise bien une valeur null :

Dans Null Interdit tu mets : Non
Dans Chaine vide autorisée : Oui avec doublon

Maintenant regarde cette syntaxe qui est mieux, car les [..], sont indispensable, quand tu as un champ avec un espace

If Not IsNull(resultatADO.Fields("Sous_Categorie") Then
itmx.SubItems(6) = resultatADO.Fields("Sous_Categorie")
End If

A+
Exploreur
Messages postés
1
Date d'inscription
dimanche 9 novembre 2003
Statut
Membre
Dernière intervention
27 novembre 2007

salut

j'ai voulu rajouter des champ dans le prog et j'ai une erreur 380 invalid property value
quelqu'un a deja eu ce probleme? d'ou cela peut il venir?
quand je fait debug il me renvoie à
If Not IsNull(resultatADO![Sous_Categorie]) Then
itmx.SubItems(6) = resultatADO![Sous_Categorie]
End If
la valeur de sous_catégorie dans la DB n'est pas null
svp aider moi
merci d'avance
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Thank, Thieu
Messages postés
3
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
14 juin 2003

Pratiquement tout est dit ci-dessus.
Afficher les 11 commentaires

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.