Excel et le SQL

[colapsus]

Bonjour à tous, pour un projet sous Excel, j'ai deux listes déroulantes qui vont s'alimenter dans une base de données, et lorsque je désire utiliser un ORDER BY pour trier par ordre alphabétique une des deux listes j'ai un message d'erreur me disant "Erreur de syntaxe (opérateur absent) dans l'expression "Numéro=9ORDERBY"

Donc si quelqu'un sait quelle erreur je fais, pourriez vous me montrer pourquoi ?
Voici le code pour vous donner une idée.

Code :

1
2
3
4
 
set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) & "ORDER BY" & Nom & DESC, dbReadOnly)

[pc75]

Bonjour,

Et en ajoutant un espace avant le order ?

Code :

1
2
3
4
 
set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) & " ORDER BY" & Nom & DESC, dbReadOnly)

[colapsus]

ça ne change rien, et ça commence à m'enquiquiner ce probleme ><

[jpcheck]

Salut,
peux-tu nous montrer le code avec la modification effectuée stp ?

à noter que le DESC n'est pas intégré dans la chaine de caracteres.

[colapsus]

ok je vous donne le code dans son entier avant modification

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
35
36
37
38
 
 
Private Sub cbPart_Change() 
    Dim db As DAO.Database
    Dim dbPath As String
    Dim rs As DAO.Recordset, Champ As String, Num As Integer, Num1 As Integer
    If CbPart.ListIndex = -1 Then Exit Sub
    Application.EnableEvents = False
    Set db = OpenDatabase(Chemin & NomBase, False, False, "MS Access;PWD=" & MotdePasse)
    Champ = "Numéro"
    Set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) , dbReadOnly)
 
    With rs
        If .NoMatch Then
            MsgBox ("Pas de correspondance")
            Set rs = Nothing
            db.Close
            Set db = Nothing
            Exit Sub
        Else
            Sheets("Devis DPE Neuf 2005").Range("D15").Value = .Fields("Adresse")
            Sheets("Devis DPE Neuf 2005").Range("D18").Value = .Fields("Téléphone")
            Sheets("Devis DPE Neuf 2005").Range("B3").Value = .Fields("Fax")
            Sheets("Devis DPE Neuf 2005").Range("D19").Value = .Fields("Email")
            Sheets("Devis DPE Neuf 2005").Range("D14").Value = .Fields("Prénom")
            Sheets("Devis DPE Neuf 2005").Range("D17").Value = .Fields("CP")
            Sheets("Devis DPE Neuf 2005").Range("G17").Value = .Fields("Ville")
            Sheets("Devis DPE Neuf 2005").Range("G18").Value = .Fields("GSM")
            .MoveNext
        End If
    End With
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Application.EnableEvents = True
End Sub

[jpcheck]

Très bien, maintenant il faut nous dire à quelle ligne tu as une erreur et quelle est-elle.

[colapsus]

Comme je l'ai indiqué plus haut, lorsque je veux trier les noms par ordre alphabétique, je crée dans la requete de select situé a ligne 11 je rajoute un ORDER BY, ce qui donne avant la modification

Code :

1
2
3
4
 
Set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) , dbReadOnly)

et apres la modification

Code :

1
2
3
4
 
set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) & " ORDER BY" & Nom & DESC, dbReadOnly)

[jpcheck]

J'ai indiqué que le DESC n'était pas dans la chaine, et les espaces ont été aussi déjà évoqués

Code :

1
2
3
set rs = db.OpenRecordset("SELECT * FROM " & _
        NomTable & " WHERE " & Champ & _
        " = " & CInt(CbPart.Value) & " ORDER BY " & Nom & " DESC", dbReadOnly)

[Daniel.C]

Désolé, le problème n'est pas que dans la syntaxe SQL. En fait tu ne dois pas tester cbPart dans la macro WorkBook_Open car cette valeur n'est pas renseignée. La syntaxe suivante fonctionne :

Code :

1
2
    Set rs = db.OpenRecordset("SELECT " & "Numéro, Nom, Prénom, Entreprise" & " FROM " & _
        NomTable & " ORDER BY " & "Nom" & " ASC", dbReadOnly)

Mes excuses aux spécialistes SQL. Je n'avais pas vu ce qui aurait dû me crever les yeux.
Pour colapsus : tu dois conserver ce "where" dans la macro "cbPart_Change". Tu dois conserver "*" pour avoir tous les champs ou énumérer les champs dont tu as besoin.

[colapsus]

et c'est censé donner quoi comme code alors dans Cbpart_change ?

[Daniel.C]

Ça sélectionne les champs "Numéro", "Nom", "Prénom", et "Entreprise", les enregistrements étant triés sur le champ "Nom".

[colapsus]

Je pense trouver un élément de réponse, vu que dans la BDD il y a une numérotation automatique, et lorsqu'il affiche meme si je mets un order by nom, ou modifie l'ordre des numéros, c'est à dire mettre le numéro 3 au dessus du 2, il fait un order by automatique

[Daniel.C]

Je ne vois pas ton problème; les enregistrements sont bien triés par nom.

[colapsus]

Pour particulier non, c'est juste une idée je te le confirme, à certains endroits tu verras que ce n'est pas trié

de meme pour les entreprises, elles apparaissent en fonction de la numérotation quoique je fasse pour les ordonner

[Daniel.C]

Regarde le classeur joint. J'ai listé la BDD avec le code de Workbook_Open. Les résultats sont sur Feuil2. En colonne C, j'ai mis une formule pour m'assurer qu'il n'y a pas de déclassement sur le nom; il n'y en a pas. Les entreprises ne sont pas triées (pas de clause "order by").

[colapsus]

Alors pourquoi cela ne fonctionne pas quand je veux le mettre dans une listbox ?

[Daniel.C]

Si tu travailles toujours avec la base que tu m'as envoyée, donne-moi l'exemple de deux noms non triés.

[colapsus]

Eh bien tout à la fin de ma listbox je trouve
Wallez
Lazreg
Afchain
Predat
Marquand
Dupuy

Comme tu vois ils ne sont pas rangés dans l'ordre alphabétique lorsque la requete Sql se trouve dans Cbpart change

[pc75]

Bonjour,

Envoyé par colapsus

Bonjour à tous, je vous présente mon probleme, je possede une liste déroulante se nommant CbPart, cette liste est liée a une base de données sous access et permet d'afficher tous les noms présents dans la base de données, jusque là pas de problemes, mais je voudrais dans la liste déroulante les trier par ordre alphabétique grace a un order by, voici le code

Code :

Ainsi dans excel quand on clique sur un des noms dans une liste déroulante il est censé s'afficher dans certaines cellules des infos complémentaires. Dans le cas présent, la liste apparait toujours, je clique sur un nom, ses infos s'affiche, mais ce n'est toujours pas rangé dans l'ordre croissant. Donc en furetant, on me dit que comme Cbpart n'est pas déclaré, il faut enlever le WHERE, ce que je fais et ce qui donne

Code :

cette fois ci il m'affiche toujours ma liste de nom et toujours pas dans l'ordre alphabétique et quand je clique sur un nom, aucune info ne s'affiche dans les cellules correspondantes. Savez vous ce qui ne fonctionne pas ?

Elle sort d'où ta variable Nom ?

[Daniel.C]

Effectivement, "Nom" n'est pas une variable, mais un champ de ta BDD; tu dois le mettre entre guillemets; regarde la syntaxe SQL que j'ai postée plus haut.