chargement dans un combobox

Question

Bonjour, j'ai insérer un combobox dans mon application pour charger les données d'une table, mais il s'affiche que le premier enregistrement, quel problème s'agit t'il?

cs_Exploreur · Answer

Salut,


Moi, j'aimerais bien voir le code que tu utilises pour charger ta combo à partir de ta table.....


A+
Exploreur

 Linux a un noyau, Windows un pépin

boh1981 · Answer

Private Sub Form_Load()

        bd.Provider =  "microsoft.jet.oledb.4.0"
        bd.ConnectionString = App.Path & "\bd_ordre.mdb"
        bd.Open

        
        tb.Open "select * from t1, t3", bd, adOpenDynamic, adLockOptimistic

        cmdannuler.Enabled = False
        cmdvalider.Enabled = False
        
         Call actualiser 
        
        tb.MoveFirst

End Sub

Public Sub actualiser()

        'procédure qui permet d'utiliser des boutons
        'autre que adodc ou datacontrol,elle met à jour les textbox
        'suivant l'enregistrement sur lequel on se place par le biais
        'des boutons premier-dernier-précédent-suivant
        'Pour naviguer dans la B.D il faut que cette procédure
        'soit appeller dans chaque bouton
        
        'si début du fichier aller au dernier
        If tb.BOF  = True Then
        
           tb.MoveLast
           
        End If
        
        'si fin du fichier aller au premier
        If tb.EOF =  True Then
        
           tb.MoveFirst
           
        End If

        txtdate1.Text = IIf(IsNull(tb![date1]), "", tb![date1])
        
        txtnum_ins1.Text = IIf(IsNull(tb![num_ins1]), "", tb![num_ins1])
        
        txtnum_ins11.Text = IIf(IsNull(tb![num_ins11]), "", tb![num_ins11])
        
        txtdes1.Text = IIf(IsNull(tb![des1]), "", tb![des1])
        
        txtsuj1.Text = IIf(IsNull(tb![suj1]), "", tb![suj1])
        
        txtuser1.Text = IIf(IsNull(tb![user1]), "", tb![user1])
        
        txtnum1.Text = IIf(IsNull(tb![num1]), "", tb![num1])
        
         MonCombo.Text = tb![lib] 
        
        txtremarque1.Text  = IIf(IsNull(tb![remarque1]), "", tb![remarque1])

End Sub

jrivet · Answer

Salut,
Bah tout ça me semble normal non?
j'ai du mal a voir d'où vient le problème et surtout que souhaites tu faire exactement.

NOTE: on utilisera VbNullString au lieu de "" 

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Re,

Je pense qu'il faut qu'il fasse un : tb.MoveNext

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Tiens essaye ceci si cela fonctionne :

Private Sub Form_Load()




bd.Provider = "microsoft.jet.oledb.4.0"
bd.ConnectionString = App.Path & "\bd_ordre.mdb"
bd.Open


        
tb.Open "select * from t1, t3", bd, adOpenDynamic, adLockOptimistic


cmdannuler.Enabled = False
cmdvalider.Enabled = False
        
        
While Not tb.EOF


    txtdate1.Text = IIf(IsNull(tb![date1]), "", tb![date1])
    txtnum_ins1.Text = IIf(IsNull(tb![num_ins1]), "", tb![num_ins1])
    txtnum_ins11.Text = IIf(IsNull(tb![num_ins11]), "", tb![num_ins11])
    txtdes1.Text = IIf(IsNull(tb![des1]), "", tb![des1])
    txtsuj1.Text = IIf(IsNull(tb![suj1]), "", tb![suj1])
    txtuser1.Text = IIf(IsNull(tb![user1]), "", tb![user1])
    txtnum1.Text = IIf(IsNull(tb![num1]), "", tb![num1])
    MonCombo.Text = tb![lib]
    txtremarque1.Text = IIf(IsNull(tb![remarque1]), "", tb![remarque1])


   ' Passe au suivant
     tb.MoveNext
     
Wend




' on ferme
 tb.Cancel
 tb.Close
 Set tb = Nothing




End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

boh1981 · Answer

J'ai essayé le code mais il ne fonctionne pas ???

cs_Exploreur · Answer

Euh....oui d'accord...précise ? C'est quoi qui ne marche pas ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

boh1981 · Answer

Le combo affiche un seul enregistrement

cs_Exploreur · Answer

Ah.....!

Remplace : MonCombo.Text par MonCombo.AddItem tb![lib]

A+
Exploreur

 Linux a un noyau, Windows un pépin

boh1981 · Answer

Le meme probleme vraiment j'ai pas compri

boh1981 · Answer

Pardon , ca marche mais chaque enregistrement s'affiche en trois occurence, pourquoi?

cs_Exploreur · Answer

...lance ton prog en mode pas-à-pas pour comprendre pourquoi....

A+
Exploreur

 Linux a un noyau, Windows un pépin

boh1981 · Answer

Pardon, comment je fait ca?

PCPT · Answer

F8

Chargement dans un combobox

14 réponses

Votre réponse

Discussions similaires