AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 05 16:25:31
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Combobox [ Archives Visual Basic / Formulaire ] (noe)

jeudi 16 octobre 2003 à 17:32:49 | Combobox

noe

Salut a tous

comment mettre dans un combobox les infos d'une base Acces

voici mon code

'============================================
'Procédure de chargement de la feuille
'============================================
Private Sub Form_Load()
Dim Resultat

'Pour relier la connexion ouverte à la commande
CmdVehicule.ActiveConnection = Page_Principale.cnxVehicule
CmdAffectation.ActiveConnection = Page_Principale.cnxVehicule
CmdChauffeur.ActiveConnection = Page_Principale.cnxVehicule
CmdFC.ActiveConnection = Page_Principale.cnxVehicule

'Configuration de la commande avec requete SQL
CmdVehicule.CommandText = "Select * from Fiche"
CmdAffectation.CommandText = " Select * from affectation"
CmdChauffeur.CommandText = "Select * from Chauffeur"
CmdFC.CommandText = "Select * from fiche"

'Initialisation du curseur client
RstVehicule.CursorLocation = adUseClient
RstAffectation.CursorLocation = adUseClient
RstChauffeur.CursorLocation = adUseClient
RstFC.CursorLocation = adUseClient

'Utilisation d'un curseur client dynamique
RstVehicule.CursorType = adOpenDynamic
RstAffectation.CursorType = adOpenDynamic
RstChauffeur.CursorType = adOpenDynamic
RstFC.CursorType = adOpenDynamic

'Vérouillage de l'enregistrement dès son acces
RstVehicule.LockType = adLockPessimistic
RstAffectation.LockType = adLockPessimistic
RstChauffeur.LockType = adLockPessimistic
RstFC.LockType = adLockPessimistic

'Transmission de la commande à la méthode open
RstVehicule.Open CmdVehicule
RstAffectation.Open CmdAffectation
RstChauffeur.Open CmdChauffeur
RstFC.Open CmdFC

'Tri par défaut par Code
RstAffectation.Sort = "Libelle"
RstChauffeur.Sort = "Nom"

' Mise à jour de la listview
ListViewResultat.ListItems.Clear

'Mise à jour de la listView résultat
ListViewResultat.ListItems.Clear
ListViewResultat.ColumnHeaders.Add , , "Code", (ListViewResultat.Width * (0.84 / 2)), lvwColumnLeft
ListViewResultat.ColumnHeaders.Add , , "Immatriculation", (ListViewResultat.Width * (0.96 / 2)), lvwColumnCenter
ListViewResultat.View = lvwReport

'LA PREMIERE FONCTIONNE BIEN MAIS PAS LA 2EME

'Pour remplir la combobox genre
CmdVehicule.CommandText = "Select Distinc Genre from Fiche"

RstVehicule.Sort = "Genre asc"

RstVehicule.Requery

Do Until RstVehicule.EOF
Genre.AddItem RstVehicule!Genre
RstVehicule.MoveNext
Loop
Genre.ListIndex = -1

'

'Pour remplir la combobox marque
CmdVehicule.CommandText ="Select Distinct Marque from Fiche"

RstVehicule.Sort="Marque asc"

RstVehicule.Requery

Do Until RstVehicule.EOF
Marque.AddItem RstVehicule!Marque
RstVehicule.MoveNext
Loop
Marque.ListIndex = -1


'verrouiller les boutons commandes
Supprimer.Enabled = False
Sauvegarder.Visible = False

TextRecherche_Change

RstVehicule.MoveFirst
Fiche_Vehicule.Caption = " Véhicule N° : " & RstVehicule!immatriculation

End Sub


Merci pour vos reponses
vendredi 17 octobre 2003 à 08:58:13 | Re : Combobox

juvamine

bon tout d'abors dit toi qu'il te faut 0 lignes de code:
tu insere les composant MS dataList Control
tu insere une DATACOMBO
tu insere un composant ADODC (ke tu paramètre: click droit propriété)
tu relis ta datacombo a ton adodc (propriété rowSource)
tu met le nom du champ ki doit apparaitre dans ta combo (propriété ListField)

prkoi faire compliké kan on peu faire simple ;-)

++
juvamine

vive ZeFunChat et #programmation :)
vendredi 17 octobre 2003 à 11:40:00 | Re : Combobox

noe

Salut

Merci pour ta reponse effectivement ca va plus vite,
mais comment supprimer les doublons dans la liste.

merci d'avance


Noe


Cette discussion est classé dans : select, from, listviewresultat, commandtext, rstvehicule

Répondre à ce message

Sujets en rapport avec ce message

Requete sql dans commandtext [ par musi1234 ] Bonjour à tous, j' ai un e petite question concernant une requete. Pourquoi les 2 requetes suivantes fonctionnent: CmdADO.CommandText="SELECT * FROM T Tester une valeur avec CF ? [ par aresh ] Bonsoir à tous ,J'ai un petit soucis. J'ai une jolie base de donnée, avec 300 entrée environs, mais dans la structure, il y a des "trou" (certainne li pb de Requete avec EXITS [ par zakariaoued ] J'ai un pb avec cette requete: Consommation.open"select * from CONSOMMATION Where Code_Natu=EXISTS (select *from Nature Where CodeFournis=EXSITS(sele BindingCollection et recordset hiérarchique [ par jacma ] Bonjour Comment ajouter un item à une collection binding en liant un contrôle à un champ enfant de l'enregistrement principal en cours. J'ai un reco Protéger le caractère ' [ par paloxicide ] comment puis je protéger ' pour une requete sql par exemple pour ne pas que cela me donne un commentaireean = "*12000*"req = "select id_lot from lots_ probleme de selectcommand ok mais qui s'affiche pas dans une gridview [ par io_ost ] pour l'instant j'ai reussit a contruire mon select comme ça :Public selectcommand_mod As New<FONT Un nom de table avec des espace et l'instruction select [ par SgtJazz ] voila je veux utiliser l'instruction SELECT   FROM   WHERE  mais  le nom de ma table a des espaces.  j'obtien toujours une erreur  comme quoi il y a u requete SQL et access [ par Soulant ] Bonjour,Voilà, j'ai un petit soucis avec une requete SQL. Je développe une application en vb6 connecté à une base de donnée access mais lorsque je sou requete SQL et access [ par Soulant ] Bonjour,Voilà, j'ai un petit soucis avec une requete SQL. Je développe une application en vb6 connecté à une base de donnée access mais lorsque je sou tb=open [ par papounez ] BonjourDebutant VB6j aimerais savoir la difference entre ses 2 codes (&) il fonctionne tous les 2tb.Open "select * from [Table]where [Nom]='" & nom &


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.