Utilisation objet Combobox sous VB6

[jonyss]

Bonsoir,
je veux lier le champ d'une table (Access) au contrôle Combox de vb6 mais je ne sais pas trop comment m'y prendre.

[RobinSG]

Bonjour,

De mémoire et sans garantie (et sans possibilités de tester), il faut ajouter les composants d'Access et utiliser ADO ou DAO (je sais jamais lequel des 2 prendre) comme source de données pour ta combo.

[jonyss]

j'ai deja fait le lien entre ma base de donnée Access et le controle Combobox sous vb6 en utilisant ADO. maintenant comment arriver à afficher les enregistrements contenue dans un champ de table de ma base de donnée Access dans la liste deroulante de Combobox. c'est là se situe mon problème.

[RobinSG]

Toujours de mémoire (et ça date), tu dois pouvoir faire le lien en utilisant la méthode 'RecordSet' (ou 'OpenRecordSet') avec une requête SQL dans les paramètres.

[jonyss]

oui, le lien est fait, malgré les enregistrements ne defile dans la liste deroulante de combobox.

[RobinSG]

Ton recordet retourne un seul champ ?
Est-ce que tu as des erreurs lors de la création de ce recordset (si 'on error resume next' alors le mettre en commentaire) ?

[jonyss]

Avec combobox, j'ai pu trouver une solution temporaire;
le truc c'est que à chaque fois que j'effectue un nouvel enregistrement " en cliquant sur mon bouton AJOUTER" ( le code correspondant est: adodc1.recordset.addnew), je constate que le nouvel enregistrement écrase le dernier enregistrement effectué.
Petit exemple:
supposons que j'ai 5 enregistrements au préalable dans ma BD:
Pour 1 nouvel enregistrement effectué, je me retrouve toujours avec 5 enregistrements dans ma BD au de 6 parce que le dernier enregistrement a été écrase.
Par contre pour 2 nouvels enregistrements consécutifs effectués, je me retrouve avec 6 enregistrements dans ma BD au lieu de 7 enregistrements.
Je ne sais pas trop pourquoi ça fait ça; peut-être y'a t-il des codes manquants sous mon bouton "Ajouter".

[RobinSG]

Voici un exemple sur le site MSDN de Microsoft : AddNew Method

N'ayant ni VB6 ni Access, je ne peux pas tester...

[jonyss]

je vais essayer et je tiens informer.