Discussion :

[amazircool]

Salut mes frères
Je suis entrain de terminer un projet (gestion des locations voiture).
J’ai un module pour afficher les statistiques financières (la caisse).
C’est un module pour afficher le chiffre d’affaire entre deux date définir.
La requête qui exécute est :

Code :

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

1
2
3
4
5
6
7
Private Sub Command9_Click()
Set rs = New ADODB.Recordset
sql = "SELECT Sum(factureClient.mentantfacture) AS SommeDementantfacture From factureClient HAVING (((factureClient.dateFacture) Between #" & txtDateOne.Text & "# And #" & txtDeteTow.Text & "#));"
rs.Open sql, "dsn=OdbcLocation"
lblCAdeuxDate.Caption = rs(0)
rs.Close
End Sub

Mais le problème que la somme des chiffres d’affaires entre les 2 dates défirent de la somme
Des chiffres affaire réel.
Merci

Balises Code ajoutées par zazaraignée

[paradeofphp]

salut,
tu dois ajouter la clause Group by dans ta requete avant Having et tu choisi un champ de ta table. De préférence utilise le numéro de client. Tu mets ce champs dans le select sinon ca marche pas.

[amazircool]

Merci frère, mais le critère (prédicat) de recherche c’est les 2 dates.
explication:
On a plusieurs facturas alors on veux savoir quelles la somme des montants des facturas pendant les 2 dates.
Par exemple entre le 01/02/2005 et 06/08/2005 la somme des montants facturas est 23500 $.
(Ici on ignore le client).

==========
Ok je croix il y a un problème au niveau de la lecteur des formats « date »
Car quand je tape 30/01/2005 et 15//3/2005 sa marche bien car bien sur le 30 signifier
Le jour et le 3 le mois mars, mais quand je tape 04/03/2005 sa marche pas il fait pas la déférence pas entre les jours et le mois

merci

[paradeofphp]

salut,
d'accord je vois. mais est ce ke ta rajouté le group by? group par date si tu veux.

[amazircool]

oui meme si sa marche pas

[sovo]

je presume que ta base de donnees est access. Si c'est le cas alors voici un code qui devrais t'aider

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command9_Click()
Set rs = New ADODB.Recordset
sql = "SELECT Sum(factureClient.mentantfacture) AS SommeDementantfacture From factureClient HAVING (((factureClient.dateFacture) Between #" & _
 format(txtDateOne.Text,"mm/dd/yyyy") & _
"# And #" & format(txtDeteTow.Text,,"mm/dd/yyyy")  & "#));"
rs.Open sql, "dsn=OdbcLocation"
lblCAdeuxDate.Caption = rs(0)
rs.Close
End Sub

[amazircool]

Merci sovo mais toujours un problème de compatibilité
==================Message erreur===========

Erreur d’exécution ‘13’
Type incompatible

========================================

[jacma]

Bonsoir

Le code suivant affiche dans txtTotal le total des montant des factures entre les dates saisies dans txtDebut et txtFin. Et, cerise sur le gateau, ce total est bon . Remarques dans la chaîne SQL la fonction DateValue.

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
25
26
 
Private Sub Command1_Click()
 
  Dim strConnex As String
  Dim SQL As String
  Dim DateDeb As Date
  Dim DateFin As Date
 
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
 
  strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Developpez.com\Data\Facturation.mdb"
  cn.Open strConnex
 
  DateDeb = txtDateDeb
  DateFin = txtDateFin
 
  SQL = "SELECT SUM(TotalFact) AS Expr1 " & _
        "From EnTetesFact WHERE DateValue(DateFact) BETWEEN '" & DateDeb & "' AND '" & DateFin & "'"
 
  rs.CursorLocation = adUseClient
  rs.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
 
  txtTotal = rs!Expr1
 
End Sub

[amazircool]

Merci frère de me expliquer les deux ligne

Code :

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

1
2
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText

Balises code ajoutées encore une fois par zazaraignée...

[amazircool]

Avec le nom de dieu j arrive pas a comprendre se code là.
Merci frère jacma sa marche bien ton code mais seulement pour certain dates, mais avec des autres dates il me affiche pas la somme correcte wawwwwwwww

[jacma]

Bonjour

La propriété CursorLocation définit ou renvoit la position de la bibliothèque de curseurs. La valeur adUseClient indique l'utilisation d'une bibliothèque de curseurs locale. Ces curseurs permettent souvent des fonctions non accessible avec un curseur externe.

Pour rs.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText, on ouvre un recordset avec la chaîne SQL, la connexion cn. La propriété adOpenDynamic définit le type de curseur, le dit curseur permettant ainsi ajouts, modifications et suppressions tous les déplacements. La propriété adLockOptimistic concerne le vérouillage. Cette propriété permet de ne vérouiller l'accès d'un enregistrement que lors d'un appel update.

Mais tu devrais regarder de plus près MSDN où tout ceci est expliqué.

Quant à ton problème de dates, quelle sont les dates qui "fonctionnent" et celles qui ne fonctionnent pas?

[amazircool]

Salut :
entre 10/01/2005 et 11/01/2005 sa marche Bien toujours.
Mais entre le 06/08/2005 et 28/08/2005 sa marche pas .

[Theocourant]

Salut :
entre 10/01/2005 et 11/01/2005 sa marche Bien toujours.
Mais entre le 06/08/2005 et 28/08/2005 sa marche pas .

Salut,

Tu devrais contrôler le format de tes dates car il est possible qu'au niveau de ton programme, il se passe la chose suivante:

10/01/2005 => 1er octobre 2005
11/01/2005 => 1er novembre 2005.

Tu en déduiras donc à quel niveau cela peut poser problème ...

+

Théo

[jacma]

Bonjour

J'ai testé sur tes dates, et tout est OK. Est-ce que tu as utilisé le code tel quel, avec pour la saise des TextBox sans précision de format. La fonction DateValue est censée résoudre ces problèmes de date selon le contexte régionnal.

Comment est paramétré le champ Date de ta base? En ce qui me concerne: type de donnée Date/Heure et format Date abrégé. Sait-on jamais...

Je t'invite également à consulter la page "Requêtes SQL liées aux paramètres régionaux et portant sur des dates" de MSDN. Tu y trouvera sans doute des informations intéressantes.

[amazircool]

Salut,

Tu devrais contrôler le format de tes dates car il est possible qu'au niveau de ton programme, il se passe la chose suivante:

10/01/2005 => 1er octobre 2005
11/01/2005 => 1er novembre 2005.

Tu en déduiras donc à quel niveau cela peut poser problème ...
+
Théo

Theocourant non je croix pas.
===========
Oui frère jacma j’utilisé le code tel quel sans précision de format
Les champs de ma base sont paramétré comme « Date, abrégé »

"Requêtes SQL liées aux paramètres régionaux et portant sur des dates" il est ou’ sa ?

[jacma]

"Requêtes SQL liées aux paramètres régionaux et portant sur des dates" il est ou’ sa ?

Dans MSDN, c'est le titre. Saisi le comme tel avec une recherche sur les titres. Tu peux également rechercher sur le terme "DateValue" et tu trouveras ce chapitre parmis les résultats.

[amazircool]

Salut. Je suis en cors déborder.
Quand je tape la date 10/01/2005 (le 10 janvier) il m’afficher le chiffre d’affaire de 01/10/2005 (le premier octobre).
Après g assai de utiliser la format suivant :
====================================
SQL = "SELECT Sum(factureClient.mentantfacture) AS SommeDementantfacture,factureClient.dateFacture From factureClient GROUP BY factureClient.dateFacture HAVING factureClient.dateFacture=#" & Format(VarDateCaisse, "dd/mm/yyyy") & "#"
=====================================
Même problème.
Le générateur access ne comprendre pas je croix que les format date américain : mois/jour/année, si non sur le formulaire « chiffre d’affaire » je dois forcer la saisie avec une format américain.
Merci mes frères

[sovo]

cecomme je te l'ai dit dans mon precedent post tu doit faire une conversion de tes dates dans la requette.

Dans ta base tes donnes sont (je suppose) dd/mm/yyyy
Dans ton appli tes donnes sont (je suppose) dd/mm/yyyy

ne change donc rien mais ecris ta requette comme ceci :

Code :

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

1
2
3
4
SQL = "SELECT Sum(factureClient.mentantfacture) AS " & _ 
"SommeDementantfacture,factureClient.dateFacture From factureClient " & _
"GROUP BY factureClient.dateFacture HAVING factureClient.dateFacture=#" & _ 
Format(VarDateCaisse, "mm/dd/yyyy") & "#"

chez moi c'est comme ca que je fait et ca marche.

[amazircool]

Tout a fait raison frère sovo merci et c’est bien marche maintenant
Chapeau frère et merci pour toi jacma

[Theocourant]

Salut. Je suis en cors déborder.
Quand je tape la date 10/01/2005 (le 10 janvier) il m’afficher le chiffre d’affaire de 01/10/2005 (le premier octobre).

Donc j'avais raison ...