begin process at 2012 02 17 03:43:13
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > COMBOBOX CHARGER DEPUIS BDD VERS TEXTBOX

COMBOBOX CHARGER DEPUIS BDD VERS TEXTBOX


 Information sur la source

Note :
7,67 / 10 - par 3 personnes
7,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :combobox, textbox, bdd, base, vers Niveau :Débutant Date de création :16/02/2007 Date de mise à jour :17/02/2007 14:22:08 Vu :7 795

Auteur : benahmedsoufiane

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

 Sources en rapport avec celle ci

Source avec Zip PARAMETRES SETTINGS VBA par Le Pivert
Source avec Zip Source .NET (Dotnet) MEMORISER_VALEUR par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MESSAGEBOX HELPER par raffika
Source avec Zip Source avec une capture UN ACCESS MOIN COMPLET (IL MANQUE L'ÉDITEUR DE BASE DE DONNÉ... par MALIKcpp
Source avec Zip Source .NET (Dotnet) CREER BASE DE DONNER ACCESS ET TABLE par byjouxbyjoux

Commentaires et avis

Commentaire de NISANDSYSTEMS le 17/02/2007 11:58:10

Petite erreur.
En option explicit tu declares  :Dim RsCombo As Recordset ' a mettre tout en haut de la page de code

Mais dans ta procedure tu la redeclares. Non
Soit tu declares dans la procedure en creant un nouvel object comme tu l'as fait mais sans creer de double en option explicit
ou soit tu créé une variable global dans la feuille ou module et là tu suis la procedure ci-dessous.

Private Sub MonCombo_Click()

'---------- critere de recherche
Dim I_numObj As Integer
Dim RsCombo As New Recordset 'pas bon
        plutot ceci => Set RsCombo As New Recordset

A la fin de ta procedure tu detruis l'object:
        Set RsCombo =Nothing
      end sub

Commentaire de NISANDSYSTEMS le 17/02/2007 12:03:55

Trim n'enleve pas les bancs apres les mots simplement, il supprime tous les espaces dans une chaine.

Commentaire de benahmedsoufiane le 17/02/2007 13:47:45

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 ;-)

Commentaire de draluorg le 18/02/2007 13:58:36

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!

++

Commentaire de NISANDSYSTEMS le 19/02/2007 12:14:11

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.

Commentaire de benahmedsoufiane le 21/02/2007 20:02:01

RECTIFICATION: SET RSCOMBO = NEW RECORDSET ET NON SET RSCOMBO AS NEW RECORDSET

 Ajouter un commentaire


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


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,421 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales