Discussion :

[law56100]

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

[Jeannot45]

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

[law56100]

pour le code suivant ce fonctionne

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, 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 :

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

[law56100]

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