DISTINCT + WHERE + ORDER BY + LIMIT

Version imprimable

Bonjour à tous,

J'ai une BDD Access avec une table (2_Offers_Configuration_Study) dans laquelle une colonne (Study_N°) contient des données de type :
Code:

1 2 3 4 5 6 7 RJ-00016 RJ-00017 RJ-00098 Test Vérification Prix RJ-00125 RJ-00126
J'aimerais pouvoir directement via SQL obtenir la dernière valeur descendante d'un champ contenant des données numériques, j'ai essayé différentes syntaxes sans succès depuis quelques jours... :aie: :
Code:

1 2 3 Set enr = base.OpenRecordset("SELECT DISTINCT Study_N° FROM 2_Offers_Configuration_Study WHERE Study_N° LIKE 'RJ-%' ORDER BY DESC LIMIT 1", dbOpenDynaset) Ou Set enr = base.OpenRecordset("SELECT Study_N° FROM 2_Offers_Configuration_Study WHERE Study_N° = 'RJ%' GROUP BY Study_N° HAVING MAX(Study_N°)", dbOpenDynaset)
Avez-vous des pistes, ou une solution pour réaliser cette requête ?

Merci d'avance

03/11/2020, 14h41
escartefigue

Bonjour,

Tout simplement avec SELECT MAX(ma_colonne) ou MIN(ma_colonne) + une restriction permettant de filtrer la ou les valeurs recherchées (LIKE 'RJ%' par exemple)

Bonjour,

C'est dans le ORDER BY qu'il faut "filtrer":

Code:

1
2
 
SELECT DISTINCT Study_N° FROM 2_Offers_Configuration_Study WHERE Study_N° LIKE 'RJ-%' ORDER BY ltrim(replace(Study_N°, 'RJ-', ' ')) DESC LIMIT 1

03/11/2020, 15h35
escartefigue

non : Sauf si la population de la table est très réduite, faire un DISITNCT inutile et couteux et utiliser la clause LIMIT avec un ORDER BY également inutile et couteux doit être remplacé par un select (min) comme indiqué précédemment.
03/11/2020, 16h03
Survivorxs

Citation:

Envoyé par escartefigue

non : Sauf si la population de la table est très réduite, faire un DISITNCT inutile et couteux et utiliser la clause LIMIT avec un ORDER BY également inutile et couteux doit être remplacé par un select (min) comme indiqué précédemment.

J'ai essayé différente manière, cependant, j'ai une erreur de type : élément non trouvé dans cette collection... J'ai vérifier mes données je ne comprends pas ce qu'il bloque...

Code:

SELECT MAX(Study_N°) FROM 2_Offers_Configuration_Study WHERE Study_N° = 'RJ-%'
03/11/2020, 16h05
Survivorxs
Citation:
Envoyé par vanagreg

Bonjour,

C'est dans le ORDER BY qu'il faut "filtrer":

Code:

1 2 SELECT DISTINCT Study_N° FROM 2_Offers_Configuration_Study WHERE Study_N° LIKE 'RJ-%' ORDER BY ltrim(replace(Study_N°, 'RJ-', ' ')) DESC LIMIT 1
Erreur de syntaxe dans la CLAUSE ORDER BY, je comprends le code mais je ne vois pas pourquoi le ORDER BY bloque...

C'est normal, il faut utiliser l'opérateur LIKE :
Code:

1 2 3 SELECT MAX(Study_N°) FROM 2_Offers_Configuration_Study WHERE Study_N° LIKE 'RJ-%'

1 pièce(s) jointe(s)

Citation:

Envoyé par escartefigue

C'est normal, il faut utiliser l'opérateur LIKE :

Code:

1
2
3
SELECT MAX(Study_N°) 
FROM 2_Offers_Configuration_Study 
WHERE Study_N° LIKE 'RJ-%'

Je dois vraiment être une bille... pas de différence avec LIKE

Voici mon code complet :

Code:

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
29
30
Sub TestSQL()
 
  Dim base As Database
  Dim myDB, ImportChamp, ImportTable As String
  Dim enr As Recordset
 
Worksheets("Settings").Range("C2:HK2000" & Dernligne).ClearContents
 
 
'_____________Chemin BDD
    myDB = "T:\DataBase Brief\Brief-Customers.accdb"
 
'_____________Connexion BDD
    Set base = DBEngine.OpenDatabase(myDB, False, True)
 
     Set enr = base.OpenRecordset("SELECT MAX(Study_N°) FROM 2_Offers_Configuration_Study WHERE Study_N° LIKE 'RJ-%'", dbOpenDynaset)
 
i = 1
While Not (enr.EOF) 'boucle sur les enregistrements
    With enr
        Worksheets("Settings").Cells(1 + i, 5) = .Fields("Study_N°")
    End With
    enr.MoveNext
    i = i + 1
Wend
 
enr.Close
Set enr = Nothing
 
End Sub

Ma BDD:
Pièce jointe 582896

03/11/2020, 18h24
escartefigue

Il faut certainement encadrer STUDY_N° de doubles quotes car cette colonne utilise des caractères spéciaux (pas top du reste...)
Désolé, je n'y avais pas prêté attention, j'aurai pu le préciser dans ma réponse précédente

1 pièce(s) jointe(s)

Citation:

Envoyé par escartefigue

Il faut certainement encadrer STUDY_N° de doubles quotes car cette colonne utilise des caractères spéciaux (pas top du reste...)
Désolé, je n'y avais pas prêté attention, j'aurai pu le préciser dans ma réponse précédente

Merci escartefigue pour ton aide.

J'ai essayé cependant même soucis (élément non trouvé dans cette collection...), en allant + dans le détail je remarque que mon enr a bien trouvé une valeur cependant il me nomme la colonne Expr1000..., en cherchant il semblerait que la solution soit de mettre des [ ], mais cela ne change rien, même une simple formule ne fonctionne pas.

Je crois que je vais abandonner mes recherches j'ai passé beaucoup trop de temps dessus.
Code:

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 29 30 31 32 33 34 Sub TestSQL() Dim base As Database Dim myDB, ImportChamp, ImportTable As String Dim enr As Recordset Worksheets("Settings").Range("C2:HK2000").ClearContents '_____________Chemin BDD myDB = "T:\DataBase Brief\Brief-Customers.accdb" '_____________Connexion BDD Set base = DBEngine.OpenDatabase(myDB, False, True) 'Set enr = base.OpenRecordset("SELECT Study FROM 2_Offers_Configuration_Study", dbOpenDynaset) 'Set enr = base.OpenRecordset("SELECT LTRIM(REPLACE(Study, 'RJ-', '')) As Study FROM 2_Offers_Configuration_Study", dbOpenDynaset) Set enr = base.OpenRecordset("SELECT MAX([Study]) FROM 2_Offers_Configuration_Study", dbOpenDynaset) i = 1 While Not (enr.EOF) 'boucle sur les enregistrements With enr Worksheets("Settings").Cells(1 + i, 5) = .Fields![Expr1000] End With enr.MoveNext i = i + 1 Wend enr.Close Set enr = Nothing End Sub
Pièce jointe 582954