pb Set rs = DB.OpenRecordset(Sql, dbOpenDynaset)Résolu

Question

Voila mon code, et j'ai une erreur d'execution ICI et je ne vois pas ce que c'est.
' -----
' Form1
' -----
'
Option Explicit
'
Public Typ As Long
'
'
Private Sub Form_Load()
    Cmd(0).Caption = "Jeux"
    Cmd(1).Caption = "DivX"
    Cmd(2).Caption = "Logiciels"
End Sub
'
'   groupe de contr&#244;les : 3 boutons "Cmd"
Private Sub Cmd_Click(Index As Integer)  'index = 0 ou 1 ou 2
    Typ = Index + 1
    MsgBox CStr(Typ), 32


    'Menu.Hide
    'Liste.Show
    Liste.Show
End Sub

' -----
' 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


Private Sub Image1_Click()
    Liste.Hide
    Menu.Show
End Sub

et mon module

' --------
' Mod_Vars
' --------
'
'   dans ce module : tes d&#233;clarations publiques.
'   &#231;&#224; sera bien plus pratique pour te relire
'
Option Explicit
'
'       * activer microsoft DAO3.6 dans Projet-references *
'
Public DB As Database
'
Public Const sPathBase As String = "CD.mdb"   'chemin base
Public Const sPassBase As String = ""            'password base

cs_Jack · Accepted Answer

- Une variable ne peut pas &#234;tre d&#233;clar&#233;e en Public dans une Form
- le caract&#232;re _ (comme le %) sont des symboles r&#233;serv&#233;s &#224; SQL, d'o&#249; l'utilit&#233; des [ et ]
- Si [Type] est num&#233;rique, il ne faut pas mettre de ' pour encadrer la donn&#233;e.
Tu n'as pas d&#251; beaucoup chercher sur ce site, on r&#233;p&#232;te ces phrases &#224; longueur de journ&#233;e !

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)

PCPT · Answer

topic en doublon ;)

cs_Jack · Answer

Salut biddal
Jamais tu lis les r&#233;ponses &#224; tes posts ? http://vbfrance.com/forum.v2.aspx?ID=614613
Renfiled t'a dit pourquoi.

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)

PCPT · Answer

Jack -> slt. pour la variable, autant la d&#233;clarer dans le module,
mais je ne vois pas en quoi c'est impossible sur une Form (mis &#224; part
restriction VBA, donc inconnue pour ma part)

et pour le "_", je ne vois pas le probl&#232;me puisque sql est une string.



je prend un peu la d&#233;fense de biddal, voir son post d'origine...

++

cs_Jack · Answer

Salut
Parce que je te dis que _ et % sont des caract&#232;res interpr&#233;t&#233;s par SQL comme des jokers.
_ peut remplacer un seul caract&#232;re, &#233;quivalent au ? sous DOS
% remplace un groupe de caract&#232;res, comme * sous DOS
C'est comme &#231;a.
Donc, si tu utilises _ ou % dans ta chaine, tu risque d'avoir des surprises !


En relisant ton code, je comprends la m&#233;prise.


Je ne te parle pas des _ en fin de phrase de la syntaxe VB, mais du _ qui se trouve dans le nom de ta table CD_ROM --> [CD_ROM]

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)

PCPT · Answer

salut.

vi, m&#233;prise bien identifi&#233;e^^.

donc ok pour les crochets &#224; [CD_ROM]

++  PCPT   [AFCK]

Pb Set rs = DB.OpenRecordset(Sql, dbOpenDynaset)

6 réponses