begin process at 2010 02 09 19:24:33
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Formulaire

 > 

listbox access


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

listbox access

mardi 2 mai 2006 à 11:54:29 | listbox access

le__prince

bonjour a tt le monde

j'ai listbox que je vais met  des element  appellé d'un base de donne (access)  (  des noms de fichiers  ).

il y apossibilité de met un element plus qu'1 fois

je veu un code pour testé la listbox si ce nom de fichier existe  ds la liste.

ds la 2 eme operation je veu sauvegardé  ma liste ds la base comment je peu mettre chaque element  ds son place ds la bas.

merci de repondre

1000 merci 

 

mardi 2 mai 2006 à 13:52:54 | Re : listbox access

PCPT

Administrateur CodeS-SourceS
salut,
je crois me rappeler avoir supprimé ton dernier topic (le même).
pas de langage, pas de question, phrases incompréhensibles!
tu as lu le règlement?
mardi 2 mai 2006 à 14:46:59 | Re : listbox access

le__prince

mais c'est pas ca le prob !
je veu reponse svp j'ai pas de temps !
merci de repondre
mardi 2 mai 2006 à 15:36:56 | Re : listbox access

PCPT

Administrateur CodeS-SourceS
RéPONDRE A QUOI !!!!
LIS LE REGLEMENT ET REFORMULE EN CONSéQUENCE !!!!
DONC LANGAGE, QUESTION CLAIRE, ET SI POSSIBLE EN FRANçAIS !!!!

"c'est pas çà le problème" ?
bah attend-toi à rester avec le tien sur les bras...

Jovialement :)
PCPT  [AFCK]
mardi 2 mai 2006 à 15:50:33 | Re : listbox access

le__prince

bonjour a tt le monde

j'ai un projet  : j'utilise  vb6  et access.

j'ai listbox que je vais met  des element  appellé d'une base de donne (access)  (  des noms de fichiers  ).

je veu un code pour testé la listbox si 1 nom de fichier existe  ds la liste???????.
si oui  sort un msgbox.
sinon  ajoute le nom a la liste.

voila ma code pour ajouté   je veu  testé ma liste si 1 nom de fichier existe    :


Private Sub Command2_Click()

Dim list1text As String
conn = CurDir() & "\base\BD_Renseignement.mdb"
Dim ObjConn As New ADODB.Connection
Dim rs As ADODB.Recordset
ObjConn.Provider = "Microsoft.Jet.OLEDB.4.0"
ObjConn.ConnectionString = "Data Source=" & conn

If Label9.Caption = "" Or Label9.Caption = "0" Then
MsgBox "Pas de fichier a ajouter !?"
Else


If ObjConn.State = 0 Then ObjConn.Open
Set rs = ObjConn.Execute("select * from fichier")
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
While Not rs.EOF
If Label9.Caption = CStr(rs!code_fichier) Then
list1text = CStr(rs!titre_fichier)
List1.AddItem list1text
End If
rs.MoveNext
Wend
End If
End If

End Sub

ds la 2 eme operation je veu sauvegardé  ma liste ds la base .
comment je peu mettre chaque element  ds son place ds la base de donne ???.

merci de repondre

1000 merci 

lundi 22 mai 2006 à 00:54:21 | Re : listbox access

le__prince

Réponse acceptée !

Dim iPos As Integer
    iPos = 0
    'Si la listbox est vide il quitte la fonction
    IfList3.ListCount < 1 ThenExit Sub
 
    Do WhileiPos < List3.ListCount
        List3.Text = List3.List(iPos)
        'Verifie si le text existe deja
 
        IfList3.ListIndex <> iPosThen
            'Si c'est le cas il supprime et garde la position iPos...
            List1.RemoveItem iPos
            
        Else

            'Si ce n'est pas le cas il change la position iPos...
            iPos = iPos + 1
        End If
    Loop

    'Utiliser pour désélectionner la dernière ligne
    List1.Text = "-"







http://www.vbfrance.com/code.aspx?ID=20418

 



Cette discussion est classée dans : access, met, listbox, element, ds


Répondre à ce message

Sujets en rapport avec ce message

Element ds ListBox [ par Gendarmette ] Comment vérifier la présence d'un élément dans une ListBox en utilisant les FSO?Merci! Gend<font color=b MAJ d'un element d'une db aprés avoir selectionner cet element ds une listbox ? [ par neo_tsubasa ] Bonjour à tous, Je met en place un logiciel qui va repertorier les problemes lier a l'utilisation de machines rezo et les solutions pour resoudre les suppression d'un element d'une listbox sous access [ par babylonne ] bonjour tt le monde, je rencontre un probleme au niveau de la suppression d'un element dans listbox , j'ai procede ainsi  Dim ligne as Integer For  li recuperer un element selectionner ds menu deroulant [ par mqsi ] salut,comme le titre signale,je cherche a recuperer l'element selectioner ds un menu deroulant,j'arrive a pointer sur le menu deroulant ds la page.<di utilisation des RecordSet sous Access pour remplir une table [ par samster ] Bonjour, J'ai créé une petite base access avec un formulaire de recherche multicritères me renvoyant les résultats de recherches dans une listbox (sit Boutton -> selectionne un element listbox [ par Maxime31 ] Bonjour,truc tout simple (je débute :) ) :Quelle instruction permet de selectioner un élément donné dans une listbox ? (je suis en compact framework, UserForm Access (listbox) [ par imsse ] Bonjour, voila je cherche a maitriser les UserForms sur access, plusieur personnes m'ont expliké que les formulaires sont beaucoup plus facile a utili ACCESS 2002 EXTRACTION DS UN CHAMPS MEMO de N° téléphone et REMPLISSAGE ACCESS [ par STEPHANDALLEINE ] Je développe pour le plaisir,je souhaite extraire des n° de téléphones dans des annonces publiées sur internet,cé annonces sont dans une Table1 dans u listbox access [ par le__prince ] bonjour a tt le monde j'ai un projet  : j'utilise  vb6  et access.j'ai listbox que je vais met  des element  appellé d'une base de donne (access)  (


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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,296 sec (4)

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