PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → WD Mobile: Accès distants à base MySql (MariaDb)
WD Mobile: Accès distants à base MySql (MariaDb)
Débuté par Alain Gérard, 26 mar. 2024 18:37 - 4 réponses
Membre enregistré
3 messages
Posté le 26 mars 2024 - 18:37
Bonjour à tou(te)s,

Je cherche à ce que mes applications WDM;2024 accèdent à des bases MySql(MariaDb) distantes.
Je sais que WDM n'est pas prévu pour ce type d'accès, sauf en natif, mais j'ai vu, que par le passé, des solutions avaient été trouvées.
Connaitriez vous des solutions compatibles à mon problème ?

Merci pour vos réponses, et bonne journée à vous.

Windev 2024, Windev Mobile 2024
Message modifié, 26 mars 2024 - 18:41
Membre enregistré
964 messages
Popularité : +16 (20 votes)
Posté le 26 mars 2024 - 21:29
Utilise des web-services

--
Pascal Boulesteix
Applications Visiolittoral et WNat
Membre enregistré
3 messages
Posté le 27 mars 2024 - 09:47
Bonjour et merci pour la réponse.

Sauriez-vous ou je puis trouver ce type d'informations pour exécuter une installation propre.
( site, tutos ou autre)

Encore merci et bonne journée à vous (à tou(te)s).
Message modifié, 27 mars 2024 - 09:52
Membre enregistré
964 messages
Popularité : +16 (20 votes)
Posté le 27 mars 2024 - 16:25
Je présume que la base mariadb est liée à un site web.
Si tu es webmaster de ce site web, ou bien si tu peux travailler avec lui, demande lui de créer une web-service très simple

Exemple en PHP d'un web-service nommé monWS.php sélectionnant des enregistrements ayant un id passé en paramètre et renvoyant une structure json

$theParam=$_REQUEST("param");

$sql="Select id, nom, adresse from table where id=".$theParam;
$rec_import_files = $mysqli->query($sql);
while($row = $rec_import_files->fetch_assoc()) {
$My_Data[] = array('Client'=>$row);
}

echo json_encode(array('Client'=>$My_Data));


Côté WD

sMyURL est une chaîne ANSI
sMyURLEncode est une chaîne

maRequête est un restRequête
laRéponse est un restRéponse

sMyURL = "https://theweb.fr/monWS.php?param=10"

sMyURLEncode = URLEncode(sMyURL)
maRequête.URL = sMyURLEncode

laRéponse = RESTEnvoie(maRequête)


SI ErreurDétectée ALORS
Erreur("ERR25",ErreurInfo(errComplet))
RETOUR
SINON

réponse=JSONVersVariant(laRéponse.Contenu)
FIN


--
Pascal Boulesteix
Applications Visiolittoral et WNat
Membre enregistré
3 messages
Posté le 28 mars 2024 - 08:02
Bonjour,

Un grand merci.
Je teste ça ces prochains jours et vous retourne les infos.

Encore merci