Discussion :

[Oussema86]

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

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
24
25
26
27
28
 
    Dim 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

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é.
J'ai essayé avec sqlClient(0).value, sqlClient.Fields("Valeur "), sqlClient.Fields("Valeur ").value ça ne fonctionnent pas.

Merci d'avance.

[Oussema86]

Je viens d'avoir l'info suivante : sqlClient est un ojbet propre à la société
Bonne journée