Comment ajouter et appliquer les mises à jour sur un serveur de base de données en passant par DataSnap ?

**bm1990** · 30/04/2016, 11h58

Salut tous le monde, je suis entrain de créer une application Multi-device qui gère une base de données à distance en passant par un serveur intermédiaire qui est DataSnap Server et cette base de données est géré par le SGBD SQL Server 2008 R2 Express, je sais comment ajouter mais mon problème est comment j'applique les mises à jours sur le serveur de base de données SQL Server 2008 R2 Express ou comment envoyer les mises à jours effectuées sur la base de données dans le cache de l'application client qui gère la base de données vers SQL Server 2008 R2 Express.

NB:
Le serveur de base de données je veux l'utiliser à distance pour cela j'ai crée un Virtual Server (NAT) dans le routeur.

Merci d'avance pour toute aide ou tentative d'aide

**ShaiLeTroll** · 02/05/2016, 11h42

La seule fois où j'ai participé à la mise en place de DataSnap c'était dans le cadre d'un remplacement de DCOM
Donc ma vision est peut-être biaisée.

Tu as un mode très objet de DataSnap mais cela je ne le connais pas du tout, je crois qu'il est assez proche des objets TRemotable du SOAP
Je ne connais que le DataSnap via manipulation manuelle du JSON

Les Applications exposaient une série de fonction COM et c'est DCOM qui se chargeaient de monter le module out-process et d'assurer la communication inter-process
L'idée a été de supprimer le DCOM par un simple COM et de gérer la communication par DataSnap

L'application client lance une version locale de l'application distante, qui contient le COM et transforme les requêtes en JSON pour les soumette au client DataSnap,
Sur le serveur, une version Service Windows de l'application distante est lancé en mode Serveur, cela récupère l'objet JSON et cela génère du SQL qui sont exécutés via DBExpress sur Sybase (ça c'est la DAL)

Tout ça pour dire que DataSnap n'est qu'un moyen pour assurer la communication, ce qui compte c'est que tu as des données en entrée qui doivent être mis dans la base et éventuellement des données en sortie
Peu importe c'est du DataSnap, du COM, un WS SOAP, il faut séparer la notion transport de la notion de la couche business et de la couche DAO

Tu peux très bien faire une application client lourde, avec une IHM qui utilise ta couche business BLL et BEL
Une fois ta couche BLL/BEL stable, tu pourras l'utiliser via DataSnap qui ne sera qu'une exposition des méthodes

Le DataSnap en gros ne sert qu'à la couche transport des données c'est à dire la partie TCP/IP + Formatage JSON
La partie "métier" de transformer la requête client en SQL reste à ta charge de l'application comme cela aurait été fait en COM/DCOM

Je te conseille d'étudier la notion service WEB REST
Pense Service, ton serveur doit exposer des méthodes simples et prêtes à l'emploi pour gérer le CRUD presque d'un point de vue métier
le plus simple pour découper en fonction c'est de faire une fonction par formulaire où l'envoi des données du client contient TOUT le formulaire qui est valider en une seule requête DataSnap se traduisant par une seule transaction pouvant regrouper plusieurs SQL dont l'ensemble forme un tout cohérent de données

Ce n'est pas éloigné d'un POST d'un formulaire Web

**bm1990** · 03/05/2016, 19h41

Merci pour vos conseils, je vais poster mon code source peut être vous pourriez m'aider

**SergioMaster** · 04/05/2016, 07h56

Bonjour, tout ce que je connais du multi-tiers et de Datasnap est purement théorique, basée sur les interventions de Thierry Laborde lors des DevDuJeudi
saison 2 épisode 2 et saison 3 épisode 9 malheureusement le site ledevdujeudi ne semble plus accessible (si Thierry passe par là ?) mais les vidéos (longues puisque 4 par journées) sont encore dispo sur Youtube
à mon avis une mise à jour en directe ne pose pas de soucis
par contre

comment envoyer les mises à jours effectuées sur la base de données dans le cache de l'application client qui gère la base de données ?

il me semble que T.Laborde a abordé le sujet mais cela va aussi dépendre de quels composants sont utilisés pour se connecter à la BDD sur le client
de mes lectures, et mes souvenirs

qui commencent à dater, c'est possible

**bm1990** · 04/05/2016, 13h27

Voila la vidéo tutoriel que j'ai suivi pour faire une application de base de données multi-device

Mais malheureusement cette vidéo montre juste comment afficher les données d'une table alors j'ai fais un petit effort pour ajouter les opérations d'insertion, modification et suppression mais j'ai pas réussi à appliquer les mises à jour dans la base de données.

J'ai pas fait totalement comme la vidéo parce que j'ai changé le serveur de base de données, j'ai utilisé Microsoft SQL Server Express 2008 R2.

Voila le code que j'ai fait pour l'ajout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm2.Button1Click(Sender: TObject);
begin
try
clientdataset1.Open;
Clientdataset1.Append;
clientdataset1['a']:='5';
clientdataset1['d']:='6';
if ClientDataSet1.State in [dsInsert,dsEdit] then
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(-1);
ClientDataSet1.Close();
ClientDataSet1.Open();
except
showmessage('erreur');
end;
end;

**FOCUS77** · 04/05/2016, 18h42

Bonjour à tous

Essayez ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.Button1Click(Sender: TObject);
begin
try
Clientdataset1.Append;
clientdataset1.FieldValues['a']:='5';
clientdataset1.FieldValues['d']:='6';
ClientDataSet1.ApplyUpdates(-1);
except
showmessage('erreur');
end;
end;

**bm1990** · 04/05/2016, 19h14

Envoyé par FOCUS77

Bonjour à tous

Essayez ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.Button1Click(Sender: TObject);
begin
try
Clientdataset1.Append;
clientdataset1.FieldValues['a']:='5';
clientdataset1.FieldValues['d']:='6';
ClientDataSet1.ApplyUpdates(-1);
ClientDataSet1.CommitRetaining
except
showmessage('erreur');
end;
end;

Mais quelle unité je dois déclaré parce que j'ai cherché dans le manuel d'aide j'ai trouver que la procédure CommitRetaining appartient à l'unité FireDAC.Comp.Client je l'ai ajouté et ça se compile pas puise qu'il ne connait pas encore CommitRetaining ! en plus de ça ClientDataSet n'a pas cette méthode !