[Excel] problème requete Sql et Order By en Vba

Version imprimable

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

Voici ma requte et ca plante a SR.open ...
Code:

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:

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

26/02/2009, 17h41
Jeannot45

:salut:

A priori, je ne vois pas de problème dans le code mais dans le titre tu nous signale [Excel] et tu as posté dans le Forum de VBA Access

N'y aurait-il pas un problème de choix de forum ?

D'autre part, de quel type sont vNumEtab et vNumSalar, car l'utilisation des quotes dans la syntaxe SQL est réservée pour les types alpha

pour le code suivant ce fonctionne

Code:

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, ConnWinPaie, adOpenStatic, adLockReadOnly
    TL.MoveFirst
    If TL.EOF Then
        vResult = ""
    Else
        vResult = Trim(TL("Libtab"))
    End If
 
    TL.Close
    Set TL = Nothing
 
    totoOrderby = vResult
End Function

mais pour le code ci dessus ca ne marche pas , et les variables sont
Dim vNumEtab As String
Dim vNumSalar As String

Code:

1
2
3
 
Liste = "SELECT Typcon, Srcle2 FROM SALREGIS WHERE Etcode='" & vNumEtab & "' AND Sacode='" & vNumSalar & "' ORDER BY Srcle2"
SR.Open Liste, ConnWinPaie, adOpenStatic, adLockReadOnly

26/02/2009, 18h13
law56100

ca marche si je ne met^pas la clé de mon fichier mais une autre colonne