1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
SI saisiereq<>"" ALORS // si du texte a été frappé
SQLExec(saisiereq,"requete4") // on fait exécuter la requête par Mysql
SQLInfoGene() // on fait générer les variables concernant la requête
SQLPremier("requete4") // on se positionne surla première ligne des données retournées par la requête
TANTQUE PAS SQL.EnDehors // Tant quil reste des lignes à lire
i=1
texte="" // Je vais construire dans texte la ligne en concaténant les colonnes
TANTQUE i<=SQL.NbCol // de i au nombre de colonnes
texte=texte+TAB+SQLCol("requete4", i) // Je concatene
i++
FIN
TableAjoute(TABLE1,texte) // Jajoute dans la liste résultat la ligne que je viens de créer
SQLSuivant("requete4") // je passe à la ligne suivante
FIN
SQLFerme("requete4") // je détruis ma requête
SINON
Info("Veuillez saisir une requête")
FIN
SQLDeconnecte() // Je me déconnecte |
Partager