MS Access

Question

Bonjour Messieurs,
Débutant soyez indulgents. Merci

J'ai une base access avec une table ayant une colonne numérique Reel Double 
avec 4 chiffres après la virgule. 
Les données sont stockées dans la base au format " 24,9999 " (avec virgule).

J'utilise VB2008 Express
Pour faire un tri sur la colonne numérique afin de sélectionner une plage de données entres deux chiffres, c'est a dire entre " 24,9999 " et " 9,9999 ",
j'ai écrit :

Dim X As Double = CDbl(Format(CDbl(24.9999), ("00.0000")))
Dim Y As Double = CDbl(Format(CDbl(9.9999), ("00.0000")))
pour formater le nombre " 24.9999 " et " 9.9999 " au format " 24,9999 " et " "9,9999 " car VB2008 ne reconnait pas le chiffre " 24,9999 " (avec une virgule) comme un numérique voir un Double, mais " 24.9999 " (avec un point) OUI.

Requête
Sql = "SELECT ID, Date_, Code, Article, Total, Sortie, PourCent FROM Partage" _
     + " WHERE PourCent BETWEEN '" & Y & "' AND '" & X & "'" _
     + " ORDER BY PourCent ASC"
  
La réponse est l'exception : "Type de données incompatible dans l'expression du critère."

j'ai compris que le format de stockage n'est pas compatible avec le format de ma requête
j'ai enlevé la conversion, remplacé Double par Decimal puis par Single, la réponse est toujours la même. Quand je met la colonne a TEXT le tri ne marche pas et ne peut être ordonné.

Quel est le bon format? ou comment reformuler ma requête pour réussir le tri?
Merci d'avance
 
--

Whismeril · Answer

Bonjour,

pour commencer, tu peux lire cet article
http://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net

Tu y trouveras des conseils pour entre autre ne pas utliser de mots clé de VB6 dans VB.Net.



Dim X As Double = CDbl(Format(CDbl(24.9999), ("00.0000"))) 
Dim Y As Double = CDbl(Format(CDbl(9.9999), ("00.0000")))

pour formater le nombre " 24.9999 " et " 9.9999 " au format " 24,9999 " et " "9,9999 " car VB2008 ne reconnait pas le chiffre " 24,9999 " (avec une virgule) comme un numérique voir un Double, mais " 24.9999 " (avec un point) OUI.
  

Donc, pour faire des conversions, on utilise la Classe Convert.
Ensuite dans le code, un némrique est toujours écrit avec un point comme séparateur décimal, car en générral en informatique c'est comme ça. Pour autant que je m'en souvienne c'était pareil avec VB6.
Par contre, un texte (string), issu d'un contrôle ou d'un fichier, va subir la politique de conversion que tu lui demandes, si tu ne demandes rien (comme dans ton exemple écrit en VB6....) c'est la politique numérique du PC qui est appliqué, si le symbole décimal est la vrigule alors seuls les textes avec virgules seront convertis, ou l'inverse si le symbole décimal est le point.

Donc pour être capable de te répondre, il faut savoir:

d'ou vient la donnée d'entrée:
contrôle,
fichier,
Base de données, méthode d'extraction
valeur figée dans le code, il me semble assez improbable que dans ton code tu doives juste convertir 24.9999 et 9.99999, mais on ne sait jamais.
ton besoin exact, que veux tu faire de cette virgule? L'afficher quelque part?

 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Whismeril · Answer

Bonjour.

Tout cela n'a aucun rapport avec Access, qui est le titre de ce sujet.
Je t'ai donné un lien, vers un article, que tu n'as forcément pas lu et appliqué puisque tu présentes à nouveau du code vb6.
Enfin je t'ai demandé d'utiliser la coloration syntaxique pour poster du code.

Pas d'efforts de ta part, pas de réponse de la mienne.

Whismeril · Answer

Cela étant dit.
Il existe des versions plus récentes et gratuites de Visual Studio, Express 2010, 2012, Community 2013 et 2015.

Je te conseille de passer à la plus récente compatible avec ton ordinateur.

Option Strict à On, c'est bien, mais il faut aussi enlever la référence à Visual Basic, c'est écrit dans mon article. Et là plus de Round, Format etc....

Pour faire des arrondis et les fonctions mathématiques en général, on utilise la classe Math, si tu ne sais pas ce qu'est une classe, ça n'est pas la peine d'aller plus loin, il faut commencer par les bases.
Dans mon article il y a un lien vers un très bon cours.

En fait j'ai deux textbox ( A et B) qui contiennent des données numériques integer non figées. Lorsque la valeur de B est réduite, un calcul de pourcentage est fait et s'affiche dans un troisième textbox (C) au format double
Non un textebox affiche du texte, pas des nombres, ce texte peut être la représention d'un nombre, mais là encore c'est la base....

Whismeril · Answer

La partie base de données, je ne connais pas donc je ne le traiterai pas

Pour ton calcul
  STotalOut = Convert.ToInt32(Me.MTotalOut.Text)
   STotalIn = Convert.ToInt32(Me.MTotalIn.Text)
 
Ceci est correct.

Par contre cette ligne n'a pas de sens
PrCent = Convert.ToDouble(Round((Convert.ToDouble(STotalOut * 100) / STotalIn), 4))
 
D'abord, round je le répète, c'est du VB6.
Ensuite arrondir un nombre est rarement utile dans les calculs, au moment de l'affichage oui, mais on y reviendra.

Ensuite StotalOut et STotalIn sont déjà des nombres et un Entier en math c'est aussi un Décimal et ben en informatique aussi....

Alors oui STotalOut * 100 / STotalIn retourne un entier et donc tronque le résultat.
Une opération qui ne comprends que des entiers retourne un entier, mais il suffit qu'un seul membre soit un décimal pour que le résultat soit décimal.
Donc ça
STotalOut * 100.0 / STotalIn suffit.

Enfin tu veux afficher le résultat dans un textbox, il faut donc retranscrire en texte.
Tous les objets de VB dérivent de Object et possèdent donc une méthode ToString, qui pour les nombres retourne le texte représentant ce nombre.

MPrCent.Text = PrCent.ToString va donc afficher le nombre dans le textBox avec la politique par défaut:

point ou virgule dépend de la config du pc
nombre de décimales affichées dépend du résultat 50 => 50.0, 1.9999999 affichera la même chose.

Si tu veux appliquer ta propre politique, il suffit d'utiliser une surcharge de ToString, voir ici
https://msdn.microsoft.com/fr-fr/library/kfsatb94(v=vs.110).aspx

MS Access

4 réponses

Votre réponse

Discussions similaires