Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 256 fois - Téléchargée 22 fois
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
21 févr. 2007 à 20:02
19 févr. 2007 à 12:14
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.
18 févr. 2007 à 13:58
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!
++
17 févr. 2007 à 13:47
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 ;-)
17 févr. 2007 à 12:03
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.