Affichage RequêteRésolu

Question

Bonjour,

J'aurais besoin d'aide pour la rédaction de mon projet svp, c'est urgent et important.
Je souhaiterais afficher un menu déroulant avec les noms et prénom des utilisateurs au préalable saisis dans une base de donnée.

Si vous souhaitez avoir plus de précisions, n'hésitez pas.

En vous remerciant d'avance





Daniel E.

lolokun · Accepted Answer

Oui je sais que c'est dans la base c'est bien pour ça que j'ai mis "nom_dans_la_base" comme valeur qui correspond en fait à la valeur inscrite dans la base de données dans le champ que tu veux afficher.

Dim myconnection as adodb.connection
dim myrecordset as adodb.recordset
set myconnection=new adodb.connection
myconnection.ConnectionString = "cheminfichier" 'chemin complet + gestion.mdb
myconnection.open
set myrecordset=new adodb.recordset
myrecordset.open "select nom_clients from client",myconnection, adOpenDynamic, adLockPessimistic
With myrecordset
If .RecordCount <> 0 Then 'Test pour vérifier qu'il y a au moins 1 enregistrement dans la table
        .MoveFirst   'se déplacer sur le 1er enregistrement
 'Boucle pour parcourir tous les enregistrement de ta table      
    Do While Not .EOF   ' parcourt les enregistrements jusqu'au dernier
         CB_NOM.AddItem .Fields("nom_client")  'Ajout des différents choix de la listbox
        .MoveNext   'passer à l'enregistrement suivant
         Loop
Else
    MsgBox "Il n'y a pas d'enregistrement en cours", vbOKOnly
End If
    .Close 'fermeture du recordset
End With

lolokun · Answer

Bonjour,
Et alors?tu n'attends tout de même pas que l'on te fasse ton code en entier?as-tu fait une recherche sur le site ?
Il y a plein de messages ou de code traitant de ce sujet..As-tu un début de code qui pose problème??

cs_kirikou95 · Answer

Bonjour,

Merci du moins pour la réponse. Sauf erreur de ma part, je pensais être dans la section "débutant" !
Il y a une manière de s'adresser aux gens. Je ne sais pas comment procéder voilà pourquoi je viens ici. Je ne suis pas stupide, j'ai fais des recherches et si je suis ici, c'est que je ne trouve pas.

Voilà





Daniel E.

jrivet · Answer

Salut,
Non tu n'est pas dans la section débutant.

Bref.
- As tu fait le formulaire? si oui qu'as tu mis dedans?
- As tu fais la requete? Si oui obtiens un résultat?
- Sais tu parcourir un Recordset (objet contenant le résultat de la requete)

Pour obtenir une aide (rapide et claire) il faut nous donner le plus de précisions possibles.

=> Cf: le règlement

@+: Ju£i?n
Pensez: Réponse acceptée

lolokun · Answer

Ok,

petit conseil essayes de mieux poser le problème en expliquant plus en détail ça permet d'avoir des réponses plus rapides et plus précises..Tu es en vb6?Et ta base de données est une base de données access?
Pour commencer un peu regardes sur ce site du côté de ADO et des recordset..
Déjà il faut se connecter à la base de données : 
Par exemple
nomBase = App.Path + "	abase.mdb"
'initialisation et ouverture de la base
Set MonEspace = DBEngine.Workspaces(0)
Set base = MonEspace.OpenDatabase(nomBase)
Ensuite une requête SQL :
Sql = "select * from nomdetatable"
Set monRecordset = base.OpenRecordset(Sql)
With monRecordset
If .RecordCount <> 0 Then
        .MoveFirst
         Do While Not .EOF   ' parcourt les enregistrements jusqu'au dernier
         'Ajout des différents choix de la listbox
         talistbox.AddItem .Fields("ton champ")
        .MoveNext
         Loop
Else
    MsgBox "Il n'y a pas d'enregistrement en cours", vbOKOnly
End If
    .Close 'fermeture du recordset
End With

cs_kirikou95 · Answer

Merci pour vos réponses. Je me suis certainement trompé alors, je pensais être dans la section débutant.
Alors, je vais essayer le plus clair possible :
Je suis sur VB6 et j'ai une base de donnée access.
J'ai déjà créé avec de l'aide ma fenêtre d'authentification, car je suis entrain de créer un petit programme de commande de CD. Je voudrais maintenant créer un menu déroulant, qui me permettrait d'afficher le nom des clients que j'aurais éventuellement saisie dans ma base.
Si je suis ici, c'est que je ne sais pas par où commencer ni comment procéder.
J'espère que je suis un peu plus clair maintenant.

si jamais vous avez msn, j'aimerais bien dialoguer avec des connaisseurs ;)

Merci lolokun pour ton code, je vais le tester.

merci encore pour vos retours
Daniel E.

cs_Exploreur · Answer

Salut,

Regarde ce lien aussi

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_kirikou95 · Answer

Merci pour ton lien, ça m'aide un peu seulement dans la rédaction sql, que je connais un petit peu.
Le problème est que je ne sais pas comment l'incrémenté dans VB.
Je ne sais pas comment procéder pour créer un menu déroulant.

Si quelqu'un peu m'aider ou un petit bou de programme, me l'envoyer en .ZIP par mail, ça serait vraiment sympa
à : daniel.eyeni@gmail.com

Merci d'avance et pour vos retours, ça fait plaisir et c'est super sympa





Daniel E.

cs_Exploreur · Answer

Re,

Regarcde cet autre lien

A+
Exploreur

 Linux a un noyau, Windows un pépin

lolokun · Answer

Qu'entends-tu par menu déroulant??une listbox?un combobox?

PS : Evites de cliquer sur réponse acceptée tant que ton problème n'est pas résolu, certains membres ne viendront pas voir pour donner un coup de main et iront plutôt voir des questions qui ne sont pas résolues.

cs_kirikou95 · Answer

Ah je ne savais pas pour "réponse acceptée " ! merci pour la précision.

En faite, je souhaite créer une combo_box oui, mais je ne sais vraiment pas par où commencer.
Si vraiment tu peux m'aider, ça serait vraiment cool

Daniel E.

lolokun · Answer

Il suffit de placer un contrôle de type combobox sur ta form (.frm) quand tu crées ton projet.
Tu le renommes comme tu le souhaites mais si possible avec un nom explicite : CB_NOM par exemple. 

Ensuite dans ton code tu accèdes à ses propriétés en l'appelant comme ceci :
CB_NOM.propriété_à_changer = "valeur"
Ici ça serait plutôt CB_NOM.additems "nom_dans_la_base"

cs_kirikou95 · Answer

Merci de ta réponse :
Mais je ne veux pas lui indiquer la valeur par défaut, je voudrais qu'il ailleur chercher les infos dans une base de donnée que j'ai déjà créée.

Nom de la base : Gestion.mdb
Nom de la table :    CLIENT (Nom_client, Prénom_client,...)

Je voudrais que le menu déroulant aille chercher les infos dans la table client, et m'affiche le nom des personnes saisies dans la table.

Merci et désolé pour le manque de précision.

Daniel E.

cs_kirikou95 · Answer

Merci pour ce code :
J'ai double cliquer sur ma 'combobox' et j'ai réécris ton code en modifiant bien entendu les infos nécessaires.
J'obtiens le message d'erreur suivant :
" Erreur d'exécution '2147467259' (80004005)
[Microsoft] [Gestionnaire de pilotes ODBC] Nom de source de données trop long. "

ça te parle ?

Merci

Daniel E.

cs_Exploreur · Answer

Salut,

Rajout dans ton projet la référence :

Microsoft Activix Data Objects 2.5 Library

Et cela au code

     myconnection.Provider = "Microsoft.jet.OLEDB.4.0"
...
....
....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_kirikou95 · Answer

MEEEEEERRRCIIIIIIIIIIIII !

tu es génial et tu cartonnes, ça a marché !

je te remercie !!!!!

Je reviendrais avec d'autres questions à poser sur le forum en espérant te rencontrer là dessus, ou si tu as une adresse mail, ça m'intéresserait bien de te demander de l'aide !

Merci
contact si tu veux me contacter : daniel.eyeni@gmail.com

Mille merci encore

Daniel E.

lolokun · Answer

Oui pardon j'avais oublié une ligne ^^
Ce coup-ci tu peux utiliser réponse acceptée sur la ou les réponses qui t'ont aidées..
Bonne prog et à bientôt..

cs_kirikou95 · Answer

Euh...
je rencontre un petit souci encore 
J'ai parlé un peu trop vite aussi !!!

Le code marche, ça ya pas à dire. Seulement, lorsque je clic sur la flèche du menu déroulant, il ne se passe rien.
il faut alors que je clic sur le champ et que je saisisse au moins une lettre, et là, j'ai la liste qui apparait des noms qui apparaissent.
De plus, il y a un 'LOOP' qui pose problème, à chaque fois que je saisie une lettre, il m'affiche en doublant les noms de ma table, et ce, au tant de fois que je saisie sur mon clavier, je ne sais pas si je me fais comprendre

Daniel E.

lolokun · Answer

Ha avant de remplir ta combobox tu peux la vider : 
CB_NOM.clear


Le code tu l'as mis dans quelle section?le load de ta form?ou tu cliques sur un bouton?

cs_kirikou95 · Answer

en fait, j'ai double cliqué sur la combobox, et j'ai mis le code là.
vaut mieux le mettre dans le load ?

Daniel E.

cs_Exploreur · Answer

Re,

Essaye cela :

  While Not .EOF   
         CB_NOM.AddItem .Fields("nom_client")  'Ajout 
        .MoveNext   'passer à l'enregistrement suivant
   Wend       

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_kirikou95 · Answer

J'ai mis exactement le même code que tu m'as donné précédemment, le premier code qui ne fonctionnait pas dans la form LOAD, et ça fonctionne.

Merci.

PS : admettant que j'ai envi de faire plusieurs combobox, je les mets toutes dans le load et ça marcherait d'après toi ?

Daniel E.

lolokun · Answer

Oui,

Il suffit de modifier l'ouverture du recordset :
myrecordset.open "select * from client",myconnection, adOpenDynamic, adLockPessimistic 
'Permet de sélectionner tous les champs de la table

Ensuite sur un deuxième combobox dans la même boucle,
CB_PNOM.AddItem .Fields("Pnom")

cs_kirikou95 · Answer

Ok merci, mais même s'il s'agit d'une autre table, avec par exemple CDROM (NomCd, typeCD,...)
Et je veux afficher le nom du CD, ça passerait ?

Merci

Daniel E.

lolokun · Answer

Re,

Alors pour une autre table, il te faudra surement ouvrir un autre recordset..
A moins que tes 2 tables ne soient liées mais je ne pense pas que ce soit le cas.

cs_kirikou95 · Answer

J'ai réussi pour ça.
Dit moi, au lieu que je poste un autre message pour un autre pb ça te derrange pas de me filer ton adresse msn ?
j'aimerais que tu m'aides sur certains points.

Merci d'avance

Daniel E.

cs_Exploreur · Answer

Salut,

Qui ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_kirikou95 · Answer

ah... ba celui qui le souhaite, je pensais à lolokun en particulier lol

Daniel E.

lolokun · Answer

Je n'ai pas msn ici je suis au boulot donc je peux pas me connecter en journée.
De plus, cela permet d'avoir plusieurs opinions sur un problème si je n'arrive pas à répondre à ta question. 
Et le fait de poser une question sur le forum,avec un titre explicite, permettra peut-être à quelqu'un de retrouver la discussion et de pouvoir régler tout seul le même problème que tu rencontres actuellement.

cs_kirikou95 · Answer

Bien veu, je n'y ai pas pensé !
J'ai une question à te poser lol

J'ai créé un menu déroulant qui va chercher des valeurs dans une table. Je voudrais créer un champ qui fait le calcul automatique des données récupérés, qu'il multiplie pas 5.

Schéma :
Table :
CD(NomCD,TypeCD,NombreCD)  

J'ai créé un champ que j'ai appellé : TXTSOMME

Dans le champ "NombreCD", il y a les valeurs "1,2,3,4,5,..." => ces infos sont affichées dans une combobox (COMBO4)
Qu'il fasse le calcul donc : 5CD x 5 (Etant le prix du cd)

Mon code (qui ne marche pas) :
Dim Somme, n1 as interger
n1 = Val(combo4.text)
somme = n1 * 5
somme = txtsomme

Mon code ne fonctionne pas, et j'obtiens la valeur  "0", et même quand je modifie les données du combo4, le calcul auto ne se fait pas.

Merci encore de ton aide (je ne sais pas si je dois créer un autre message de forum)

Daniel E.

lolokun · Answer

Si j'ai bien compris ton problème, tu veux insérer un nouveau champ dans ta table CD que tu templis avec les données qui sont dans le champ NombreCD..


Le mieux est de faire une nouvelle requête Sql pour sélectionner les champs à remplir.
Dim prix as integer
prix=5
Sql="Select * from CD"
Tu ouvres ensuite un recordset :
myrecordset.open Sql,myconnection, adOpenDynamic, adLockPessimistic
With myrecordset
If .RecordCount <> 0 Then
Do While Not .EOF
.MoveFirst
.edit 
.fields("TXTSOMME")=.fields("NombreCD")*Prix
.update 'pour enregistrer les changements
.movenext
Loop
Else
    MsgBox "Il n'y a pas d'enregistrement en cours", vbOKOnly
End If
    .Close 'fermeture du recordset
End With

jrivet · Answer

Salut,
Téoriquement on ne devrait poser qu'une seule question par TOPIC.... dixit le règlement 

@+: Ju£i?n
Pensez: Réponse acceptée

cs_kirikou95 · Answer

Cool je vais essayer celà.

Autre requête : hi hi

Alors là je ne sais vraiment pas comment faire.
J'ai une table commande
COMMANDE (CodeCommande, LibelleCommande,...)
je voudrais dans un champ texte, affiché la valeur par défaut du codecommande qui s'incrémente à chaque commande.
Je voudrais qu'il soit du type : COMMANDE01 pour la commande 1
et à chaque fois que je crée une nouvelle commande, qu'il affiche automatiquement COMMANDE02, COMMANDE03,COMMANDE04,etc etc etc

suis-je un peu clair ? lol

Daniel E.

cs_Exploreur · Answer

Salut,

Tu ne voudrais pas hasard que LoloKun, te fasse ta source défois ?

Regarde ce que as dit Jrivet(Salut)....C'est plus un topic que cela va devenir mais un roman au risque de te faire clore le topic...

Regarde dans les sources des bases de données tu as une multitude d'exemples dispo pour développer ta propre source...

Un conseil, c'est tout...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Affichage Requête

34 réponses

Votre réponse

Discussions similaires