E-commerce WinDev Mobile & MySQL ~ Système d'articles (Ajout des articles)

AUTEUR Code-Codage ~ 27/12/2023
Programmation WINDEV Mobile Débutant

Dans ce tutoriel je vous explique comment publier des articles depuis une application Android Je vous souhaite donc un bon visionnage 

Réponses

Aaron241
Aaron241
Tuesday 30 January 2024, 13:46

Bonjour, puis-je avoir le code de cette partie ? j'ai suivi le tuto mais cela ne fonctionne pas chez moi

Code-Codage
Code-Codage
Tuesday 30 January 2024, 14:41

Code à placer dans le bouton enregistrer du formulaire d'ajout articles

COL_Produits.Nouveau_Produit(SEL_NouveauP, SAI_NmProduit, SEL_Categorie, SAI_Prix, SEL_Devise, SAI_Reduction, IMG_Produit, SAI_Description)

Code-Codage
Code-Codage
Tuesday 30 January 2024, 14:37 

gclDConnect est DBconnect

gsSQLRequet est une chaîne

gbufBufferCapture est un Buffer

gsCaptureImageEncode est une chaîne



PROCÉDURE Nouveau_Produit(TYPE, NOM, CATEGORIE, PRIX, DEVISE, REDUCTIONS, CAPTURE, DESCRIPTION)



//Protégé les caractère spéciaux

gclDConnect:mySQLEscapeString(TYPE)

gclDConnect:mySQLEscapeString(NOM)

gclDConnect:mySQLEscapeString(CATEGORIE)

gclDConnect:mySQLEscapeString(PRIX)

gclDConnect:mySQLEscapeString(DEVISE)

gclDConnect:mySQLEscapeString(REDUCTIONS)

gclDConnect:mySQLEscapeString(DESCRIPTION)



SI NOM = "" ET PRIX = "" ET DESCRIPTION = "" ALORS

	InfoAsynchrone("Veuillez préciser le NOM, PRIX et DESCRIPTION DU PRODUIT")

SINON

	gsSQLRequet = "SELECT * FROM produits WHERE NOM = '" + NOM + "' AND DESCRIPTIONS = '" + DESCRIPTION + "'"

	gclDConnect:MySQLExecPS(gsSQLRequet, 1)

	

	SI PAS gclDConnect:mySQLFetch(1) ALORS

		

		gbufBufferCapture = dSauveImageJPEG(CAPTURE, enMémoire)

		gsCaptureImageEncode = Encode(gbufBufferCapture,encodeBASE64)

		

		gsSQLRequet = "INSERT INTO produits SET TYPE = '" + TYPE + "', NOM = '" + NOM + "', CATEGORIE = '" + CATEGORIE + "', PRIX = '" + PRIX + "', DEVISE = '" + DEVISE + "', REDUCTION = '" + REDUCTIONS + "', CAPTURES = '" + gsCaptureImageEncode + "', DESCRIPTIONS = '" + DESCRIPTION + "', ID_ADMIN = '" + gnIdAdmin + "'"

		gclDConnect:MySQLExecPS(gsSQLRequet, 1)

		InfoAsynchrone("Votre produit est publier")

		

		RAZ()

		ZoneRépétéeAffiche(FI_ADMIN.ZR_ListeArticles, taDébut)

	SINON

		InfoAsynchrone("Le produit existe déjà")

	FIN

FIN