1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

RecordCount [Résolu]

Signaler
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
 -
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
 -
Bonjour,

J'ai créé un recordset à l'aide d'une requête SQL et je l'ai paramétrée en fonction de plusieurs listes de choix.

Seulement le RecordCount me compte à chaque fois un seul enregistrement alors que celui ci en compte plusieurs... (Pour preuve le résultat est différent quand je l'execute dans SQL)
Cela viendrait il du fait que j'utilise des liste de choix pour conditionner ma requête ??

Voici mon code :

Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset("SELECT AGREMENTS.OBJECTID " & _
                        "FROM Agrements " & _
                        "WHERE (((AGREMENTS.MILLESIME)=" & Me.zl_millesime.Column(0) & ") " & _
                        "AND ((AGREMENTS.DATE)=#" & stock_date & "#) " & _
                        "AND ((AGREMENTS.dossier)=" & Me.zl_dossier.Column(0) & ") " & _
                        "AND ((AGREMENTS.cave)=" & Me.zl_cave.Column(0) & ") " & _
                        "AND ((AGREMENTS.cuve)=""" & Me.zl_cuve.Column(0) & """));")

Voyez vous une quelconque erreur !

Merci

7 réponses

Réponse 1 / 7
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
 26
Bonsoir (et salut à Jack et à Exploreur),

Voici ce qui me trouble :

"Pour preuve le résultat est différent quand je l'execute dans SQL"

Nuance !
Quand tu lances ta requête directement, ce sont des données, que tu mets dans ta requête, pas des variables...


Il suffit que l'une seule de ces données soit autre (même a un caractère près) que le contenu de la variable correspondante pour que le résultat ne soit pas le même en lançant directement ta requête (avec des valeurs) et en la lançant avec des variables ..

envoie plutot le texte de ta requête dans une textbox, copie-le et lance ensuite cette requête telle quelle directement depuis SQL... tu en auras ainsi le coeur vraiment net..
Réponse 2 / 7
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
Salut,

Et si tu fais un rs.MoveLast avant de faire ton recordcount, ça ne marche pas mieux ? Souvent, il faut s'être positionné sur le dernier enreg pour savoir combien il y en a.



++
 Moustachu
Réponse 3 / 7
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
 14
Salut,

Moi je pense que dans ta requête, il doit te manquer des ' qui doivent entourés tout ce qui "touche" à du carractère(chaine)...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Réponse 4 / 7
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 76
Salut
- Puisque ta requète ne s'adresse qu'à une seule table, pas la peine de la préciser avant le nom des champs
- Abondance de parenthèse nuit à la compréhension.
- Comme le dit Exploreur, il doit manquer des ' pour encadrer les chaines.
- SQL accepte l'encadrement de chaine avec " mais aussi '. Ca tombe bien car le mélange SQL et VB deviendrait bien lourd.
- Ton champ DATE est mal choisi car il ressemble à un mot clé des langages. Dans ce cas, encadre-le avec des crochets droits [ et ] afin que le moteur ne se trompe pas.
- Il est important de respecter la casse des noms des champs (DATE est en maj alors que les autres en min : bizarre)

Voilà ce que pourrait donner ta requète en supposant que tous tes champs soient définis comme des chaines (sauf DATE apparemment) :

Set rs = db.OpenRecordset( _
      "SELECT OBJECTID " & _
        "FROM Agrements " & _
       "WHERE MILLESIME = '" & Me.zl_millesime.Column(0) & "' " & _
         "AND [DATE] = #" & stock_date & "# " & _
         "AND dossier = '" & Me.zl_dossier.Column(0) & "' " & _
         "AND cave = '" & Me.zl_cave.Column(0) & "' " & _
         "AND cuve = '" & Me.zl_cuve.Column(0) & "';")

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Réponse 5 / 7
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
Merci pour vos réponses !!!
Réponse 6 / 7
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
Re.
stock_date est une variable date qui permet de conserver la date d'une liste de choix et qui la transforme à l'aide d'une fonction (jj/mm/aaaa -> mm/jj/aaaa). Car SQL lit les dates à l'anglosaxonne...
Réponse 7 / 7
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
Salut jmfmarques, j'ai suivi tes conseils en envoyant le résultat de la requête dans une TextBox puis en recopiant celle-ci dans une SQL, il me trouve le bon nombre d'enregistrements et non pas 1 seul enregistrement quel que soit le nombre exact...

Merci
Répondre Posez votre question