ResSQL est un booléen
Res est une chaîne
Numconnection est un entier
NomCompletWdd est une chaîne
NomCompletWdd = "\\zadig\FICHIERS\Adm Générale\Informatique\Developpement\ProjetGestionActivite2\Mon_Analyse_1.wd11\AnalyseActivite.wdd"
Numconnection = SQLConnecte(NomCompletWdd,"","","Hyper File")
SI Numconnection <> 0 ALORS
ResSQL = SQLExec("SELECT Semaine.IDSemaine AS IDSemaine, Semaine.DateDebut AS DateDebut, Semaine.DateFin AS DateFin FROM Semaine WHERE Semaine.DateDebut = '20070101'","IDSEMAINE")
SI ResSQL ALORS
LIB_Semaine = SQLCol("IDSEMAINE",1)
Info(COMBO_Date_Début_Semaine.COL_Colonne1)
SQLFerme("IDSEMAINE")
FIN
SINON
Info("probleme de connection a la Base de donnée")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5162&post_id=21303