Je vous propose de découvrir dans ce nouveau chapitre, comment gérer les permissions (Activer et Suspendre le compte)

PROCÉDURE Permissions(DonneIdentifiant)



SQLRequete = "SELECT * FROM admins WHERE ID = '" + ID + "'"

DConnect:MySQLExecPS(SQLRequete, 1)



TANTQUE DConnect:mySQLFetch(1)



	STATUT est un Variant = DConnect:mySQLLitColParNom(1, "STATUT")

	

	SI STATUT = "Suspendu" ALORS

		//Mettre a jour le statut du compte lors qu clique

		SQLRequete = "UPDATE admins SET STATUT = 'Actif' WHERE ID = '" + ID + "'"

		DConnect:MySQLExecPS(SQLRequete, 1)

		InfoAsynchrone("Compte Activé")

		

	SINON

		//Mettre a jour le statut du compte lors qu clique

		SQLRequete	= "UPDATE admins SET STATUT = 'Suspendu' WHERE ID = '" + ID + "'"

		DConnect:MySQLExecPS(SQLRequete, 1)

		InfoAsynchrone("Compte Suspendu")

		

	FIN



FIN