retCode est booléen
custom_ID est monétaire
custom_Name est chaîne
custom_date est chaîne
retCode = fb4wd:mySQLExec("SELECT * FROM
<une table de votre base>", 0)
SI (retCode) ALORS
fb4wd:mySQLPremier(0)
TANTQUE (PAS fb4wd:mySQLEnDehors)
// on stocke chaque colonne dans une variable
custom_ID = fb4wd:mySQLLitCol(0, 1)
custom_Name = fb4wd:mySQLLitCol(0, 1)
custom_date = fb4wd:mySQLLitCol(0, 1)
// on affiche une trace (aide à savoir ce que l'on récupère mais est facultatif)
Trace(custom_ID+" | "+custom_Name+" | "+custom_date)
//on passe au suivant
fb4wd:mySQLSuivant(0)
FIN
SINON
Erreur("Il y a une erreur !!!")
FIN
fb4wd:mySQLFerme(0)
//Remplissage de la table
TableSupprimeTout(Table1)
retCode = fb4wd:mySQLExec("SELECT * FROM
<une table de votre base>", 0)
SI (retCode) ALORS
fb4wd:mySQLTable(0, "Table1")
FIN
fb4wd:mySQLFerme(0)
Partager