Discussion :

[IfaEndura]

Bonjour,

Je travaille sous Access 2010.
J'ai une table clients dans laquelle se trouvent des codes postaux en type varchar. Certains codes contiennent des lettres ou des caractères comme / ou -. Je souhaite faire une requête SQL pour extraire de cette colonne les codes postaux qui ne comprennent que des chiffres.

J'ai essayé

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM clients
WHERE CP LIKE '[0-9]';

qui ne renvoie rien

ou encore

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM DBO_FIU_USAGERS
WHERE CP NOT LIKE '^[0-9]';

mais qui du coup me renvoie aussi certains codes avec au moins une lettre.

Merci d'avance pour votre aide !

[hyperion13]

Salut
En l'état WHERE CP LIKE '[0-9]' ne vérifie que le 1er caractère de votre chaine.
Le plus simple
WHERE CP=Val([CP]);

[IfaEndura]

Merci pour cette réponse !

Malheureusement ça ne marche pas, ça me renvoie comme erreur "type de données incompatible dans l'expression du critères" car c'est du VB je suppose ?

Mais j'en conclus que je peux faire WHERE CP LIKE '[0-9][0-9][0-9][0-9][0-9]' ?!

[hyperion13]

Dans ce cas en vba
WHERE IsNumeric([CP])=True (ou WHERE EstNum([CP])=Vrai)

[IfaEndura]

Justement je ne connais pas du tout VBA, je voulais le faire simplement en requête SQL sous Access

[hyperion13]

Euh... SQLPro, Transact-SQL ou SQL sous Access
(ou WHERE EstNum([CP])=Vrai) fonctionne parfaitement

[IfaEndura]

Quand je fais

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM clients
WHERE EstNum(CP)=Vrai;

J'obtiens le message d'erreur suivant : "Fonction "EstNum" non définie dans l'expression.

[hyperion13]

Alors essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM clients
WHERE EstNum([CP])=-1;

[IfaEndura]

Ça ne marche pas non plus, avec le même message d'erreur

[hyperion13]

Le Champ [CP] est bien de type TexteCourt ou TextLong ?
Une capture d'écran de votre tbl en mode feuille de données et de la req en mode création

[IfaEndura]

En fait, j'attaque sous access une base SQL Server via une connexion ODBC, le champ CP dans la base SQL est de type varchar(10)

[hyperion13]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM CLIENTS
WHERE CP NOT LIKE '%[^0-9]%'

Et ça aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM CLIENTS
WHERE IsNumeric(CP)=1

[IfaEndura]

Etrange, le premier code me renvoie aussi des enregistrements avec des lettres et le deuxième s’exécute mais ne renvoie aucun enregistrement.

[IfaEndura]

Avec =-1 cela fonctionne !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM CLIENTS
WHERE IsNumeric(CP)=-1;

Merci beaucoup pour votre aide !

[Invité]

Bonsoir,
Pas testé !

https://stackoverflow.com/questions/...-like-vs-regex

[marot_r]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT CP
FROM CLIENTS
WHERE IsNumeric(CP)=True;

Est plus clair et IsNumeric() n'est pas fiable a 100% pour ce genre de test. Par exemple "4D123" est considere comme numerique de meme "-1".
Donc c'est "est-ce que je peux transformer la valeur en nombre" et non "est-ce que la valeur est composee uniquement de chiffre".
Pour un test fiable sur une chaine de longeur connue tu peux en effet utiliser like "[0-9][0-9][0-9][0-9][0-9]" avec autant [0-9] que de chiffres ou les expressions reguliere comme suggere par dysorthographie.

Une autre possibilite est la petite function suivante :

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
24
public function EstChiffreSeulement(prmTexte as variant) as Boolean
   dim result as Boolean
 
   if Nz(prmTexte,"")<>"" then
           result=True
 
           dim c as string
 
           dim i as long:for I=1 to len(prmTexte)
                c=mid(prmTexte,i,1)
 
                if c < "0" or c > "9" then
                   result=false
                   exit for
               end if
 
          next i
 
      else
         result=false
   end if
 
   EstChiffreSeulement=result
end function

Elle va tester chaque caractere pour savoir si c'est un chiffre et retourner faux au premier qui ne l'est pas.

Enfin si tu as une courte liste de caracteres d'exceptions connus tu peux le faire indirectement en faisant

• Champ calcule : Replace(Replace([TonChamp]; "-"; ""); "/"; "").
  Critere : <> [TonChamp].
• Champ TonChamp
  Critere is Not Null and <> ""

Evidement avec plus que 3 ou 4 cela devient rapidement illisible.

A+

[IfaEndura]

Merci beaucoup pour votre aide, je devrais m'en sortir avec ça !