1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
| /**************************************************************************************************************************
***************************************************************************************************************************
Fichier : BDD - online // Auteur : Jérémy Deschamps // Version : 1.0
***************************************************************************************************************************
**************************************************************************************************************************/
/***********************************
Copier dans l'initialisation du projet et remplir les variables : AdresseFichier, MonCode
************************************/
GLOBAL
//Connexion avec la base de données pour MAJ des bases de données
SQLAdresseFichier, SQLCodeSecurité, SQLRequette sont des chaînes
SQLAdresseFichier = "monsite.com" //Indiquer l'emplacement où se trouve le fichier bddconnect.php
SQLCodeSecurité = "MonCode" //Doit correspondre au fichier bddconnect.php
/***********************************
Créer une procedure pro_SQL et copier/coller ce code
************************************/
PROCEDURE pro_SQL(SQLRequette)
Requette_URL, TransitionURL, URL_codee, Resultat sont des chaînes
//Contruit une requette au format URL
Requette_URL = Remplace(SQLRequette," ","@")
//Contruit l'URL à envoyer au fichier
TransitionURL = "@_@"
URL_codee = "http\\"+SQLAdresseFichier+"/bddconnect.php?infos="+SQLCodeSecurité+TransitionURL+Requette_URL
//Connexion à la page Web
ResLancement est un booléen = HTTPRequête(URL_codee)
SI ResLancement = Vrai ALORS
//Récupère le contenu de la page Web
ResCode est une chaîne = AnsiVersUnicode(HTTPDonneRésultat())
//Extrait les balises <body> et </body>
ResCode_2 est une chaîne = Remplace(ResCode,"<body>","")
ResCode_3 est une chaîne = Remplace(ResCode_2,"</body>","")
//Enregistre le résultat dans une variable
Resultat = HTMLVersTexte(ResCode_3)
FIN
RENVOYER Resultat
/***********************************
Pour appeler la requette (exemples à modifier selon les besoin)
************************************/
////////////////////////////Récupere un élément
SQLRequette = "select col_date from tab_version where col_id=1"
VersionBdd est un entier = pro_SQL(SQLRequette)
////////////////////////////Récupere tous les éléments d'une table
//Récupere le nombres de lignes dans une table
SQLRequette = "select count(*) from tab_cartes"
CompteCartes est un entier = pro_SQL(SQLRequette)
//Faire une boucle de 1 à nombre de ligne
POUR i = 1 A CompteCartes
//Récupere un élément
SQLRequette = "select col_id from tab_cartes where col_id="+i
id est une chaîne = pro_SQL(SQLRequette)
//Récupere le deuxième
SQLRequette = "select col_sexe from tab_cartes where col_id="+i
sexe est une chaîne = pro_SQL(SQLRequette)
//Récupere le troisième...
SQLRequette = "select col_taille from tab_cartes where col_id="+i
taille est une chaîne = pro_SQL(SQLRequette)
FIN
////////////////////////////Efface un élément
SQLRequette = "DELETE FROM tab_cartes WHERE col_id=1"
pro_SQL(SQLRequette)
////////////////////////////Insere un élément
SQLRequette = 'INSERT INTO tab_cartes VALUES("","bob","homme","1.75")'
pro_SQL(SQLRequette)
///////////////////////////Met à jour un élément
SQLRequette = "UPDATE table SET col_id='valeur 1', col_nom='valeur 2' WHERE col_id=1)"
pro_SQL(SQLRequette)
///////////////////////////Vide une table
SQLRequette = "TRUNCATE tab_cartes"
pro_SQL(SQLRequette)
///////////////////////////Supprime une table
SQLRequette = "DROP tab_cartes"
pro_SQL(SQLRequette) |
Partager