WDForge.org

Re: Pb avec requete SQL - erreur 70208

Posté par drcharly93 le 2/10/2006 15:09:35

Bonjour,

Pour ajouter du code dans un bloc approprié encadrer celui ci par

Citation :

PROCEDURE affiche(param_année)
vparam est un Variant
Sql est une chaîne
Rs2 est une Source de Données

Sql=[
SELECT SUM(Historique_quo.Produits) AS somme_Produits,SUM(Historique_quo.services) AS somme_services,historique_quo.date as date
FROM Historique_quo
WHERE LEFT(date,4) ={vparam}
]

//GROUP BY LEFT(Historique_quo.Date,4)
vparam=param_année
Rs2.date=vparam

SI PAS HExécuteRequêteSQL(Rs2,hRequêteDéfaut,Sql) ALORS
 Info("erreur"+ HErreur())
FIN

HLitPremier(Rs2)
Trace(Rs2.somme_services+" "+Rs2.somme_produits)

A modifier par

PROCEDURE affiche(param_année)
vparam est un Variant = param_année
Sql est une chaîne
Rs2 est une Source de Données

Sql=[
SELECT SUM(Historique_quo.Produits) AS somme_Produits,SUM(Historique_quo.services) AS somme_services,historique_quo.date as [date]
FROM Historique_quo
WHERE LEFT([date],4) =
]
//Les dates étants au format chaine
//On les encadres avec des quotes
sql += "'" + param_année + "'"

SI PAS HExécuteRequêteSQL(Rs2,hRequêteDéfaut,Sql) ALORS
 Info("erreur"+ HErreurInfo())
 RETOUR
FIN

HLitPremier(Rs2)
Trace(Rs2.somme_services+" "+Rs2.somme_produits)

ATTENTION à l'utilisation de mot clé dans les requetes sql
pour eviter des erreurs encadrer les mots succeptibles par des crochets

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4618&post_id=19164