Combobox charger depuis bdd vers textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 803 fois - Téléchargée 20 fois

Contenu du snippet

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 / Exemple :


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.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
30
Date d'inscription
dimanche 22 janvier 2006
Statut
Membre
Dernière intervention
1 avril 2010

RECTIFICATION: SET RSCOMBO = NEW RECORDSET ET NON SET RSCOMBO AS NEW RECORDSET
Messages postés
179
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Exactement, autant pour moi.
Mes explications n'ont pas ete définies correctement.
Milles excuses.
Trim enleve tous les espaces de gauche à droite mais pas entre les mots ou caracteres.
Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010

Salut a tous,

LTrim pour enlever a gauche
RTrim pour enlever a droite
Trim pour enlever a gauche et a droite

En aucun cas les espaces entre deux mots ne seront enlevés!

++
Messages postés
30
Date d'inscription
dimanche 22 janvier 2006
Statut
Membre
Dernière intervention
1 avril 2010

Désoler pour l'erreur du RS mais j'ai remarquer que trim enlève tout les espaces dans une chaine sauf entre les mots par exemple je tape: le chat 'dans une textbox avec des vides avant et aprés le mot
sa me donne :le chat
Il enlève devant et derrière la chaine de mots mais pas entre les mots.

Bref merci pour la remarque ;-)
Messages postés
179
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Trim n'enleve pas les bancs apres les mots simplement, il supprime tous les espaces dans une chaine.
Afficher les 6 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.