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
|
LOCAL
nCnx est un entier
requete est une chaîne
bResultat est un booléen
nCnx = SQLConnecte("windev","Console Root","","FLINK","ODBC")//,"SQLOLEDB")
SQLInfoGene()
requete = "SELECT `Date_1` ,`Temp_Entree` ,`Temp_Chaud` ,`Temp_Sortie` ,`Recircul`,`Num_Phase` ,`Phase` ,`Lait` ,`Jour` ,`Sectime` from Archivage_P1"
bResultat = SQLExec(requete,"maRequete")
SI bResultat=Faux ALORS
Info("La consultation de la base a échouée!!")
FIN
TANTQUE SQLAvance("maRequete")=0
SI tempsDebut..PartieHeure <=SQLLitCol("maRequete",1)<=tempsFin..PartieHeure ALORS
//si SQLLitCol("maRequete",9)=requeteTempsDebut et SQLLitCol("maRequete",1)<conv_tempsdebut ou
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() |
