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) |
Connexion à une base de données distante
Répondre avec citation
Envoyé par eljeronimooo
)
Partager