Discussion :

[skyarnangel]

Bonjour,

Voilà, j'ai creer une requete en SQL puis je l'ai adapter pour qu'excel me creer une requête parametrable suivant le Nom de la personne.

Je sais qu'il y a des expression comme le nombre 30 ici qui doit être prit comme un nombre et non comme une chaine de caractère. C'est pourquoi je concaténe ma requête de cette façon. Cependant je ne connais pas tous les termes à changer pour que ma requête s'execute.

Nom est une variable prenant comme valeur : "Prénom NOM"

Je dois mettre un triple " pour que VB comprenne que je veut qu'il y ai des guillemets dans ma chaine de caractère (les deux premiers) et un troisième pour dire la chaine de caractère se stop ici et on met notre variable.

Code :

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

1
2
3
4
5
6
7
8
9
10
'Création de la requête SQL
rq_sql = "SELECT Sum([poids].[poids]) AS [DC <= 30j] FROM fusion INNER JOIN (poids INNER JOIN transposeur ON poids.[Table des opérateurs] = transposeur.Opérateur) ON fusion.Article = transposeur.[Dés Article Commercial/saisi] WHERE (((fusion.RAI)=""" & Nom & """) AND ((fusion.Terminée) Is Null) AND ((Date()-[fusion].[Date contractuelle])<=" & 30 & "));"
Dim rst As New ADODB.Recordset
    
rst.Open rq_sql, cnx

rst.MoveFirst
dcinf30j = CDbl(rst("DC <= 30j"))
rst.Close
Set rst = Nothing

Mon code se stop au niveau de la ligne en rouge, cependant j'ai collé avant execution la requête dans une cellule, et lorsque je la passe en dur dans access elle s'execute et me donne le bon résultat.

Pouvez vous me dire ce que je doit changer au niveau de mon code VB pour que ma requête SQL fonctionne svp ?

PS : Je pense que la connection avec la base n'est pas à remettre en cause puisque j'ai d'autres requêtes qui fonctionnent

Merci d'avance,
Skyarnangel

[Pierre Fauconnier]

Bonjour

Dans une requête SQL, il ne faut pas doubler le signe ", mais utiliser l'apostrophe

Code sql :

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

WHERE (((fusion.RAI)='" & Nom & "') AND ((fusion.Terminée) Is Null) AND ((Date()-[fusion].[Date contractuelle])<=" & 30 & "));"

[skyarnangel]

Merci, mais ca ne fonctionne toujours pas.

Je ne pense pas que le problème viens du nom puisque je passe dans une autre requête mes paramêtes de cette façon.

[Pierre Fauconnier]

Quel est le message d'erreur?

[pgz]

A mon avis pour les délimiteurs tu peux utiliser l'apostrophe ou les doubles doubles quotes.
QQ points :
- ta connection est ouverte sur quoi, une base Access?
- condition est null : WHERE Isnull(..)
- ...

Conseil:
Commence par une requête plus simple, sur une table, mets au point les liaisons une par une, et complique ensuite. PArce que tant que tu auras 1 erreur tu ne verras pas si tu es proche ou loin du but...

PGZ

[skyarnangel]

La connection est ouverte sur une base access oui
La condition is null fonctionne dans l'autre requête
J'ai fait quelques testes pour delimiter d'ou pouvez provenir l'erreur, et elle proviens au niveau de la jointure.

J'ai fait une jointure plus simple qui passe sous access sans aucun problème

Code :

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

1
2
3
4
SELECT *
FROM poids 
INNER JOIN transposeur 
ON poids.[Table des opérateurs] = transposeur.Opérateur;

Ce qui me liste l'ensemble des opérateurs avec leurs poids

[pgz]

C'est une bonne base puisque tu tiens une requête qui marche. Etape suivante, ajoute 1 liaison.

PGZ

[skyarnangel]

Je me suis mal exprimmé, la requête ci dessus ne fonctionne pas.

Mais d'autres requetes comme celle là fonctionnent

Code sql :

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

1
2
3
SELECT Count(*) AS [DC <= 30j]
FROM fusion
WHERE fusion.RAI=""" & nom & """ And fusion.Terminée Is Null And (Date()-fusion.[Date contractuelle])<=" & 30 & ";

[skyarnangel]

Quel tache suis je !

Le problème viens que je travaille avec deux base de donnée access (pour des raisons de temps d'accés) et la base que j'ai sur mon bureau est à jour alors que je fait des requêtes sur une base qui ne l'était pas (dans mon cas, la table poids n'existe que d'un coté)

Merci de votre aide