trie "Sort"Résolu

Question

Bonjour 

j'ai un champ declare en texte 6 caracteres je veux faire le trie sur ce champ
mais je trie que le 5eme et 6eme caractere du genre sort = texte[5,6]
MERCI

nhervagault · Accepted Answer

Une requete select ne peut etre executé c'est un update, insert ou delete 
qui peuvent etre executé 

il faut utiliser openrecordset en DAO 
ou
rs.open sql, .... en ADO (plus recommandé)
pour des exemples de code il y en a plein sur le site vbfrance

nhervagault · Answer

Salut

Tu es  sur quelle base de données

Sql = select * from matable orderby substring(len(monchamps) -2), len(monchamps))

une formule de ce style devrait fonctionner 
en utilsant des traitement de chaine de caracteres qui recupere les 2 derniers caracteres

nb, attention ne doit pas fonctionner si un seul caractere.

cs_zaatout · Answer

Salut je voudrais bien en savoir plus sur le VB6

cs_zaatout · Answer

bonjour 

je travaille avec base donnees access mais ca n'a pas marche

a+ merci

nhervagault · Answer

Remplace le substring par mid pour extraire ta chaine de caractère

cs_zaatout · Answer

salut

 je suis sur vb6 et table access
 voila la syntaxe mais ca n'a pas marche

bdd.Execute "select * from releve order by mid(len(dop) -2), len(dop)"

a + merci

nhervagault · Answer

Il faut LIRE & METTRE le message d'erreur sur le forum 

Nombre d'argument incompatible c'est plus parlant que ca marche pas

select * from releve order by mid(dop,len(dop) -2), len(dop) 

NB ca ne fonctionne pas si len < 2 a toi de voir et de trouver comment resoudre ce cas, si besoin est

en recherchant tu aurais vu que mid ne respecte pas sa signature (c'est la meme que vb6 il me semble)
et tu aurais corrigé ton problème tout seul.

bon coding

cs_zaatout · Answer

Salut
 le message d'erreur est le suivant
Erreur d'execution 3065
can't execute select a query
a+

cs_zaatout · Answer

Salut

je reviens car la raquete ne me donne pas le resultat ni d'erreur
qui peux me la courige :

 bdd.Execute "INSERT INTO tent " & _
"SELECT releve.dos, " & _
"       releve.mois, " & _
"       releve.lop, " & _
"       releve.ch, " & _
"       releve.dop, " & _
"       releve.montant, " & _
"       releve.sens, " & _
"       releve.P " & _
"  FROM releve " & _
" order by left(len(dop),2),mid(len(dop),3,4),right(len(dop),2)"

a+

nhervagault · Answer

Salut

Ta clause order by semble incorrect

debug la avec un  select

"SELECT left(len(dop),2),mid(len(dop),3,4),right(len(dop),2)" & _
"  FROM releve ";

Et tu veras 
pour info 
left(chaine,nbcar)
idem pour rigth
et mid cf post plus haut

ici tu fais 
left(len(dop),2) 
si dop = "toto" --> left (4,2) --> 0
Je ne pense pas que c'est ce que tu veux.

cs_zaatout · Answer

Salut 

Voila la solution est ca marche bien 
 
dd.Execute "INSERT INTO rapp " & _
"SELECT releve.dos, " & _
"       releve.mois, " & _
"       releve.lop, " & _
"       releve.ch, " & _
"       releve.dop, " & _
"       releve.montant, " & _
"       releve.sens, " & _
"       releve.P " & _
"  FROM releve " & _
" WHERE releve" & _
"ORDER BY ((dop),2),mid((dop),3,4),left((dop),2)"
A+

cs_zaatout · Answer

Salut 

maitenant je voudrai savoir comment cette synataxe fonctionne

Adodc1.Recordset.Sort = (Right((dop), 2))
Adodc1.Recordset.Sort = (Mid((dop), 3, 4))
Adodc1.Recordset.Sort = (Left((dop), 2))

le programme s'execute mais le trie ne marche pas.

A+

Trie "Sort"

12 réponses

Votre réponse

Discussions similaires