Problème de calcul dans une requête SQL

Version imprimable

Bonjour,

J'ai un soucis dans une requête SQL que j'ai inséré dans mon fichier Excel. Cette requête a pour but d'aller rechercher des informations dans 3 tables différentes et de faire un filtre sur différents champs. Selon le filtre, un calcul doit être effectué.

Voici le code
Code:

1 2 3 4 5 6 7 8 9 'Commissions Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom, " & _ " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _ " (IIF(dt.dl_tva_inc<>1, dt.dl_montant, dt.dl_montant - dt.dl_tva_mnt)) as Mnt" & _ " FROM ((adresses AS A " & _ " INNER JOIN document As D ON A.ad_numero = D.do_adr1 )" & _ " INNER JOIN detail As DT ON D.do_numero= dt.dl_numero )" & _ " WHERE ((D.do_type=17) OR (D.do_type=20)) AND (D.do_paye<>1) AND (D.do_period<>1) AND (dt.dl_compte Like '3000.%')" & _ " ORDER BY dt.dl_tva_inc " & _
Cependant, le calcul ne s'effectue pas et la colonne MNT reste toujours vide. Pouvez-vous m'aider ?

Merci d'avance pour votre aide

26/08/2015, 09h20
Invité

Bonjour,
tu te connecte sur quelle type de base de données, Access,Sql serveur ,Oracle?

tu fais ta connexion Via ADO ou DAO?

dt.dl_compte est un champ numérique ou texte?

Je me connecte via une liaison ado et je fais une connexion sur des fichiers DBF
Code:

1 2 3 4 5 6 Public Sub conNect() Set cN = New ADODB.Connection dbPath = Path cN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=d:\2015;Exclusive=No;" cN.Open End Sub
dt.dl_compte est un champ texte.

Merci pour ton aide

je ne voie rien qui cloche dans ta requête!
enlève quand c'est possible les parenthèse inutile pour la lisibilités!

Code:

1
2
3
4
5
6
7
8
Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " IIF(dt.dl_tva_inc<>1, dt.dl_montant, dt.dl_montant - dt.dl_tva_mnt) as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

dégraisse ta close Where pour voir ou ça cloche:

Code:

1
2
3
4
5
6
7
8
Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " IIF(dt.dl_tva_inc<>1, dt.dl_montant, dt.dl_montant - dt.dl_tva_mnt) as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND dt.dl_compte Like '3000.%'"   & _
            " ORDER BY dt.dl_tva_inc "

tu dis que colonne MNT reste toujours vide! test avec un left join!

Code:

1
2
 " LEFT JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " LEFT JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _

26/08/2015, 11h01
katiar

J'ai fait ce que tu m'as dit, mais aucun changement.
Ce calcul dt.dl_montant - dt.dl_tva_mnt) as Mnt ne se fait pas. la colonne est vide.

et comme ça! (on teste le IIF)

Code:

1
2
3
4
5
6
7
8
Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " dt.dl_montant - dt.dl_tva_mnt as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Code:

1
2
3
4
5
6
7
8
Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " IIF(dt.dl_tva_inc<>1, 'Y', 'N') as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Code:

1
2
3
4
5
6
7
8
Commissions = "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " dt.dl_tva_in, dt.dl_montant, dt.dl_tva_mnt as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Ci-dessous les résultats pour les 3 requêtes. Colonne mnt vide à chaque fois..

Code:

1
2
3
4
5
6
7
8
 "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " IIF(dt.dl_tva_inc<>1, 'Y', 'N') as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Colonne MNT vide

Code:

1
2
3
4
5
6
7
8
 "SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " IIF(dt.dl_tva_inc<>1, 'Y', 'N') as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Colonne MNT vide

Code:

1
2
3
4
5
6
7
8
"SELECT A.ad_societe as Société, A.ad_nom as Nom, A.ad_prenom as Prénom,  " & _
            " D.do_nodoc as Numéro, D.do_type as Type, D.do_date1 as Date, dt.dl_compte, " & _
            " dt.dl_tva_in, dt.dl_montant, dt.dl_tva_mnt as Mnt" & _
            " FROM ((adresses AS A " & _
            " INNER JOIN  document As D ON A.ad_numero = D.do_adr1 )" & _
            " INNER JOIN  detail As DT ON D.do_numero= dt.dl_numero )" & _
            " WHERE (D.do_type=17 OR D.do_type=20) AND D.do_paye<>1 AND D.do_period<>1 AND dt.dl_compte Like '3000.%'"  & _
            " ORDER BY dt.dl_tva_inc "

Colonne MNT vide

26/08/2015, 11h31
Invité

il faut cherche là ou ça va pas, dans les close Where, les valeurs, les inner jion!

Code:

Commissions = "SELECT * FROM adresses AS A "

Code:

Commissions = "SELECT * document As D WHERE (D.do_type=17 OR D.do_type=20) "

Code:

Commissions = "SELECT * detail As DT WHERE dt.dl_compte Like '3000.%'"

tout ça fonctionne, j'ai déjà testé..

J'ai simplifié au max et si je laisse que ça :
Code:

1 2 3 4 "SELECT adresses.ad_societe, Document.do_montant, Document.do_pmt, Document.do_montant - Document.do_pmt as Solde" & _ " FROM adresses, document" & _ " WHERE Adresses.ad_numero = Document.do_adr1"
la colonne ad_societe s'affiche avec les valeurs justes
la colonne do_montant s'affiche avec les valeurs justes
la colonne do_pmt s'affiche avec les valeurs justes
la colonne solde s'affiche mais reste vide.

les deux champs sont numériques.. je sèche complètement.
Je vais continuer de faire des essais.

fais ce test!

Code:

1
2
3
"SELECT adresses.ad_societe, Document.do_montant, Document.do_pmt, Document.do_montant + Document.do_pmt as Solde" & _
            " FROM adresses, document" & _
            " WHERE Adresses.ad_numero = Document.do_adr1"

26/08/2015, 12h06
katiar

Merci pour ton aide, mais le résultat est toujours le même...

Code:

1
2
3
"SELECT adresses.ad_societe, Document.do_montant, Document.do_pmt, val(Document.do_montant) - val(Document.do_pmt) as Solde" & _
            " FROM adresses, document" & _
            " WHERE Adresses.ad_numero = Document.do_adr1"

Code:

1
2
3
"SELECT adresses.ad_societe, Document.do_montant, Document.do_pmt, Cdbl(Document.do_montant) - cdbl(Document.do_pmt) as Solde" & _
            " FROM adresses, document" & _
            " WHERE Adresses.ad_numero = Document.do_adr1"

1 pièce(s) jointe(s)

Dans les 2 cas, une erreur s'affiche

"Erreur Automation"

En pièce jointe, le fichier Document.dbf

Pièce jointe 186404

J'exécute aussi ce code après la requête, est-ce que pourrait avoir un lien ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Feuil 1 - Affiche dans la feuille 1 la liste des postes ouverts débiteurs
Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN
nb_col = rs.Fields.Count
For j = 0 To nb_col - 1
    Feuil1.Cells(1, j + 1).Value = rs.Fields(j).Name
Next j
rs.MoveFirst
i = 2
While Not rs.EOF
    For j = 1 To nb_col - 1
        Feuil1.Cells(i, j) = rs(j - 1)
    Next
    i = i + 1
   rs.MoveNext
Wend

Code:

1
2
3
4
5
6
7
'Feuil 1 - Affiche dans la feuille 1 la liste des postes ouverts débiteurs
Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN
For j = 0 To rs.Fields.Count - 1
   Sheets("Feuil1").range("A1").Offset(0,j).Value = rs.Fields(j).Name
Next j
Sheets("Feuil1").range("A2").CopyFromRecordset rs

mais je ne voie pas de corrélation avec ton problème! et pour l’instant je sèche!

Alors,

Si j'inverse l'ordre des colonnes dans le select. Le calcul se fait ! mais du coup la dernière colonne reste vide. Donc dans ce cas là do_montant

Code:

1
2
3
Debiteurs_ouverts = "SELECT adresses.ad_societe, Document.do_montant + Document.do_pmt as Solde, Document.do_montant" & _
            " FROM adresses, document" & _
            " WHERE Adresses.ad_numero = Document.do_adr1"

Donc j'ai bien l'impression que le problème vient de ce code ? Qu'en penses-tu ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Feuil 1 - Affiche dans la feuille 1 la liste des postes ouverts débiteurs
Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN
nb_col = rs.Fields.Count
For j = 0 To nb_col - 1
    Feuil1.Cells(1, j + 1).Value = rs.Fields(j).Name
Next j
rs.MoveFirst
i = 2
While Not rs.EOF
    For j = 1 To nb_col - 1
        Feuil1.Cells(i, j) = rs(j - 1)
    Next
    i = i + 1
   rs.MoveNext
Wend

26/08/2015, 16h06
Invité

reprend le code que je viens de te donner poste #14!
26/08/2015, 16h12
katiar

cette erreur s'affiche :

Erreur d'exécution (9)
L'indice n'appartient pas à la sélection

Code:

1
2
3
4
5
6
7
'Feuil 1 - Affiche dans la feuille 1 la liste des postes ouverts débiteurs
Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN
For j = 0 To rs.Fields.Count - 1
   Feuil1.range("A1").Offset(0,j).Value = rs.Fields(j).Name
Next j
Feuil1.range("A2").CopyFromRecordset rs

dans mon Code précédant il fallait mettre le nom de la feuille telle qu'elle est vue dans Excel pas dans VBA!

J'ai mis ceci et tout est OK

Code:

1
2
3
4
5
6
Set rs = New ADODB.Recordset
rs.Open Debiteurs_ouverts, cN
For j = 0 To rs.Fields.Count - 1
    Feuil1.Range("A1").Offset(0, j).Value = rs.Fields(j).Name
Next j
Feuil1.Range("A2").CopyFromRecordset rs

Un GRAND merci pour ton aide
:merci::merci: