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 :
Espérant que vous pourrez m'aider.
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
Cordialement
Partager