NumConnexion est un entier
NumConnexion = SQLConnecte("********.online.net", "****", "*****", "*****", "MySQL")
SI NumConnexion<>0 ALORS
Libellé1 = "connexion réussie"
ReqSQL est un booléen = SQLExec("select
pseudo, nom from email_tb_membre", "REQ1")
SI ReqSQL=Vrai ALORS
SQLTable("REQ1",Table1)
SQLFerme("REQ1")
SINON
Info("erreur dans la requête")
FIN
SINON
Libellé1 = "connexion échouée"
SQLInfoGene()
Erreur("La connexion à la source de données a échoué."+RC+...
"Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
FIN
SQLDeconnecte()
Partager