PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile 2024 → WD Mobile: Accès distants à base MySql (MariaDb)
WD Mobile: Accès distants à base MySql (MariaDb)
Started by Alain Gérard, Mar., 26 2024 6:37 PM - 4 replies
Registered member
3 messages
Posted on March, 26 2024 - 6:37 PM
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 modified, March, 26 2024 - 6:41 PM
Registered member
964 messages
Popularité : +16 (20 votes)
Posted on March, 26 2024 - 9:29 PM
Utilise des web-services

--
Pascal Boulesteix
Applications Visiolittoral et WNat
Registered member
3 messages
Posted on March, 27 2024 - 9:47 AM
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 modified, March, 27 2024 - 9:52 AM
Registered member
964 messages
Popularité : +16 (20 votes)
Posted on March, 27 2024 - 4:25 PM
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
Registered member
3 messages
Posted on March, 28 2024 - 8:02 AM
Bonjour,

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

Encore merci