1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
Sablier()
LOCAL
nCnx est un entier
requete est une chaîne
bResultat est un booléen
nCnx = SQLConnecte("Windev","root","","bdd_arch_p1","ODBC")
SQLInfoGene()
requete = "SELECT `Date_1` ,`Temp_Entree` ,`Temp_Chaud` ,`Temp_Sortie` ,`Recircul`,`Num_phase` ,`Phase` ,`Lait` ,`Jour` ,`Sectime` from arch_p1"
bResultat = SQLExec(requete,"maRequete")
SI bResultat=Faux ALORS
Info("La consultation de la base a échouée!!")
FIN
i est un entier
TANTQUE SQLAvance("maRequete")=0
SI (SQLLitCol("maRequete",9)>="20080418") ET (SQLLitCol("maRequete",9)<="20080419") ALORS
TableAjoute(TABLE_Table1,SQLLitCol("maRequete",1)+TAB+SQLLitCol("maRequete",2)+TAB+SQLLitCol("maRequete",3)+TAB+SQLLitCol("maRequete",4)+TAB+SQLLitCol("maRequete",5)+TAB+SQLLitCol("maRequete",6)+TAB+SQLLitCol("maRequete",7)+TAB+SQLLitCol("maRequete",8)+TAB+SQLLitCol("maRequete",9)+TAB+SQLLitCol("maRequete",10))
FIN
FIN
SQLFerme("maRequete")
SQLDéconnecte()
Sablier(Faux) |
Partager