Bonjour, j'ai un souci avec les requtes sql et son order by

Voici ma requte et ca plante a SR.open ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Liste = "SELECT Typcon, Srcle2 FROM SALREGIS WHERE Etcode='" & vNumEtab & "' AND Sacode='" & vNumSalar & "' ORDER BY Srcle2"
SR.Open Liste, ConnWinPaie, adOpenStatic, adLockReadOnly
J'ai essayé SR.Open Liste, ConnWinPaie, 3, 3 pour avoir toutes les priorité ca ne marche pas

J'ai essayé avec une requte plus simple

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
 
Function totoOrderby() As String
 
    Dim vResult As String
    Dim Liste As String
 
    Dim TL As ADODB.Recordset
    Set TL = New ADODB.Recordset
 
    Liste = "SELECT * FROM ZONESLIB ORDER BY Rucode"
    TL.Open Liste, ConnWinPaieRef, 3, 3
    TL.MoveFirst
    If TL.EOF Then
        vResult = ""
    Else
        vResult = Trim(TL("Libtab"))
    End If
 
    TL.Close
    Set TL = Nothing
 
    totoOrderby = vResult
End Function
ca ne fonctionne pas. Sans le orderBy, cela fonctionne mais le risque c'es de n'avoir pas le bon enregistrement

Si quelqu'un voit une erreur dans mon code
Sinon il ne faut pas avoir de référence spécifique un truc de ce genre

cordialement law56100