Discussion :

[M4itreG]

Bonjour,

Je vous expose ma situation :
Je met dans un tableau excel les données qui sont récupérées sur une base de données via des procédures stockées.

Le problème est que dans ma base de données, il est possible qu'une recherche ne retourne aucun champs, dans SQL server Manager, tout marche bien mais quand je lance ma macro forcément vu qu'il n'y a pas d'enregistrement, je me fais jeter.

J'ai essayer de faire un if avec un ADOrs.RecordCount mais j'ai remarqué, que avec enregistrement ou sans enregistrement, recordcount est toujours à : -1.

Je ne sais plus comment faire. Je vous poste mon bouton, sur lequel l'action se fait :

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
Private Sub Cmdok_Click()
cbbof.Visible = True
Label2.Visible = True
        ProcStoc = "dbo.affich_of"
        Set dbcmd = New ADODB.Command
        Set dbcmd.ActiveConnection = dbcnx
        dbcmd.CommandText = ProcStoc
        dbcmd.CommandType = adCmdStoredProc
        dbcmd.Parameters.Append dbcmd.CreateParameter("@gam", adVarChar, adParamInput, 25, cbbGamme.Text)
        Set ADOrs = New ADODB.Recordset
        Set ADOrs = dbcmd.Execute()
 
        If ADOrs.RecordCount = -1 Then
            MsgBox ("Aucun enregistrement trouvé !")
        Else
            ADOrs.MoveFirst
        Do While Not ADOrs.EOF
            cbbof.AddItem Trim(ADOrs.Fields(0))
            ADOrs.MoveNext
        Loop
        ADOrs.Close
        End If
End Sub

Espérant que vous pourrez m'aider.

Cordialement

[parmi]

Bonjour,

Avant de demander le Recordcount, essaie en mettant un Movelast et un Movefirst. Autrement, je pense que tu peux y arriver avec une comparaison de BOF et EOF.

[Invité]

Bosoire,
l'orsequ'une requête ne retourne rien, eof est à true.
Test le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 if rs.eof=false then
'ton code
end if