ACCESS-VB: Lecture enregistrement

Question

Bonjour, 

J'ai une base ACCESS2000 avec deux tables (Tbarticle, Tbreception)
J'ai ecris une fonction GetLibelleArticle() ci-dessous pour r&#233;cup&#233;rer le libelle de l'article &#224; partir d'un code (code saisie dans Tbreception). 
Malheureusement la fonction ne fonctionne pas - pouvez m'expliquer pourquoi ? Mon recordset est =  -1 or l'article existe bien.

Et plus g&#233;n&#233;ralement, sous ACCESS lorsque je fais:
 ---> recordsetX.open requeteSQL (avec clause WHERE), ca ne marche pas
je suis oblig&#233; de faire 
 ---> recordsetX.open nomtable  ou select * from table 

Je vous remercie

Public Function GetLibelleArticle(arcod, libelle) As Integer
Dim rst_art As ADODB.Recordset
Dim retour As Integer
Dim rqsql As String


    libelle  = ""
    retour = 0    rqsql "select tbarticle.ar_lib from tbarticle where tbarticle.ar_code '" + arcod + "';"
    rst_art.Open rqsql, CurrentProject.Connection
    If rst_art.RecordCount > 0 Then
        libelle = rst_art.Fields("ar_lib")
        retour = 1
    End If
    rst_art.Close
    GetLibelleArticle = retour
End Function

mrdep1978 · Answer

Tu as le choix entre ça pour calculer le RecordCount : rst_art.Open rqsql, CurrentProject.Connection, adOpenStatic ou ça pour remplacer ton test ~~If rst_art.RecordCount > 0 Then~~ if not rst_art.eof then PS : il te manquerait pas un "Set rst_art = New Recordset" ? Ci-dessous le résumé de MSDN sur le pb du RecordCount = -1 : Si l'objet Recordset accepte le positionnement approximatif ou les signets (c'est-à-dire que Supports (adApproxPosition) ou Supports (adBookmark) renvoie la valeur True), la valeur de RecordCount est le nombre exact d'enregistrements du Recordset, que ce dernier soit complet ou non. Si l'objet Recordset ne prend pas en charge le positionnement approximatif, cette propriété peut peser lourdement sur les ressources dans la mesure où tous les enregistrements doivent être extraits et comptés pour qu'une valeur RecordCount exacte puisse être renvoyée. Le type de curseur de l'objet Recordset détermine si le nombre d'enregistrements peut ou non être établi. La propriété RecordCount renvoie les valeurs suivantes : -1 pour un curseur de défilement vers l'avant seulement, le compte effectif pour un curseur statique ou à jeu de clés, -1 ou le compte effectif (selon la source de données) pour un curseur dynamique.

Manu94600 · Answer

Moi perso je ferais ca :

Public Function GetLibelleArticle(arcod) As String
Dim rst_art As ADODB.Recordset
Dim rqsql As String
    libelle = ""
    retour = 0    rqsql "select tbarticle.ar_lib from tbarticle where tbarticle.ar_code '" + arcod + "';"
    rst_art.Open rqsql, CurrentProject.Connection
    If rst_art.recordset.eof = false Then
        libelle = rst_art.Fields("ar_lib")
    End If
    rst_art.Close
    GetLibelleArticle = libelle
End Function

Cette fonction retourne une chaine ( le libelle de l'article pass&#233; en paramettre)

J'espere que ca ta aider.

@+

Manu

cs_whispers · Answer

Salut Mrdep1978,

Je n'ai pas tout percut&#233; sur l'explication MSDN, en tout cas les corrections que tu as apport&#233; fonctionne et je t'en remercie sinc&#232;rement. Je me pencherais plus en d&#233;tail ult&#233;rieument sur ces explications. Currently, je peux avancer dans mon dev. et grand merci &#224; toi.
Merci &#233;galement &#224; toi Manu94600 pour ton tuyau  
A+ les gars

ACCESS-VB: Lecture enregistrement

3 réponses

Discussions similaires