ComboBox et recorset

Question

Bonjour, mon probleme est le suivant :
lorsque je saisie le code suivant il marche pour les 2 valeurs du recorset


Private Sub Form_Load()
Dim j As Integer
'Instanciation de variable
Set rst = New ADODB.Recordset
Set cnx = New ADODB.Connection
Call Connexion(cnx)
'Exécution de la requête
rst.Open " SELECT * FROM compte", cnx, adOpenDynamic, adLockPessimistic, adCmdText
rst.MoveFirst
For j = 1 To 2
Combo1.AddItem rst!type_cpt
rst.MoveNext
Next j
End Sub


mais lorsque je remplace la ligne colorié pour avoir automatiquement les champs du recorset par :


For j = 1 To rst.RecorCount
il ne se passe rien. j'aimerais savoir pourquoi et comment faire pour que cela marche.
Merci

cs_ghuysmans99 · Answer

Private Sub
Form_Load()
 Dim cnx As New ADODB.Connection
 Dim rst As New ADODB.Recordset
 Dim j As Integer
 Call Connexion(cnx)
 'Exécution de la requête
 rst.Open "SELECT * FROM compte", cnx, adOpenDynamic, adLockPessimistic, adCmdText
 While Not (rst.EOF)
  Combo1.AddItem rst("type_cpt")
  rst.MoveNext
 Wend
 rst.Close
 Set rst = Nothing
 cnx.Close
 Set cnx = Nothing
End Sub<hr />,

----

Colorisation syntaxique par  Renfield


_______________________________________________________________________


VB.NET
is good ...
VB6
is better

ComboBox et recorset

1 réponse

Votre réponse

Discussions similaires