Discussion :

[fredraoul]

Bonjour,
J'utilise Delphi 2005, et une base de données Paradox.
J'ai un clientDataSet (ici resRequete) dans lequel je stocke le resultat d'une requête SQL via un DataSetProvider. Jusqu'ici, tout va bien, je peux voir mes données dans le DBGrid associé.
Le problème est que je veux ajouter un champ 'num_agreg' dans ce ClientDataSet, et que quand je le fais, seul ce champ apparait dans le DBGrid. Pourtant, les autres champs existent toujours (je peux afficher leur nom).
Qu'est ce qui cloche ? Existe-t-il des filtres d'affichage qui se seraient activés à l'insu de mon plein gré ? (me recherches là dessus n'ont rien donné)

Voici mon code :

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
Query1.SQL.Clear;
Query1.SQL.Add(reqtemp);
Query1.ExecSQL;
resRequete.Open;
resRequete.Active:=false;
 
 
Field1:=TIntegerField.Create(resRequete);
with field1 do
begin
    fieldName:='num_agreg';
    fieldKind:=fkcalculated;
    DataSet:=resRequete;
    Name:=resRequete.Name+FieldName;
    resrequete.fieldDefs.Add(Name,ftinteger);
end;
 
resRequete.Active:=true;
resRequete.open;
DbGridResult.DataSource:=DataSource4;
DBGridResult.Visible:=True;

Par avance, merci pour vos réponses.

[Rayek]

Si le focntionnement est le même que pour le dbgrid lors d'un ajout de champs, tu es obligé d'ajouter tous les champs, sinon seul le champ, que tu ajoutes, est affiché. (s'il n'y a pas eu de création de champs dans la zone ajout/suppression de champ qui va bien du dbgrid)

[fredraoul]

Ok, merci.
C'est quand même plutôt ennuyeux...

Si j'ai bien compris, je suis obligé de faire une boucle pour recréer tous les anciens champs, puis ajouter les miens à la suite, puis inserer les données...

[Rayek]

Oui, mais si ta requete ne bouge pas, tu n'as qu'a les créer une fois pour toutes dans le ClientDataset

Mais bon ajouter dynamiquement les champs c'est pas très long à faire.

[fredraoul]

En effet, ma requête n'est pas fixe et je ne connais pas à l'avance les champs qu'elle retourne.
Pour ce qui est d'ajouter les champs dynamiquement, j'ai un peu cherché, et j'ai commencé une boucle qui récupère les noms des champs. Par contre, je ne vois pas comment créer les champs en fonction de ce qu'ils vont contenir (est ce que ça sera un TStringField, un TIntegerField), j'imagine qu'il faut que j'utilise la propriété " resRequete.FieldsDef[i].fieldClass ", mais je ne vois pas comment...

Merci pour ta patience...

[Rayek]

En effet, ma requête n'est pas fixe et je ne connais pas à l'avance les champs qu'elle retourne.
Pour ce qui est d'ajouter les champs dynamiquement, j'ai un peu cherché, et j'ai commencé une boucle qui récupère les noms des champs. Par contre, je ne vois pas comment créer les champs en fonction de ce qu'ils vont contenir (est ce que ça sera un TStringField, un TIntegerField), j'imagine qu'il faut que j'utilise la propriété " resRequete.FieldsDef[i].fieldClass ", mais je ne vois pas comment...

Merci pour ta patience...

Avec Fields.Fields[i] tu as tout ce qu'il te faut pour générer tes champs

Code :

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

1
2
3
 
for i := 0 to MaQuery.fieldcount -1 do
resrequete.fieldDefs.Add(MaQuery.Fields.Fields[i].FieldName,MaQuery.Fields.Fields[i].DataType );

[fredraoul]

C'est noté, et ça marche.
Merci beaucoup