Pb dans requete SQL et vb6

Version imprimable

Bonjour,

Je fais une requete SQL dans laquelle je voulais reformater le prix_ttc en mode monetaire avec 2 chiffres apres la virgule
Code:

1 2 3 requete_stats = "SELECT mouvement.date_mouvement, mouvement.code_produit, mouvement.Libelle_produit, mouvement.categorie, mouvement.quantite, format((mouvement.prix_ttc),"" # ##0,00 €""), mouvement.code_utilisateur, mouvement.groupe, mouvement.service, mouvement.Nom_fournisseur, Year([date_mouvement]) AS annee_mvt From mouvement WHERE (((mouvement.date_mouvement)>=#" & Format(Me.CB_DTPicker1.Value, "YYYY/MM/DD") & "#" requete_stats = requete_stats & ") AND ((mouvement.date_mouvement)<=#" & Format(Me.CB_DTPicker2.Value, "YYYY/MM/DD") & "#) AND ((mouvement.code_produit) LIKE '" & tmp_CB_code_produit & "') AND ((mouvement.code_utilisateur) LIKE '" & Tmp_CB_Nom & "') AND ((mouvement.categorie) LIKE '" & Tmp_CB_categorie & "') AND ((Year([date_mouvement])) LIKE '" & Tmp_CB_annee & "') AND ((mouvement.groupe) LIKE '" & Tmp_CB_groupe & "') AND ((mouvement.service) LIKE '" & Tmp_CB_service & "'))"
et là erreur :
rsMaDb.Open requete_stats, cnMaDb, adOpenKeyset, adLockBatchOptimistic

'trop peu de parametre, 1 attendu'

je ne vois pas d'ou ça vient

Merci a tous :bug:

ma requete marche très bien sous access

marche très bien sous VB si l'enlève l'option de format de ma requete SQL, mais je me trouve avec 4 chiffres apres la virgule.

09/07/2008, 13h12
Pierre Fauconnier

Bonjour

Tu ne peux pas utiliser Format(...) pour passer une valeur numérique à un champ de la table, en plus du fait que ce n'est pas utile.

Si tu veux passer une valeur décimale arrondie au centième, tu dois utiliser Round(), mais cela n'a pas de sens de vouloir formater en monétaire.

C'est à l'affichage des données que tu vas formater, jamais à la sauvegarde de la valeur numérique
09/07/2008, 13h46
dominux80

Merci déjà de ta piste, mais ma requète remplis un MSHFlexGrid donc je ne vois pas comment faire, il faudrai que je fasse un format juste avant le refresh ?

et une piste pour le format

Code:

rsMaDb!prix_ttc = format((prix_ttc)," # ##0,00 €")

suis-je dans le bon ?

merci encore

Je sais pas comment tu arrives a t'y retrouver dans des requetes aussi mal présentées

On peut utiliser (si tu utilise le moteur jet) l'instruction format dans une requete Sql, mais attention a l'emploi des guillemets, la c'est vb qui rique de na pas bien comprrendre. Utilise plutot les quotes simples dans la requete et les doubles quotes tu les reserve à Vb

D'autre part, dans la base sql le format des dates est américain mm/dd/yyyy

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
requete_stats = "SELECT  " & _
                  "date_mouvement, " & _
                  "code_produit, " & _
                  "Libelle_produit, " & _
                  "categorie, " & _
                  "quantite, " & _
                  "format(prix_ttc,' # ##0,00 €'), " & _
                  "code_utilisateur, " & _
                  "groupe, " & _
                  "service, " & _
                  "Nom_fournisseur, " & _
                  "Year([date_mouvement]) AS annee_mvt " & _
              "FROM mouvement " & _
              "WHERE " & _
                "(((date_mouvement)>=#" & Format(Me.CB_DTPicker1.Value, "MM/DD/YYYY") & "#"

09/07/2008, 14h32
ThierryAIM

Citation:

Envoyé par Delbeke

On peut utiliser (si tu utilise le moteur jet) l'instruction format dans une requete Sql, ...

Dans la clause SELECT ???

pour le reste je suis d'accord ;)
09/07/2008, 14h51
Pierre Fauconnier

J'ai des doutes pour le Format dans du sql (et même si cela fonctionne, je préfère concaténer la chaîne avec le format à l'extérieur que de l'utiliser à l'intérieur), cela permet une meilleure vérification de la chaîne sql...
Mais de toute façon, il ne sert à rien d'utiliser Format avec un champ numérique. La façon dont est stockée la valeur dans la table n'est en rien influencée par la fonction Format...

Pour ce qui est des dates, je préfère personnellement passer les dates en tant que variables de type long, cela me pose bien moins de problèmes de conversion.

Merci pour ta réponse Delbeke,

j'ai appris plusieurs choses d'un coup je ne savais pas le '" & _" pour aller a la ligne. et le formatage est bon sauf que c'est '# ##0.00' c'est un point pas une virgule.

Et ma requéte était plus longue, ça donnait ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'requete_stats = "SELECT  " & _
    '              "date_mouvement, " & _
    '              "code_produit, " & _
    '              "Libelle_produit, " & _
    '              "categorie, " & _
    '              "quantite, " & _
    '              "format(prix_ttc,' # ##0,00 €'), " & _
    '              "code_utilisateur, " & _
    '              "groupe, " & _
    '              "service, " & _
    '              "Nom_fournisseur, " & _
    '              "Year([date_mouvement]) AS annee_mvt " & _
    '          "FROM mouvement " & _
    '          "WHERE " & _
    '            "(((mouvement.date_mouvement)>=#" & Format(Me.CB_DTPicker1.Value, "YYYY/MM/DD") & "#" & _
    '            "AND ((mouvement.date_mouvement)<=#" & Format(Me.CB_DTPicker2.Value, "YYYY/MM/DD") & "#) " & _
    '            "AND ((mouvement.code_produit) LIKE '" & tmp_CB_code_produit & "') " & _
    '            "AND ((mouvement.code_utilisateur) LIKE '" & Tmp_CB_Nom & "') " & _
    '            "AND ((mouvement.categorie) LIKE '" & Tmp_CB_categorie & "') " & _
    '            "AND ((Year([date_mouvement]) LIKE '" & Tmp_CB_annee & "') " & _
    '            "AND ((mouvement.groupe) LIKE '" & Tmp_CB_groupe & "') " & _
    '            "AND ((mouvement.service) LIKE '" & Tmp_CB_service & "'))"

mais merci beaucoup 8O

09/07/2008, 18h21
Delbeke

Citation:

Envoyé par ThierryAIM

Dans la clause SELECT ???

pour le reste je suis d'accord ;)

Sisi, Avec le moteur jet, on peut utiliser toutes les fonctions contenues dans la bibliothèque VBA