Bjr,
je me sens géné de poser une question pareille sur ce forum mais j'ai un probleme avec une datacombo.
strSQL = "SELECT * FROM PIECE;"
rsado.Open strSQL, Connexiontest, adOpenDynamic, adLockOptimistic 'adOpenStatic, adLockReadOnly
If rsado.RecordCount <> 0 Then
For y = 1 To rsado.RecordCount
MsgBox rsado.Fields(0) & rsado.Fields(1)
rsado.MoveNext
Next
End If
il trouve bien ts mes enregistrements.
mé kan je l assigne a la datacombo.
Set DataCombo1.DataSource = rsado
DataCombo1.DataField = "NumPiece"
Je n'ai que la 1ere ligne de renseignée..
Merci bcp d avance
Fabrice