Discussion :

[cduchesn]

Bonjour,
je me connecte via ADO à une source de données excel (fermée) et j'aimerai à l'aide de requêtes SQL récupérer les données qui m'interaissent pour ensuite les insérer dans une feuille excel ouverte. Ma connexion fonctionne néanmoins mais ma requête de fonctionne pas. L'idée est dans le code, quelle est la bonne syntaxe ?

merci

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
'récupérer le n°centre
Centre = Range("C14").Value
 
 
'récupérer la SI correspondante dans le fichier source 0410 0420 1410
texte_SQL1 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=0410 "
texte_SQL2 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=0420 "
texte_SQL3 = "SELECT FUMTRAN FROM [extraction$] WHERE FNOCI=Centre AND FNOCA=1410 "
 
Set Rst1 = New ADODB.Recordset
Set Rst2 = New ADODB.Recordset
Set Rst3 = New ADODB.Recordset
 
Set Rst1 = Cn.Execute(texte_SQL1)
Set Rst2 = Cn.Execute(texte_SQL2)
Set Rst3 = Cn.Execute(texte_SQL3)
 
Somme = Rst1 + Rst2 + Rst3
 
'Ecrit le résultat de la requête dans la cellule p14
Range("P14").CopyFromRecordset Somme

[random]

le sql serait mieux ainsi

Code sql :

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

1
2
3
4
texte_SQL1 = "SELECT sum(FUMTRAN) as total  FROM [extraction$] WHERE FNOCI= " & Centre " & 
 "AND (FNOCA='0410'  
 or  FNOCA='0420'  
or FNOCA='1410' "

[cduchesn]

Code :

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

1
2
3
4
texte_SQL1 = "SELECT sum(FUMTRAN) as total  FROM [extraction$] WHERE FNOCI= " & Centre " & 
 "AND (FNOCA='0410'  
 OR  FNOCA='0420'  
OR FNOCA='1410' "

J'ai une erreur de syntaxe au niveau & Centre & il me dit attendu fin d'instruction Quelqu'un à une idée ?

Ou puis-je trouver de la doc sur la syntaxe à utiliser dans les requêtes SQL VBA ?

[leDelb]

Bonjour

Code :

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

1
2
3
4
texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & Centre " & 
"AND (FNOCA='0410' 
OR FNOCA='0420' 
OR FNOCA='1410' "

Essaie

Code :

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

1
2
3
4
texte_SQL1 = "SELECT sum(FUMTRAN) as total FROM [extraction$] WHERE FNOCI= " & " Centre " & 
"AND (FNOCA='0410' 
OR FNOCA='0420' 
OR FNOCA='1410' "

Cordialement

[random]

il manque un espace avant le and et si fnoci est texte cela donnerait

Code :

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

1
2
3
4
5
 
texte_SQL1 = "SELECT sum(FUMTRAN) as total  FROM [extraction$] WHERE FNOCI= '" & Centre " & 
 "' AND (FNOCA='0410'  
 OR  FNOCA='0420'  
OR FNOCA='1410' "

il s'agit de placer centre entre ' et '

[cduchesn]

j'ai toujours la même erreur : attendue fin d'instruction à la fin de la ligne centre

Cordialement,

[zyhack]

Bonjour

Simplement en regardant la syntaxe ce ne serait pas

Code :

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

1
2
3
4
texte_SQL1 = "SELECT sum(FUMTRAN) as total  FROM [extraction$] WHERE FNOCI= '" & Centre & _
 "' AND (FNOCA='0410'" & _
 "OR  FNOCA='0420'" & _
"OR FNOCA='1410' "

[cduchesn]

Merci de votre aide ma requête fonctionne le problème se trouvait au niveau de la variable Centre que je devais écrire ' " &Centre& " '. Maintenant j'ai une nouvelle erreur, je veux caster le résultat de mon recordset en un Double pour pouvoir faire des opérations dessus mais j'ai le message d'erreur suivant : INCOMPATIBILITE DE TYPE à cause du CDbl. J'ai essayé de le caster en Integer, rien à faire je n'arrive pas à le caster.

Code :

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

1
2
3
4
Set Rst = Cn.Execute(texte_SQL)
 
 Dim Resultat As Double
 Resultat = CDbl(Rst)

Quelqu'un a une idée ?

Merci d'avance !!

[random]

essaye comme ca

Code :

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

1
2
3
4
5
6
 
Set Rst = Cn.Execute(texte_SQL)
 
 Dim Resultat As variant
 Resultat = rst.[total]
 Resultat=Cdbl(resultat)

[cduchesn]

J'ai essayé mais je n'ai pas accès au total de la requête SQL? VBA ne reconnait pas le variable. Existe-t-il un moyen de caster le resultat d'un recordset en integer ?

Code :

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

1
2
3
4
5
Set Rst = New ADODB.Recordset
        Set Rst = Cn.Execute(texte_SQL)
 
        Dim Resultat As Double
        Resultat = CDbl(Rst)

[AlainTech]

Bonjour,

Il faut dire quel champ de ton RecordSet tu veux utiliser.
Essaie

Code :

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

Resultat = CDbl(Rst("total"))