Bonjour,
Je cherche à récupérer le résultat d'une requête select lancée sur une base de données sql server. J'arrive à éxécuter la rêquête correctement
Je reçois bien "1 enregistrement(s) trouvé(s)" ce qui est juste (j'ai fait un jeu de test pour vérifier que je reçois bien le nombre exacte donc pas de doute). Mais j'ai pas su comment exploité le résultat retourné.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28Dim sqlClient Dim strMidwRequeterep Dim strReponseRequete 'Construction de la requete strMidwRequeterep = "SELECT Valeur " strMidwRequeterep = strMidwRequeterep & "FROM Parametre " strMidwRequeterep = strMidwRequeterep & "WHERE (Nom LIKE 'MailMainteneur')" strMidwRequeterep = Replace(strMidwRequeterep, "'", Chr(1) & "'") msgbox strMidwRequeterep 'initialisation de l’objet DynamicSql Set sqlClient = CreateObject("MIDW_Client.DynamicSQL") sqlClient.Dsn = "PTF1_WEBM" 'ajout de requête sqlClient.AddRequest "GENERIQUE", "PTF1_WEBM" sqlClient.SetParam "req", strMidwRequeterep 'exécution de la requête strReponseRequete = sqlClient.Execute(300000) If sqlClient.ReturnedRows > 0 Then msgbox sqlClient.ReturnedRows & " enregistrement(s) trouvé(s)" Else msgbox "Aucun enregistrement trouvé" End If
J'ai essayé avec sqlClient(0).value, sqlClient.Fields("Valeur "), sqlClient.Fields("Valeur ").value ça ne fonctionnent pas.
Merci d'avance.
