Pb sur SUM dans requête SQL exécutée sous VB

Bonjour,

1ère fois que je pose une question. Habituellement, je chercher et trouve, mais là, je coince !

J'exécute un requête SQL qui contient SUM et GROUP BY.
Lorsque je l'exécute directement avec l'outil TOAD, sur ma base Oracle, celle s'exécute correctement.
Lorsque je passe par mon programme VB, à l'aide d'un recordset, je ne récupère pas la colonne SUM

Code:

---

1 2 3 4

Select sum(MontantSP) as MontantSP, Code From TableFAP Where Numero >= 237970 Group by Code

---

Sous Toad, je récupère n lignes et 2 colonnes
Sous vb, mon recordset ne contient qu'1 colonne = Code
recordset(0) = Code

Merci d'avance pour votre aide

Bonjour,

As tu essayé de lire Recordset(1) ?

Ta requête est tout à fait correcte, ton erreur doit venir de ton code VB : peux-tu nous donner le code utilisé STP ?

mais rs(1) correspond alors à ma 3ème colonne demandée. En fait, quand j'interroge "rs.field.count", j'ai n-1 colonnes, alors que dans ma requête, j'en sélectionne bien n.

Ma requête fonctionne aussi quand je suis connectée à une base Access.
Pour ce qui est du code, le programme fait appel à un utilitaire qui permet d'exécuter la requête.

Set rsq = gFr_ADO_Openrecordset(strCrit, dbOpenDynaset)

Dans strCrit, j'ai le texte de ma requête :
"SELECT sum(MontantSP_16) AS MontantSP, CodePrestation_3 From FactureTable_FAP9 Where NumFacture_2 >= 237970 GROUP BY CodePrestation_3"

dbOpenDynaset vaut 2

rsq est un ADODB.recordset

Voici le code de la fonction utilisée :
"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Function gFr_ADO_Openrecordset(ByVal sSQL As String, Optional ByVal rsType = -1, Optional ByVal lOptions = -1, Optional ByVal rsLock = dbOptimistic) As Object 'Rq: pas de gestion d'erreur:géré par l'appelant pour se comporter comme currentdb.openrecordset 'qui provoque une erreur si sql incorrect If cDebug = "OUI" Then Debug.Print "**ADO open:" & sSQL End If If rsType = -1 Then ' Mettre valeur par défaut pour recordset avec Maj selon moteur rsType = dbOpenDynaset End If If lOptions = -1 Then ' Mettre valeur par défaut pour Option selon moteur lOptions = dbSeeChanges End If If cnn1 Is Nothing Then Open_Connection End If Set rst1 = New ADODB.Recordset rst1.CursorType = adOpenKeyset 'adOpenDynamic 'adOpenKeyset rst1.LockType = rsLock 'adLockOptimistic 'rsLock rst1.Open sSQL, cnn1 Set gFr_ADO_Openrecordset = rst1 Exit Function End Function

---

Ma chaîne de connexion :

cnn1 = <Provider=MSDASQL.1;Data Source=ORA_LIB;Extended Properties="DSN=ORA_LIB;UID=libfac2000;PWD=faczup;DBQ=THIONDEV;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;">

Voilà, s'il manque quelque chose ... merci

En poursuivant mes investigations, j'ai réussi à ne plus avoir le problème en laissant le type de curseur par défaut

Code:

---

rst1.CursorType = adOpenForwardOnly

---

Je ne vois pas le rapport entre les champs et le type de curseur, mais ça fonctionne.