Overblog
Editer l'article Suivre ce blog Administration + Créer mon blog
codeswindev.over-blog.com

Petit blog sur le Wlangage de PCSoft Je vais essayer dans ce petit blog à illustrer des exemples de codage en Wlangage, des trucs et astuces utiles sur les environnements Windev, Webdev et Windev Mobile. Je partage, si ça peut aider la communauté, au fur et à mesure que je découvrirai cet AGL. J'essayerai de ne pas être trop redondant avec ce qui est facile à trouver dans la doc. Bonne lecture.

Créer sa Base De Données sur MySQL avec WinDev, WebDev en utilisant le driver ODBC

La fonction SQLConnecte permet d'effectuer ce traitement si on utilise la connexion ODBC.

Voici le code permettant de créer la BDD:

id est un entier = SQLConnecte("MysqlODBC","root","mdp","","ODBC ",hODBC)
SI id <> 0 ALORS
sNomDatabase est une chaîne = "Database"
// création de la base de données
sSql est une chaîne = "CREATE DATABASE IF NOT EXISTS %1"
sSql = ChaîneConstruit(ssql,sNomDatabase)
// execution de la requête
SI PAS SQLExec(ssql,"REQ") ALORS
SQLInfoGene()
Erreur("La Database n'a pas pu être créée. Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
FIN
SINON
// La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur("La connexion à la source de données" + "localhost" + ...
"a échoué."+RC+...
"Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
FIN
// Dans tous les cas (connexion OK ou pas)
SQLDéconnecte()

Ensuite on peut utiliser les fonctions "H*" avec l'accès natif MySQL.
Un peut contraignant, car il faut le driver ODBC déjà installé sur le poste.

Partager cet article
Repost0
Pour être informé des derniers articles, inscrivez vous :
Commenter cet article