1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| SQLExec(" select PaysId, codepays, nompays, date_format(saisirle, '"+"%d%m%Y%T"+"') as saisirle from pays2","REQ1")
// Récupérer la requête ligne à ligne
TANTQUE SQLFetch("REQ1") = 0
// Il y a encore une ligne
i++
// Récupérer les données
id est un entier = SQLLitCol("REQ1",1)
code est une chaîne = SQLLitCol("REQ1", 2)
nom est une chaîne = SQLLitCol("REQ1",3)
sSaisirle est une chaîne= SQLLitCol("REQ1",4)
//dSaisirle est une date=ChaîneVersDate(milieu(sSaisirle,1,8),"JJ/MM/AAAA")
//hDath est une heure=Remplace(milieu(sSaisirle,9,8)," ",":")
//dhMadate est une dateheure=dSaisirle+" "+hDath
//Remplac
TableAjouteLigne(TABLE_pays,id, code,nom,sSaisirle)
FIN
SQLFerme("REQ1") |
Partager