PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV Mobile 2024 → WD Mobile: Accès distants à base MySql (MariaDb)
WD Mobile: Accès distants à base MySql (MariaDb)
Iniciado por Alain Gérard, 26,mar. 2024 18:37 - 4 respuestas
Miembro registrado
3 mensajes
Publicado el 26,marzo 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
Mensaje modificado, 26,marzo 2024 - 18:41
Miembro registrado
964 mensajes
Popularité : +16 (20 votes)
Publicado el 26,marzo 2024 - 21:29
Utilise des web-services

--
Pascal Boulesteix
Applications Visiolittoral et WNat
Miembro registrado
3 mensajes
Publicado el 27,marzo 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).
Mensaje modificado, 27,marzo 2024 - 09:52
Miembro registrado
964 mensajes
Popularité : +16 (20 votes)
Publicado el 27,marzo 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
Miembro registrado
3 mensajes
Publicado el 28,marzo 2024 - 08:02
Bonjour,

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

Encore merci