Discussion :

[XeGregory]

Bonjour,

Est-il possible de savoir si un champ contient une clé primaire ?



Xml :
https://sourceforge.net/p/radstudiod...ata/orders.xml

Dans le Xml il y a un champ nommé "OrderNo" du type "ftFloat", ce champ n'est pas en lecture seule et non auto incrémenté.

Code :

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

<FIELD attrname="OrderNo" fieldtype="r8"/>

Quand on ajoute un nouvel enregistrement, si le champ "OrderNo" est vide le dataset réagir comme si le champ été du type "ftAutoInc", si le champ est dupliqué un message d'erreur apparait (Violation de clé).

Merci.

[ShaiLeTroll]

Suffit d'ouvrir les yeux

Code xml :

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

		<PARAMS DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="1033"/>

le premier champ c'est OrderNo

Si tu veux le supprimer

Code :

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

DataSet.IndexDefs.Clear();

Evidemment IndexDefs permet aussi de lister les index présents

[XeGregory]

Suffit d'ouvrir les yeux

Code xml :

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

		<PARAMS DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="1033"/>

le premier champ c'est OrderNo

Si tu veux le supprimer

Code :

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

DataSet.IndexDefs.Clear();

Bonjour ShaiLeTroll

j’avais déjà essayé :

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet.FileName := 'orders.xml';
  ClientDataSet.Open;
  ClientDataSet.IndexDefs.Clear;
end;

En vain, j'ai toujours cette maudite clé primaire.

[ShaiLeTroll]

Je joue plus avec des Index normaux, juste pour trier le DataSet dans un sens ou un autre, et contrairement à toi, j'aurais plutôt tendance à ajouter une clé Primaire qu'à la retirer

Au lieu de contourner la clé primaire, il faut l'exploiter
C'est un cas particulier ce 'DEFAULT_ORDER', contrairement à un index utilisateur, il n'est pas présent dans IndexDefs


Manipulation des données avec un ensemble de données client > Tri et indexation

Si un ensemble de données client représente les données d'un serveur ou utilise un fournisseur externe, il hérite d'un index et d'un ordre de tri par défaut, basés sur les données qu'il reçoit. L'index par défaut s'appelle DEFAULT_ORDER. Il est possible d'utiliser ce classement, mais il est impossible de modifier ou de supprimer l'index.

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
procedure TZooXXXXVCLControlExperimentForm.Button3Click(Sender: TObject);
var
  I: Integer;
begin
  ClientDataSet1.LoadFromFile('orders.xml');
  ClientDataSet1.IndexName := 'DEFAULT_ORDER';
  ClientDataSet1.Last();
 
 
  for I := ClientDataSet1.FieldByName('OrderNo').AsInteger + 1 to ClientDataSet1.FieldByName('OrderNo').AsInteger + 10 do
  begin
    ClientDataSet1.Append();
    ClientDataSet1.FieldByName('OrderNo').AsInteger := I;
    ClientDataSet1.FieldByName('CustNo').AsInteger := i;
    ClientDataSet1.FieldByName('EmpNo').AsInteger := i * 10;
    ClientDataSet1.Post();
  end;
end;

[XeGregory]

C'est un cas particulier ce 'DEFAULT_ORDER', contrairement à un index utilisateur, il n'est pas présent dans IndexDefs

J'y vois un peu plus clair maintenant, donc rien ne peut m'indiquer que le champ contient une clé primaire

Coté ClientDataSet, on ne peut pas modifier ou récupérer les paramètres ?

Code :

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

<PARAMS DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="1033"/>

Merci

[SergioMaster]

Coté ClientDataSet, on ne peut pas modifier

il suffit de virer le code du fichier XML avant de l'ouvrir
et ... plus d'index

[XeGregory]

il suffit de virer le code du fichier XML avant de l'ouvrir
et ... plus d'index

Oui, j'y avais bien pensé, je pense que ça va être la solution.

[ShaiLeTroll]

il suffit de virer le code du fichier XML avant de l'ouvrir
et ... plus d'index

En même temps, il part d'un exemple de fichier fourni par Embarcadero, on peut se poser la question de savoir si le choix du fichier est pertinent
Et j'insiste que ne pas gérer la clé primaire c'est un contournement qui ne semble pas cohérent

[SergioMaster]

Bonjour,

on peut se poser la question de savoir si le choix du fichier est pertinent
Et j'insiste que ne pas gérer la clé primaire c'est un contournement qui ne semble pas cohérent

Totalement d'accord sur ces deux points

il part d'un exemple de fichier fourni par Embarcadero

Oui, j'ai déjà remarqué que cela pouvait pénaliser car, à priori ces fichiers XML via ClientDataset sont un peu spéciaux, je me demande même s'ils ne sont pas créés à partir d'une exportation du fichier .DB correspondant

[XeGregory]

Oui, j'ai déjà remarqué que cela pouvait pénaliser car, à priori ces fichiers XML via ClientDataset sont un peu spéciaux, je me demande même s'ils ne sont pas créés à partir d'une exportation du fichier .DB correspondant

Donc si j'ai bien compris indexation des champs se fait à la volée, ils ne sont pas pris en charge lors du CreateDataSet & SaveToFile ?

Merci