Discussion :

[bds2006]

Bonjour,

Je développe une application multi-tier où j'ai l'erreur suivante lorsque j'essai un : ApplyUpdates(0) :

Enregistrement introuvable, aucune clé spécifiée

Savez-vous comment spécifier une clé et à quel endroit la mettre, dans quel composant, sur le client ou le serveur ?

Serveur :
- TADOConnection
- TADODataSet
- TDataSetProvider

Client :
- TSocketConnection
- TClientDataSet
- TDataSource

Merci d'avance,
Mathieu

[bds2006]

Bonjour,

J'ai trouvé la source de mon erreur :

Code :

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

1
2
 
FPrincipale.ClientDataSetRecherche.RefreshRecord;

Je l'ai enlevé pour le moment car ApplyUpdates ne provoque aucunre erreur mais les données ne sont pas mises à jour...

Que faire ?

Merci d'avance,
Mathieu

[Bejaia-In]

Pour que le composant "TDataSetProvider" génère des requêttes de mise à jour optimisées, je vous conseil de suivre la procédure suivante:
1 - pour chaque "DataSetProvider" mettre sa propriété "UpDateMode" à "upWhereKeyOnly".
2 - pour chaque "ADODataSet", un champ clé (obligatoirement unique), et mettre la propriété du champ "ProviderFlags" = "[pfInUpDate,pfInWhere,pfInKey]".

[bds2006]

Bonjour,

J'ai suivi votre conseil qui marche très bien dans le cas d'une requête simple :

Code :

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

1
2
 
SELECT * FROM MyTable

Cependant, dès lors où j'utilise des jointures, aucune mise à jour s'effectue :

Code :

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

1
2
3
 
SELECT * FROM (MyTable A LEFT JOIN MyTable2 B ON A.Champ1=B.Champ1)
LEFT JOIN MyTable3 C ON A.Champ1=C.Champ1 WHERE A.Champ1=xxxxx

Je pense que la requête est trop compliquée pour que le composant effectue derrière une requête de mise à jour.

Vous confirmez ?

Merci,
Mathieu

[bds2006]

Bonjour,

J'ai donc créé une suite de 3 composants pour interroger chaque table :
TSocketConnection -> TClientDataSet -> TDataSource

Par contre, lorsque j'applique mon :

Code :

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

1
2
3
 
ClientDataSetInternet1.ApplyUpdates(0);
ClientDataSetInternet2.ApplyUpdates(0);

J'ai l'erreur suivante :

Code :

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

1
2
3
4
 
09:19:28 -> SQL : SELECT * FROM mpg_BASE WHERE [Household ID]='33748'
09:19:28 -> SQL : 
09:19:28 -> ClientDataSetInternet2: Impossible d'effectuer cette opération sur un ensemble de données fermé

Je remarque que mon ClientDataSetInternet2 n'a rien dans sa CommandText alors que j'ai bien les informations affichées sur mon formulaire...

Voici le code que j'utilise :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
constructor TFInternet.Create(AOwner: Tcomponent; Identifiant:string);
begin
     inherited Create(AOwner);;
     try
          SocketConnectionInternet1.Address       := FPrincipale.ServeurIp;
          SocketConnectionInternet1.Port          := FPrincipale.ServeurPort;
          SocketConnectionInternet1.ServerName    := FPrincipale.InternetServerName;
          SocketConnectionInternet1.ServerGUID    := FPrincipale.InternetServerGUID;
          SocketConnectionInternet1.Connected     := true;
          ClientDataSetInternet1.CommandText      := 'SELECT * FROM mpg_BASE WHERE [Household ID]=' + QuotedStr(Identifiant);
          ClientDataSetInternet1.ProviderName     := 'DataSetProviderInternet';
          ClientDataSetInternet1.Active           := true;
 
          SocketConnectionInternet2.Address       := FPrincipale.ServeurIp;
          SocketConnectionInternet2.Port          := FPrincipale.ServeurPort;
          SocketConnectionInternet2.ServerName    := FPrincipale.InternetServerName;
          SocketConnectionInternet2.ServerGUID    := FPrincipale.InternetServerGUID;
          SocketConnectionInternet2.Connected     := true;
          ClientDataSetInternet2.CommandText      := 'SELECT * FROM mpg_STATUS WHERE [Household ID]=' + QuotedStr(Identifiant);
          ClientDataSetInternet2.ProviderName     := 'DataSetProviderInternet';
          ClientDataSetInternet2.Active           := true;
     except
          on E : Exception do
          begin
               FPrincipale.Log('SQL : ' + ClientDataSetInternet1.CommandText);
               FPrincipale.Log('SQL : ' + ClientDataSetInternet2.CommandText);
               FPrincipale.Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;

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
17
 
procedure TFInternet.SBEnregistrerClick(Sender: TObject);
begin
     try
          ClientDataSetInternet1.ApplyUpdates(0);
          ClientDataSetInternet2.ApplyUpdates(0);
          Close();
     except
          on E : Exception do
          begin
               FPrincipale.Log('SQL : ' + ClientDataSetInternet1.CommandText);
               FPrincipale.Log('SQL : ' + ClientDataSetInternet2.CommandText);
               FPrincipale.Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;

Pouvez-vous m'aider, je galère beaucoup là...

Merci,
Mathieu

[Bejaia-In]

Je crois que le schéma d'organisation de votre application n'est pas correcte,
Voici, normalement, comment cela doit être organisé :


Application Client : TSocketConnection
- TClientDataSet : « RemoteServer=SocketConnection », « DataSetProvider= DataSetProvider»
- TDataSource : « DataSet =ClientDataSet»,


Application Serveur : TADOConnection
- TADODataSet : « Connection=ADOConnection », « CommandText=votre requette ».
- TDataSetProvider : « DataSet=ADODataSet ».


Pour le composant TClientDataSet, ne pas toucher sa propriété « CommandText ».
Lorsque vous ouvrez un TClientDataSet, assurez-vous avant que son composant TADODataSet est ouvert lui aussi.
Sachez aussi que le composant TClientDataSet, lorsqu'il est ouvert, il met ses données en mémoire, ce qui explique que même fermé il garde toujours la-dites données.
Et enfin, les requêtes utilisées doivent être les plus simples possible.

[Bejaia-In]

Pour que le composant "TDataSetProvider" génère des requêttes de mise à jour optimisées, je vous conseil de suivre la procédure suivante:
1 - pour chaque "DataSetProvider" mettre sa propriété "UpDateMode" à "upWhereKeyOnly".
2 - pour chaque "ADODataSet", un champ clé (obligatoirement unique), et mettre la propriété du champ "ProviderFlags" = "[pfInUpDate,pfInWhere,pfInKey]".

Application Serveur : TADOConnection
- TADODataSet : « Connection=ADOConnection », « CommandText=votre requête ».
- TDataSetProvider : « DataSet=ADODataSet ».

Je dois me citer pour vous rappeler que si vous n’utilisez pas nos réponses (ou du moins essayez) cela sert à rien de poser des questions.

[bds2006]

Bonsoir,

J'ai donc résolu mon problème qui n'était pas causé par le :

La seule différence se trouve dans le CommandText que j'utilise sur le client et non le serveur via l'option suivante sur le TDataSetProvider->Options->poAllowCommandText.

Le problème était causé par un champ de format "DATE" qui pose problème avec la clause WHERE. Informations trouvées ici :
http://groups.google.fr/group/borlan...e0e6c7fc5621bf

Merci,
Mathieu