Je débute pb pour faire une boucle.

Question

' -----
' Form2
' -----
'
Option Explicit
'
'
Public Sub Form_Load()


    Dim rs As Recordset
    Dim sql As String


'   ouvre la base
    On Error GoTo BaseNonTrouvee
        Set DB = OpenDatabase(sPathBase, True, False, ";pwd=" & sPassBase)
    On Error GoTo 0  '*FGE*
    
'   execute la requ&#234;te
    sql = "SELECT [Titre] " & _
          "FROM [CD_ROM] " & _
          "WHERE [Type] =   " & Menu.Typ & ""


    Set rs = DB.OpenRecordset(sql, dbOpenDynaset)


'   r&#233;cup&#232;re le 1er r&#233;sultat.
    Dim sResult As String
    sResult = rs("Titre")
    'MsgBox sResult, 32
    Liste.List1.AddItem rs!Titre
    
'   d&#233;truit l'instance rs
    Set rs = Nothing


'   ferme et d&#233;truit l'instance base
    DB.Close
    Set DB = Nothing


    Exit Sub


BaseNonTrouvee:
    Err.Clear
    MsgBox "Base Introuvable", 32
End Sub

voici mon code de la deuxieme page de mon projet.
Le probleme c'est que je clic sur un des trois bouton dans ma premiere page qui est un menu.En fonction de la touche squr laquel je clic une variable est recuperer et m'affiche un certain type dedonn&#233;es de ma bdd et en fait la l'operation se fait qu'une seule fois.Pouvez vous m' aider svp a boucler mon bout de code et surtout ce qui me pose probleme c'iest que je ne sais pas jusqu'a combien boucler.
Merci de votre aide.

cs_DARKSIDIOUS · Answer

Salut,

Set rs =  DB.OpenRecordset(sql, dbOpenDynaset)

While not rs.EOF
 '   r&#233;cup&#232;re le 1er r&#233;sultat.
    Dim sResult As String
    sResult = rs("Titre")
    'MsgBox sResult, 32
    Liste.List1.AddItem rs!Titre

    rs.MoveNext

 Wend 

    
'   d&#233;truit l'instance rs
    Set rs  = Nothing

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Jack · Answer

Salut
De plus, tu as oubli&#233; un ' apr&#232;s le [Type] = '" & ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Je débute pb pour faire une boucle.

2 réponses

Discussions similaires