Pb de recordsetRésolu

Question

BONNEE A TOUS
Kikoo, j'esp&#232;re que &#231;a va !!! Moi j'ai un souci :

j'ai fait un rs.recordcount  
je l'affiche dans un msgbox
il m'affiche -1  alor kil ya un enregistrement 
je comprend pas pourquoi !!

    Set rsEntr&#233;esConso1 = New ADODB.Recordset
    rsEntr&#233;esConso1.Open "LIVRAISON", cn, adOpenDynamic, adLockOptimistic
    
    
    Frame1.Enabled = True


    Dim i As Integer
    i = rsEntr&#233;esConso1.RecordCount
    MsgBox (i)
    i = i + 1
    
    If i <= 0 Then
        txtIdLivr1.Text = 1
    End If
    
    'on indente l'identifiant de la livraison
    If i >= 1 Then
        'Renvoie l'identifiant maximal
        Dim rsMaxId As New ADODB.Recordset, reqMaxId As String
        
        reqMaxId = "select max(ID_LIVRAISON) as IdMax from LIVRAISON"
        rsMaxId.Open reqMaxId, cn, adOpenStatic, adLockOptimistic
        txtIdLivr1.Text = rsMaxId!IdMax + 1
        
        rsMaxId.Close
    End If

Merci de votre aide !!!
@ + !!

VirJni · Accepted Answer

Kikoo, j'esp&#232;re que &#231;a va !!!  :
Merci de votre aide !!!
@ + !!

Mais ca ne fonctionne pas ! lol  
 G essay&#233; ce que It@li@  m'a dit, @ savoir :

Dim i As Integer
rsEntr&#233;esConso1.movelast
i= rsEntr&#233;esConso1.RecordCount
MsgBox (i)
rsEntr&#233;esConso1.movefirst
i = i + 1

   et G tjs le mm pb ! il m'affiche -1 alor kil y a d  enregistrement pour le reste G p&#244; essay&#233; car je sav&#233; p&#244; tr&#244; c&#244;men faire !

   Par contre, G la solution : 

    Set rsEntr&#233;esConso1 = New ADODB.Recordset
    rsEntr&#233;esConso1.Open "LIVRAISON", cn, adOpenKeyset, adLockOptimistic

C  expr&#232; pr les recordset on ma di !
Voila ! 
si ca peux aider qqn !...
TANT MIEUX !
moi ca ma d&#233;bloqu&#233; mon bug !!

@ + !

MERCI !

cs_ITALIA · Answer

c'est normal essayes en rejoutant ces 2 lignes en rouge:

Dim i As Integer
rsEntr&#233;esConso1.movelast
i= rsEntr&#233;esConso1.RecordCount
MsgBox (i)
rsEntr&#233;esConso1.movefirst
i = i + 1

It@li@

mrdep1978 · Answer

Cependant, sur les recordset ramenant beaucoup d'enregistrements, le MoveLast peut prendre bcp de temps.
Mais bon, je n'ai jamais trouv&#233; d'autre solution

madbob · Answer

Tu fais une requete oder by desc et tu affiches le first...


madbob

cs_ITALIA · Answer

ou tu insert un COUNT dans ta requ&#233;te

It@li@

madbob · Answer

Bonjour &#224; toi It@li@

madbob

cs_ITALIA · Answer

Salut madbob

VirJni n'oublies pas de cocher reponses acc&#233;pt&#233;es

It@li@

VirJni · Answer

ps :

G enle v&#233; ca (en rouge)
    Dim i As Integer
    i = rsEntr&#233;esConso1.RecordCount
    MsgBox (i)
    i = i + 1


  @ +

VirJni · Answer

oups !
je suis tromp&#233;e qd je me suis relue !

adOpenKeyset 

c f&#233; expr&#232;s pr les RECORDCOUNT !
Trop nulle !
lol 

Bon courage !

Pb de recordset

9 réponses

Discussions similaires