DAO : Function Replace() & Access 2000Résolu

Question

Bonjour, 

Je dois faire une petite modification sur une vieille application qui a &#233;t&#233; d&#233;velopp&#233;e avec DAO. 

J'ai un probl&#232;me de tri au niveau des apostrophes. 
Tri actuel : 
- D'AB 
- DAC 
- D'AD 
- DAD 
- D'EB 
- DEC 

Tri d&#233;sir&#233;: 
- D'AB 
- D'AD 
- D'EB 
- DAC 
- DAD 
- DEC 

Ma requ&#234;te de selection pour permettre cela (elle marche dans les requ&#234;tes Access 2000) 
Select ... From ... Order by Replace(MonChamp, '''', ''' '); 

Le tri est correct gr&#226;ce &#224; cette requ&#234;te dans Access, mais impossible de la faire marcher dans VB avec DAO 3.6 

C'est le Replace() qui ne marche pas err 3080 fonction non d&#233;finie 

Ligne de code : 
vSQL= "Select ... From ... Order by Replace(MonChamp, '''', ''' ')" 
set vRs=db.OpenRecordset(vSQL,dbOpenDynaset) >>>l'erreur est ici 

Sachant que la m&#234;me requ&#234;te sans le replace marche tout &#224; fait 

Avez-vous une id&#233;e pour que cela fonctionne ? ou une autre fa&#231;on de faire pour que le tri soit correct? 

Merci d'avance. 
Cordialement.

antidotesfr · Accepted Answer

Ca y est j'ai trouvé !!!!!!

Si la solution vous interresse :
Faire une requête comme ci dessous :)

SELECT MonChamp
FROM MaTable
ORDER BY
 IIf(InStr([MonChamp],Chr(39))>0,Mid([MonChamp],1,InStr([MonChamp],Chr(39))-1) & ' ' & Mid([MonChamp],InStr([MonChamp],Chr(39))+1),[MonChamp])

PCPT · Answer

salut,
MonChampModifie = Replace(MonChamp,"'","' ")
vSQL= "Select ... From ... Order by " & MonChampModifie
set vRs=db.OpenRecordset(vSQL,dbOpenDynaset) >>>l'erreur n'est plus l&#224;
PCPT

PCPT · Answer

sachant malgr&#233; tout que pour moi, on trie par colonne, et non par occurence ;)

antidotesfr · Answer

MonChamp est le nom de la colonne et nom une variable de VB :)

PCPT · Answer

ok (tu m'as un peu fait peur)
alors &#231;&#224; s'&#233;crit juste "......ORDER BY [|MaTable.MonChamp]"
PCPT

PCPT · Answer

sans le |

antidotesfr · Answer

On dirait que tu n'as pas bien compris ma question en fait :)

Un tri classique par order by MaColonne ne trie pas comme je le souhaite les donn&#233;es le replace permet de changer l'ordre de de tri en stipulant de trier l'apostrophe comme apostrophe + espace
La requ&#234;te marche tres bien dans un editeur SQL que ce soit avec SQL server ou avec Access 2000 SP3 mais impossible de faire executer cette requete par VB en DAO.
Je cherche donc une soluution pour qu'un tri correct (cad comme je le d&#233;sire et non standat :p ) soit possible.

PCPT · Answer

re,
je crois comprendre (enfin)

seulement, je doute que l'on puisse "param&#233;trer" la mani&#232;re de trier (&#224; part ASC DESC).
dans le doute, essaie " .....ORDER BY ASC(" & Replace(MonChamp,"'","' ") & ")"
mais j'en doute fort!

une solution alternative?
peut-&#234;tre faire ta requ&#234;te sous access, l'enregistrer, et acc&#233;der &#224; cette requ&#234;te (fonctionnelle) &#224; partir de VB
non?

PCPT

antidotesfr · Answer

En fait j'ai d&#233;j&#224; essay&#233; de cr&#233;er la requete directement dans access et de l'appeller dans VB.
Or la requ&#234;te marche tres bien dans Access mais ne veut pas s'executer dans VB :(

PCPT · Answer

re, je viens de tester : ma requête s'appelle Req1

sql = "SELECT * FROM Req1" Set rs = db.OpenRecordset(sql, dbOpenDynaset) For i = 1 To 4 MsgBox rs("USER") rs.MoveNext Next Set rs = Nothing

fonctionne nikel (requête simple) PCPT

cs_CanisLupus · Answer

Salut, &#224; partir de VB6, je vois une solution qui ne va sans doute pas te plaire car ce sera tri&#233; comme &#231;a :


- DAC 
- DAD 
- DEC 
- D'AB 
- D'AD 
- D'EB 


Enfin, la voil&#224; quand m&#234;me (le nombre de @, tu en mets autant que la taille du champ nom pour que &#231;a marche, l&#224; j'en ai mis 4 car c'est dans tes exemples) :

"select * from table1 order by format(nom,'@@@@')"

En dehors de &#231;a, j'ai essay&#233; d'autres trucs, ADO comme DAO, avec ou sans requ&#234;te stock&#233;e, m&#234;me r&#233;sultat : ignorance de l'apostrophe.
, j'ai essay&#233; ta proposition (avec une base access97), &#231;a ne trie pas comme demand&#233;.
M&#234;me coller le r&#233;sultat de la requ&#234;te dans une listbox dont la propri&#233;t&#233; sorted = true, &#231;a ne marche pas.

Quoique je n'ai jamais eu &#224; me poser cette question, s'il y a une solution qui marche, comme demand&#233; au d&#233;but, avec tous types de bases access, je suis preneur aussi.

PS : replace n'est pas reconnu par le moteur Access (m&#234;me sous Access).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

CanisLupus -> ok, merci d'avoir test&#233;. j'ai bien dit que j'en doutais et n'ai pas essay&#233;.
par contre, si la requ&#234;te de AntidotestFr fonctionne sous access, alors ma derni&#232;re proposition est elle test&#233;e sous Access2000 (base) // DAO 3.6 VB6 et fonctionne ;)

bonne continuation &#224; tous

PCPT

Zlub · Answer

Salut,

Tu peux utiliser Replace dans la clause order by. 

L'id&#233;e, c'est de remplacer quote par z&#233;ro par exemple qui est class&#233; avant toute lettre



Supposons une table aa dont la structure est la suivante



- id

- lib



pour afficher selon ton ordre




SELECT aa.* 
FROM aa 
order by replace( aa.lib,"'","0") asc; 


se qui doit te donner



- D'AB 
- D'AD 
- D'EB 
- DAC 
- DAD 
- DEC 


++

Zlub

antidotesfr · Answer

Merci pour toutes ses r&#233;ponses 
Je vais tester tout &#231;a et je reviens vers vous apr&#232;s

antidotesfr · Answer

@PCPT
J'ai donc test&#233; de cr&#233;er ma requete Req1 comme telle : "Select ... From ... Order by Replace(MonChamp, '''', ''' ');"
J'ai ensuite executer la requete "SELECT * FROM Req1" dans VB

Malheureusement j'ai toujours le message d'erreur 

@Zlub
Lis ma question jusqu'au bout 
Je fais d&#233;j&#224; le replace dans mon Order by mais cela ne marche pas en DAO il ne reconnait pas le replace quelquesoit ce que je mets dans le replace.

@CanisLupus
Le replace marche bien dans Access mais &#224; partir de Access 2000 SP3 (pas test&#233; dans SP2 mais dans Access 2000 de base il marche pas)
J'ai test&#233; ta solution, car &#231;a ne me derangeait pas que les ' soit &#224; la fin.
Mais le r&#233;sultat ne va pas du tout en fait 
J'ai maintenant un tri par nombre de caract&#232;re dans le mot en fait c'est &#224; dire j'ai tous les Nom en deux lettre de A &#224; Z puis tous les noms en trois lettre de A &#224; Z ect ...

PCPT · Answer

bon, je viens de tester Replace dans access (sql), m&#234;me probl&#232;me que toi
(je sais pas si j'ai des SP)

3&#232; alternative?
tu en fais quoi du r&#233;sultat de la requ&#234;te......
si tu la d&#233;composes apr&#232;s de retour d'sql, et retries.....

PCPT

PCPT · Answer

.......**** j'ai le mesage d'erreur access directement.....

antidotesfr · Answer

Malheureusement il m'est impossible de refaire le tri dans le code.
Comme je l'ai dit au d&#233;but il s'agit d'un vieille application et la table en question (20000 lignes) est enti&#232;rement charg&#233; au d&#233;marrage de l'application. Cela met + de 2 Minutes pour ouvrir l'application, je ne peux donc pas me permettre de ralonger encore ce temps d'ouverture 

C'est un casse-t&#234;te chinois ce truc j'ai mal au cr&#226;ne lol, j'ai &#233;pur&#233; tout un tas de forum pour essayer de trouver une solution 

Si tu as le message d'erreur dans Acces directement c'est que tu n'as pas de SP :p J'ai eu le m&#234;me probl&#232;me que toi au d&#233;but j'ai pass&#233; le SP3 et Access execute parfaitement la requ&#234;te now.

PCPT · Answer

euh.... et directement changer les champs? c'est pas envisageable?

antidotesfr · Answer

C'est &#224; directement changer les champs? 
Pas compris

DAO : Function Replace() & Access 2000

29 réponses

Discussions similaires