$bd";
}
}
Connexion::validerTransaction($lcnx); //commit() (validation de la transaction)
/*
* affichage des tables de la BD
*/
$btValiderBD = filter_input(INPUT_GET, "btValiderBD");
if ($btValiderBD != null) {
$nomBD = filter_input(INPUT_GET, "listesBDs");
$_SESSION["bd"] = $nomBD;
}
if (isSet($_SESSION["bd"])) {
$nomBD = $_SESSION["bd"];
$tTables = Metabase::getTablesFromBD($lcnx, $nomBD);
foreach ($tTables as $table) {
$listeTables .= "";
}
}
/*
* affichage final ...
*/
$btValiderTout = filter_input(INPUT_GET, "btValiderTout");
if ($btValiderTout != null) {
$nomTable = filter_input(INPUT_GET, "listeTables");
$lsSQL = "SELECT * FROM " . $nomBD . "." . $nomTable;
echo " $lsSQL ";
$rbSortie = filter_input(INPUT_GET, "rbSortie");
if ($rbSortie != null) {
try {
$lrs = $lcnx->query($lsSQL);
$lrs->setFetchMode(PDO::FETCH_ASSOC);
$tData = $lrs->fetchAll();
//--------------------------------------------------------------------------------------------------------------------
/*
mode fetchAll
*/
/*
La première ligne
http://php.net/manual/fr/function.each.php
each() retourne la paire clé/valeur courante du tableau array et avance le pointeur de tableau.
*/
$t = each($tData);
foreach ($t[1] as $key => $value) {
$lsEntetes .= "$key;";
}
$lsEntetes = substr($lsEntetes, 0, -1);
/*
Fermeture du curseur
*/
$lrs->closeCursor();
/*
* je transforme ma chaine des entêtes en tableau des entêtes
*/
$tEntetes = explode(";", $lsEntetes);
//------------------------------------------------------------------------------------------------------------------------
/*
* SI FORM
*/
if ($rbSortie == "form") {
/*
* on ecrit dans lsContenu le formulaire
*/
$lsContenu.= "\n";
/*
* optionnel (affichage graphique)
*/
$lsAffichage = $lsContenu;
/*
* Utilisation de < > pour remplacer les chevrons "<" ">"
* on utilise le code ascii car sinon sur la page le text html ne s'affichage pas, les balises oui
* et les \n en pour un affichage du code plus lisible.
*/
$lsContenu = str_replace("<", "<", $lsContenu);
$lsContenu = str_replace(">", ">", $lsContenu);
$lsContenu = nl2br($lsContenu);
}
//------------------------------------------------------------------------------------------------------------------------
/*
* SI DTO
*/
if ($rbSortie == "dto") {
//--------------------------------------------------------------------------------------------------------------------
/*
* on ecrit dans lsContenu la page php en mode text
*/
$lsContenu.= "snakeToMajPremierelettreMot($nomTable) . ".php\n\n"; // snakeToMajPremierelettreMot pour mettre en majuscule la première lettre de chaque mot
$lsContenu.= "Class " . $lsCar->snakeToMajPremierelettreMot($nomTable) . " {\n\n";
$lsContenu.= "//--propriétés\n\n";
for ($i = 0; $i < count($tEntetes); $i++) {
$lsSnake = new TravailChaineCaractere(); //préparation à la méthode camelize et snakeToUpperTitre
$lsContenu.= "private $" . $lsSnake->camelize($tEntetes[$i]) . ";\n";
/*
* création des variables du construct__
*/
$lsContenu3.= "$" . $lsCar->snakeToMajPremierelettreMot($tEntetes[$i]) . "='', ";
$lsContenu4.= "$this->" . $lsSnake->camelize($tEntetes[$i]) . "= $" . $lsSnake->camelize($tEntetes[$i]) . ";\n";
/*
* dans lsContenu2 je stock les public function getters et setters
*/
$lsContenu2.= "public function get" . $lsSnake->snakeToMajPremierelettreMot($tEntetes[$i]) . "(){\n";
$lsContenu2.= "return $this->" . $lsSnake->camelize($tEntetes[$i]) . ";\n}\n\n";
$lsContenu2.= "public function set" . $lsSnake->snakeToMajPremierelettreMot($tEntetes[$i]) . "($" . $lsSnake->camelize($tEntetes[$i]) . "){\n";
$lsContenu2.= "$this->" . $lsSnake->camelize($tEntetes[$i]) . "= $" . $lsSnake->camelize($tEntetes[$i]) . ";\n}\n\n";
}
$lsContenu.= "\n\n//--constructor\n\n";
//on retire la derniere virgule et espace introduit avec la boucle
$lsContenu3 = substr($lsContenu3, 0, -2);
$lsContenu.= "function __construct(" . $lsContenu3 . ") {\n";
$lsContenu.= $lsContenu4;
$lsContenu.= "\n} \n\n";
$lsContenu.= "\n//--méthode\n\n";
$lsContenu.= $lsContenu2;
$lsContenu.= "\n\n}\n\n?>";
/*
* Utilisation de < > pour remplacer les chevrons "<" ">"
* on utilise le code ascii car sinon sur la page le text html ne s'affichage pas, les balises oui
* et les \n en pour un affichage du code plus lisible.
*/
$lsContenu = str_replace("<", "<", $lsContenu);
$lsContenu = str_replace(">", ">", $lsContenu);
$lsContenu = nl2br($lsContenu);
//--------------------------------------------------------------------------------------------------------------------
}
/*
* SI DAO
*/
if ($rbSortie == "dao") {
//--------------------------------------------------------------------------------------------------------------------
$lsCar = new TravailChaineCaractere(); //préparation à la méthode camelize
/*
* je recupère les colonnes de la table courante et la PK
*/
$lsPrimaryKey = Metabase::getColumnsNamesPKFromTable($lcnx, $nomBD, $nomTable);
$lscolonnes = Metabase::getColumnsNamesFromTable($lcnx, $nomBD, $nomTable);
for ($i = 0; $i < count($lscolonnes); $i++) {
/*
* boucle qui va travailler pour obtenir mes contenus pour les 3 ordres SQL INSERT, UPDATE et DELETE
*/
$lsContenu2.= "$" . $lsCar->snakeToMajPremierelettreMot($nomTable) . "->get" . $lsCar->snakeToMajPremierelettreMot($lscolonnes[$i]) . "(),"; // pour le tValeurs de INSERT
$lsContenu3.= $lscolonnes[$i] . ","; // pour l'ordre sql de INSERT
$lsContenu4.= "?,"; // pour l'ordre sql de INSERT
if ($lscolonnes[$i] !== $lsPrimaryKey[0]) {//pour le tValeurs de l'UPDATE et son ordre sql sans la PK qui ira dans le WHERE. la PK sera également utilisée pour le DELETE
$lsContenu5.= "$" . $lsCar->snakeToMajPremierelettreMot($nomTable) . "->get" . $lsCar->snakeToMajPremierelettreMot($lscolonnes[$i]) . "(),";
$lsContenu6.= $lscolonnes[$i] . "= ?,";
}//fin if
}//fin boucle
/*
* nettoyage des concatenations en retirant les "," ou "?" en trop à la fin de mes chaines de caractères
*/
$lsContenu2 = substr($lsContenu2, 0, -1);
$lsContenu3 = substr($lsContenu3, 0, -1);
$lsContenu4 = substr($lsContenu4, 0, -1);
$lsContenu6 = substr($lsContenu6, 0, -1);
/*
* j'ajoute à tValeurs de UPTADE la PK à la fin car le where (PK) est à la fin dans l'ordre sql (cela respectera l'ordre des "?")
*/
$lsContenu5.= "$" . $lsCar->snakeToMajPremierelettreMot($nomTable) . "->get" . $lsCar->snakeToMajPremierelettreMot($lsPrimaryKey[0]) . "()";
/*
* on ecrit dans lsContenu la page php en mode text
*/
$lsContenu.= "snakeToMajPremierelettreMot($nomTable) . "DAO.php\n*\n*@author Steve MORGEAT\n*\n*/\n\n"; // snakeToMajPremierelettreMot pour mettre en majuscule la première lettre de chaque mot
$lsContenu.= "require_once '" . $lsCar->snakeToMajPremierelettreMot($nomTable) . ".php';\n\n";
$lsContenu.= "Class " . $lsCar->snakeToMajPremierelettreMot($nomTable) . "DAO {\n\n";
/*
* partie INSERT
*/
$lsContenu.= "//=================================================================================\n/**\n*INSERT\n* @param PDO $pcnx\n* @param type $nomTable\n* @return string\n*/\n";
$lsContenu.= "public static function insert(PDO $pcnx, $$nomTable) {\n\n\n";
$lsContenu.= "$tValeurs = array($lsContenu2);\n\n";
$lsContenu.= "$lsSQL = 'INSERT INTO $nomTable($lsContenu3) VALUES($lsContenu4)';\n\n";
$lsContenu.= "try {\n\n";
$lsContenu.= "$lcmd = $pcnx->prepare($lsSQL);\n";
$lsContenu.= "$lcmd->execute($tValeurs);\n";
$lsContenu.= "$lsMessage = $lcmd->rowcount();\n";
$lsContenu.= "} catch (PDOException $e) {\n";
$lsContenu.= "$lsMessage = 'Echec de l\'exécution : ' . htmlentities($e->getMessage());\n";
$lsContenu.= "}\n";
$lsContenu.= "return $lsMessage;\n";
$lsContenu.= "}\n";
/*
* partie UPDATE
*/
$lsContenu.= "\n\n//=================================================================================\n/**\n*UPDATE\n* @param PDO $pcnx\n* @param type $nomTable\n* @return string\n*/\n";
$lsContenu.= "public static function update(PDO $pcnx, $$nomTable) {\n\n\n";
$lsContenu.= "$tValeurs = array($lsContenu5);\n\n";
$lsContenu.= "$lsSQL = 'UPDATE $nomTable SET $lsContenu6 WHERE $lsPrimaryKey[0]= ?';\n\n";
$lsContenu.= "try {\n\n";
$lsContenu.= "$lcmd = $pcnx->prepare($lsSQL);\n";
$lsContenu.= "$lcmd->execute($tValeurs);\n";
$lsContenu.= "$lsMessage = $lcmd->rowcount();\n";
$lsContenu.= "} catch (PDOException $e) {\n";
$lsContenu.= "$lsMessage = 'Echec de l\'exécution : ' . htmlentities($e->getMessage());\n";
$lsContenu.= "}\n";
$lsContenu.= "return $lsMessage;\n";
$lsContenu.= "}\n";
/*
* partie DELETE
*/
$lsContenu.= "\n\n//=================================================================================\n/**\n*DELETE\n* @param PDO $pcnx\n* @param type $nomTable\n* @return string\n*/\n";
$lsContenu.= "public static function delete(PDO $pcnx, $$nomTable) {\n\n\n";
$lsContenu.= "$tValeurs = array($" . $lsCar->snakeToMajPremierelettreMot($nomTable) . "->get" . $lsCar->snakeToMajPremierelettreMot($lsPrimaryKey[0]) . "());\n\n";
$lsContenu.= "$lsSQL = 'DELETE FROM $nomTable WHERE $lsPrimaryKey[0]= ?';\n\n";
$lsContenu.= "try {\n\n";
$lsContenu.= "$lcmd = $pcnx->prepare($lsSQL);\n";
$lsContenu.= "$lcmd->execute($tValeurs);\n";
$lsContenu.= "$lsMessage = $lcmd->rowcount();\n";
$lsContenu.= "} catch (PDOException $e) {\n";
$lsContenu.= "$lsMessage = 'Echec de l\'exécution : ' . htmlentities($e->getMessage());\n";
$lsContenu.= "}\n";
$lsContenu.= "return $lsMessage;\n";
$lsContenu.= "}\n\n";
$lsContenu.= "}///Fin Class DTO\n\n?>"; // fin de la Class DTO sans les "SELECT"
/*
* Utilisation de < > pour remplacer les chevrons "<" ">"
* on utilise le code ascii car sinon sur la page le text html ne s'affichage pas, les balises oui
* et les \n en pour un affichage du code plus lisible.
*/
$lsContenu = str_replace("<", "<", $lsContenu);
$lsContenu = str_replace(">", ">", $lsContenu);
$lsContenu = nl2br($lsContenu);
//--------------------------------------------------------------------------------------------------------------------
}
/*
Fermeture du curseur
*/
$lrs->closeCursor();
$lsMessage = "Ok, c'est fini ! Tu peux aller faire la sieste !!!";
/*
* REINITIALISATION
*/
unset($_SESSION["bd"]);
$nomBD = "";
} catch (PDOException $e) {
$lsMessage = "Echec de l'exécution : " . $e->getMessage();
}
} else {
$lsMessage = "Il faut sélectionner un type de sortie !!!";
}
}
Connexion::seDeconnecter($lcnx);
?>
MySQL2JsonCsvXml