Accueil > > > COMBOBOX CHARGER DEPUIS BDD VERS TEXTBOX
COMBOBOX CHARGER DEPUIS BDD VERS TEXTBOX
Information sur la source
Description
Voici un code qui permet à partir d'un clique sur un combobox (charger depuis une base de donnée) d'envoyer des donnée vers 2 textbox avec des donnée différentes.
Source
- Dim RsCombo As Recordset ' a mettre tout en haut de la page de code
-
- Private Sub MonCombo_Click()
-
- '---------- critere de recherche
- Dim I_numObj As Integer
- Set RsCombo As New Recordset
- '---------- variable qui contiendra la requette
- Dim requeteRharge As String
-
- '---------- on recupére l'item du combobox
- I_numObj = MonCombo.ItemData(MonCombo.ListIndex)
-
- ' ------------concaténation de la requette et de la variable
- requeteRharge = "select * from modeleobjectif where numobjectif = " & I_numObj
-
- '--------- Ouverture du recordset
- RsCombo.Open requeteRharge, cnx, adOpenDynamic, adLockPessimistic
- RsCombo.MoveFirst
-
- ' ------------ envoi des données de la bdd vers les textbox en fonction de la requette
- Textbox1.text = Trim(RsCombo("typeobjectif")) '--- trim() enléve les espace avant et aprés les une chaines
- Textbox2.text = Trim(RsCombo("contenuobjectif"))
-
- Set RsCombo =Nothing 'destruction de l'objet
- End Sub
Dim RsCombo As Recordset ' a mettre tout en haut de la page de code
Private Sub MonCombo_Click()
'---------- critere de recherche
Dim I_numObj As Integer
Set RsCombo As New Recordset
'---------- variable qui contiendra la requette
Dim requeteRharge As String
'---------- on recupére l'item du combobox
I_numObj = MonCombo.ItemData(MonCombo.ListIndex)
' ------------concaténation de la requette et de la variable
requeteRharge = "select * from modeleobjectif where numobjectif = " & I_numObj
'--------- Ouverture du recordset
RsCombo.Open requeteRharge, cnx, adOpenDynamic, adLockPessimistic
RsCombo.MoveFirst
' ------------ envoi des données de la bdd vers les textbox en fonction de la requette
Textbox1.text = Trim(RsCombo("typeobjectif")) '--- trim() enléve les espace avant et aprés les une chaines
Textbox2.text = Trim(RsCombo("contenuobjectif"))
Set RsCombo =Nothing 'destruction de l'objet
End Sub
Conclusion
Merci pour la remarque.
Historique
- 17 février 2007 14:22:08 :
- Correction de l'erreur du RS.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Problème de ComboBox, TextBox et BDD (VB6)? [ par zizou2007 ]
salut. j'ai un petit problème concernant la connexion de ma combobox à une base de données Access à travers un ADO.ma base de données contient pour ch
combobox charger depuis bdd ver textbox [ par benahmedsoufiane ]
Bonjour,Je dispose d'une table avec trois champs: NumérosObj, LibeleObj et ContenuObj.j'ai su charger la combobox avec tout les libele de ma table.Mai
Enregistrer les données d'un textbox et d'un Combobox [ par jery87 ]
Bonjour a tous, Jai un pti probleme au niveau de mon application. je developpe une application qui tourne avec une base de données exter
Comment passer à l'enregistrement suivant dans une bdd??? [ par manzy ]
Bonsoir tout le monde.J'ai un problème avec une requête sur une base mysql...Dans cette base, j'ai notamment un champ ID en auto-incrémentation.En fai
MAJ bdd access, je n'arrive plus à mettre ma base à jour des modifs (vb2005e) [ par vercomax ]
bonsoir,je cherche pourquoi, depuis certaines modifs (dont je ne me souvient plus), ma base ne se met pas à jour malgré les modifs de champs.*j'ai un
Executer macro dans bdd différente [ par mezing ]
bonjour,je souhaiterai savoir s'il était possible d'éxecuter sous access une macro dans une base de données A depuis une base de données B?merci.
Un champ de ma base dans un combo [ par SEB73460 ]
Bonjour a vous tous,Voila, j'ai une base de données Access Ado qui rempli un listview et un combobox sur une form, je voudrai remplir un Combobox qui
probleme avec textbox [ par eleanor1967 ]
bonjour tout le monde !!mon probleme est le suivant : je suis entrain de créer une base de données "video store", j'ai ajouter un password a cette bas
Doublons dans un combobox [ par SEB73460 ]
Bonjour à tous,Je voudrais eviter d'avoir des items en double dans mon combobox lors du chargement de ma base de donnée accessJe débute et je ne sais
textbox et datagrid [ par Syxfull ]
Bonjours a tous, Voici mon probléme je dispose d'une datagrid allimenté par une BDD access jusque là no souci ^^ A present je voidrais savoir comm
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|