Sur une base de donnée, j'exécute la requête suivante :
Code : Tout sélectionner
sub atatata()
'requete qui récupère les quantité commandés de produits finis polonais
BasicLibraries.LoadLibrary("DBTools") 'chargement de la la librairie DBTools (requete)
BasicLibraries.LoadLibrary("MyTools") 'chargement de la la librairie DBTools (requete)
'création de la chaine de requete
req=""
'******** select ********
req=req & "select SEQ_CMD,UM_NUM,TOUR_NUM,DATE_EXPED,CLIENT"',USAGE
req=req & ",CMD_NUM,EXPED_HISTO.REF,REF_MOVEX,CMD_NBUV,PREP_NBUV,CLE_INTERF,NUM_EXPED"
'******** FROM ********
req=req & " from EXPED_HISTO,FICHEPRODUIT"
'******** where ********
req=req & " where EXPED_HISTO.REF=FICHEPRODUIT.REF"' and USAGE='01'"
req=req & " and TO_CHAR(DATE_EXPED, 'YYYYMMDD') = '20080923'"
'******* order by ********
req=req & " order by TOUR_NUM,CMD_NUM;"
'exécution de la requete
fnRequete("logidrive",req,"ora","ora")
'requeteBaseODB("adonix",req,"production","tiger")
end subpar contre, quand je rajoute le champ USAGE (en enlevant '" juste avant) çà plante à tous les coups, que ce soit dans le "select" ou dans le "where".
"USAGE" serait il un mot réservé ?
Merci d'avance


