WD Aide pour la connexion de windev et windev mobile a une base de données MySQL.

// CRUD SANS PASSER PAR PHP4WX

// table user = ID,LOGIN,PASSE,STATUT ------> ID INT() AutoIncrementé ----->login et Passe VARCHAR et statut int(1).

//Proc_CNX() est une procedure que tu pourras la mettre en global et supprimer celle privée en debut de code du bouton

PROCÉDURE Proc_CNX()

SI SQLConnecte("localhost","Login","MotDePasse","BaseDeDonnee","MySQL") ALORS

ToastAffiche(gPoliceGras() + gPolice("Batang") + gPoliceTaille(18) + ...
gStylo(Blanc) + "Connecté BaseDeDOnnee", ...
toastCourt, cvBas, chDroite, RougeFoncé)

SINON
Erreur(ErreurInfo(errComplet))
FIN


//affichage de la table user : table des utilisateurs
// code du bouton BTN_Rechercher

Proc_CNX()

SI SQLExec("select * from user where LOGIN like '"+SAI_recherche+"%'","recherche") ALORS
TableSupprimeTout(TABLE)
SQLPremier("recherche")
TANTQUE PAS SQL.EnDehors
TableAjouteLigne(TABLE,SQLCol("recherche",1),SQLCol("recherche",2),SQLCol("recherche",,SQLCol("recherche",4))
SQLSuivant("recherche")
FIN
SINON
Erreur("erreur")
FIN

/// BTN_ajouter un utilisateur

Proc_CNX()
SI SAI_login<>"" ALORS

SI SQLExec("INSERT INTO user (ID,LOGIN,PASSE,STATUT) VALUES ('"+0+"','"+SAI_login+"','"+SAI_passe+"','"+SAI_statut+"')","insert") ALORS //juste

Info("Ajouté")
ExécuteTraitement("BTN_Rechercher",trtClic)

SINON
Erreur("Erreur1")


FIN
SINON

FIN

////////////////Modifier un utilisateur

SI SQLExec("UPDATE user SET LOGIN='"+SAI_login+"',PASSE='"+SAI_passe+"',STATUT='"+SAI_statut+"' WHERE id="+SAI_id+"","update") ALORS


Info("Modifié")

ExécuteTraitement("BTN_Rechercher_gcd20",trtClic) // // pour réaffichage de la table

SINON
Erreur("Erreur1")


FIN


////////////////////Supprimer un utilisateur


SI Dialogue("Voulez-vous supprimer l'enregistrement en cours ?") ALORS

// &Supprimer

Proc_CNX()

SI Dialogue("Voulez-vous supprimer l'enregistrement en cours ?") ALORS
// &Supprimer

SI SQLExec("DELETE FROM user WHERE id="+SAI_id2+"","DELETE") ALORS // a revoir faux


Info("Suppression effectuée avec succès")
ExécuteTraitement("BTN_Rechercher",trtClic) // pour réaffichage de la table
SINON
Erreur("Erreur")


FIN
// &Ne pas supprimer
FIN



/////////////////////////////en Php4WX // DERNIERE VERSION

// à ne pas oublier de configurer connect.php pour la connexion

//INITIALISATION DU PROJET

MonAcces est un c_Php4WX

MonAcces:TypeBase = "PDOMySQL"
MonAcces:CleCryptage = "CLE CRYPTAGE " // CLE DE CRYPTAGE DANS LA CLASSE c_Php4WX
MonAcces:CryptRetour = Faux
MonAcces:CrypteReq = Vrai

MonAcces:methodeZip=Faux
MonAcces:dataHexa = Faux
MonAcces:modeUTF8Entree = Vrai
MonAcces:modeUTF8Sortie = Faux

MonAcces:charset = "utf-8"
MonAcces:alphabet = alphabetUTF8


SI PAS MonAcces:mySQLConnecte("

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

","","","TaBaseDeDonnee") ALORS
TitreEnCours("Connexion à MySQL")
Info("Échec de connexion")
SINON
Info("Connexion établie")

FIN
//////////////////////////

//code BTN Charger la tableTarif du Fichier Tarif

sVrequete est une chaîne="select * from TARIF"

TableSupprimeTout(TABLETARIF)

SI MonAcces:mySQLExec(sVrequete,1) ALORS
MonAcces:mySQLTable(1,"TABLETARIF")
SINON
Info(MonAcces:mySQLGetErrorMessage())
FIN


// Bon DEV

 

Je vous recommande d'utiliser webservice pour WM