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
|
SI SQLExec(sRequêteSQL, "REQ_SELECTION") ALORS
// Première ligne
SQLPremier("REQ_SELECTION")
TANTQUE SQL.EnDehors = Faux
// Insérer ici le code de lecture en utilisant la fonction SQLCol
// Exemple : SQLCol("REQ_SELECTION", 1)
savoir est un booléen=False
savoir=TableAjouteLigne(TABLE_RésultatRecherche,SQLCol("REQ_SELECTION",1),SQLCol("REQ_SELECTION",2),SQLCol("REQ_SELECTION",3),SQLCol("REQ_SELECTION",4),SQLCol("REQ_SELECTION",5),SQLCol("REQ_SELECTION",6))//,SQLCol("REQ_SELECTION",7))
SI savoir ALORS
TABLE_RésultatRecherche..Visible=True
SINON
TABLE_RésultatRecherche..Visible=False
FIN
// Ligne suivante
SQLSuivant("REQ_SELECTION")
FIN
SINON
SQLInfoGene("REQ_SELECTION")
Erreur("Erreur lors de l'exécution de la requête", SQL.MesErreur)
FIN
// Fermeture de la requête
SQLFerme("REQ_SELECTION") |
Partager