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