Pb affichage

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. &#224; toi de comprendre comment g&#233;rer ta boucle
    Dim sResult As String
    sResult = rs("Titre")
    MsgBox sResult, 32


'   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 ma    deuxieme feuille de mon projet.En fait lorsque je compile tout marche correctement mais au moment ou je dois afficher mes donn&#233;es dans la liste au lieu de me marquer les titres de films dans la liste il m'ouvre comme une fenetre java et me marque le nom du premier titre qu'il trouve dfans ma base de donn&#233;es avec comme genre la variable renvoyer qui est ici pour les film 1 lorsqu'on clic sur le bouton divx.Et ceci il me le fait qu'une seule fois.Merci de votre aide.
Encore une fois je d&#233;bute sur vba.Merci

Sniper_Vgaerr · Answer

Salut,

Essaie de mettre ca au niveau de la requete SQL :

Sql = "SELECT [Titre] " & _
          "FROM [CD_ROM] " & _
          "WHERE [Type] =   '" & Menu.Typ & "'" 'Ce qui est en rouge est a rajout&#233;

Voila
@+

biddal · Answer

En fait j'avais deja poster poiur un autre probleme et pour le corriger on m'a dis que je devais les enlever ces deux traits et apres ca fonctionner mais ca ne fonctionne pas comme je veux :).Merci quand meme de ton aide.

PCPT · Answer

salut,

t'es encore dessus?!!!

v&#233;rifie le type de "Type" dans ta base. (nom de champs moyen d'ailleurs, mais bon....)

et regarde si "Menu.Typ" est vraiment ce que tu veux... c'est quoi &#231;&#224;, bool&#233;en si la ligne du menu est coch&#233;e ou non? 

&#224; voir (encore et encore....)

++

PCPT   [AFCK]

Pb affichage

3 réponses

Discussions similaires