Combobox charger depuis bdd vers textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 256 fois - Téléchargée 22 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
benahmedsoufiane Messages postés 30 Date d'inscription dimanche 22 janvier 2006 Statut Membre Dernière intervention 1 avril 2010
21 févr. 2007 à 20:02
RECTIFICATION: SET RSCOMBO = NEW RECORDSET ET NON SET RSCOMBO AS NEW RECORDSET
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
19 févr. 2007 à 12:14
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.
draluorg Messages postés 625 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 25 novembre 2010
18 févr. 2007 à 13:58
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!

++
benahmedsoufiane Messages postés 30 Date d'inscription dimanche 22 janvier 2006 Statut Membre Dernière intervention 1 avril 2010
17 févr. 2007 à 13:47
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 ;-)
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
17 févr. 2007 à 12:03
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.