IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

RS.EOF - recodrset vide et retournant un faux positif ?


Sujet :

VBA Access

  1. #1
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 594
    Points : 34 263
    Points
    34 263
    Par défaut RS.EOF - recodrset vide et retournant un faux positif ?
    Salut,

    je me bats sur une betise a n'en pas douter, mais j'ai mon code suivant qui me retourne toujours RS.EOF=True

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Public Sub DynamicCRDS(ctl As IRibbonControl, ByRef content)
    Dim RS As ADODB.Recordset
        Dim cn As ADODB.Connection
        Dim strCRDSCode As String
        Dim strSQL As String
        content = "<menu xmlns=""http://schemas.microsoft.com/office/2007/09/customui"">"
        strSQL = "SELECT [CRDS code] FROM (SELECT DISTINCT [CRDS code] FROM Main"
        strCRDSCode = GetParam("CRDS")
        If strCRDSCode <> "" Then
            strSQL = strSQL & " WHERE [CRDS code] LIKE '*" & strCRDSCode & "*'"
        Else
            content = content & "</menu>"
            Exit Sub
        End If
        strSQL = strSQL & ")"
    'le strSQL est correct et retourne une serie d'enregistrements dans Access...
        Set RS = New ADODB.Recordset
        Set cn = New ADODB.Connection
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & STR_DB_ACCESS_PATH & ";" 'pointe sur ma bdd contenant des donnees
        cn.Open
     
        RS.Open strSQL, cn, adOpenDynamic, adLockOptimistic
        If Not RS.EOF Then ' et ici je ne rentre jamais dans le code
        '...
        End if
        RS.Close
        content = content & "</menu>"
        cn.Close
    End Sub
    je ne comprends pas pourquoi je ne retrouve pas mes donnees...
    Dois-je passer par DAO pour etre sur de mon coup ??

    Merci =]

    JP
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 594
    Points : 34 263
    Points
    34 263
    Par défaut
    Bon je trouve un cas de figure qui fonctionne : pas de clause WHERE dans la requete

    J'ai un libelle de champ qui contient des guillemets, mais le fait de changer les apostrophes (') en guillemets (") ne change rien

    edit : pire, le WHERE fonctione sur un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    WHERE Champ IS NOT NULL
    mais filtre tout sur le critere LIKE
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 594
    Points : 34 263
    Points
    34 263
    Par défaut
    Bon, ben quand on reflechit a la source du prboleme, c#est une fois n'est pas coutume sous mon nez depuis le debut :

    Au lieu d'utiliser le symbole * pour caractere joker, je devais utiliser %
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. tlhelp32 faux positif virus
    Par exyacc dans le forum Langage
    Réponses: 4
    Dernier message: 04/10/2013, 09h05
  2. Victime du faux positif McAfee
    Par steve77 dans le forum Sécurité
    Réponses: 1
    Dernier message: 23/04/2010, 14h11
  3. Locate retournant toujours Faux
    Par Doudy dans le forum Bases de données
    Réponses: 4
    Dernier message: 23/08/2009, 15h02
  4. champs vides non retournés par une requête
    Par roro06 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 13/03/2008, 18h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo