Discussion :

[Tardiff Jean-François]

Bonjour,

J'ouvre des requêtes SQL via un TADOQUERY.

Je laisse l'ADOQUERY constituer automatiquement les champs, car je ne sais pas avant l'ouverture les champs qui seront retourner (Select * from ..). Les tables ne sont jamais identique

si je crée un champs calculer avant d'ouvrire le TAdoquery, les champs lus ne sont pas crées automatiquement.

si j'essaye de crée le champs calculé aprés l'ouverture (dans After open), l'association de champs au dataset ne peut pas être effecuter car le dataset est actif.

en 1 mot comme en 100, je tourne en rond. sans avoir que faire pour m'en sortir.

Voila le code que j'utilise pour créer le champs calculé

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  if FRecNo = nil then begin
    FRecNo := TStringField.Create(self);
    FRecNo.FieldName :=  'RecNoRecNoRecNoRecNoRecNoRecNo';
    FRecNo.DisplayLabel := 'Rec. No.';
    FRecNo.Name := Adoquery.Name + 'NomChamps';
    FRecNo.Size := 255;
    FRecNo.FieldKind := fkCalculated;
    FRecNo.DataSet := Adoquery;
  end;

Merci d'avance

[ShaiLeTroll]

tu peux essayer avec le "Select * from" de faire 'Select *, "0" as Dummy from' ainsi tu auras un bidon (cela fonctionne en MySQL) que tu peux ainsi modifier au moment opportun ... perso, je préfère cette méthode car j'ai toujours eu des chiasses avec les Calculated car soit la lib de la société qui m'employait ne les supportaient mal (composant DB hérité du TClientDataSet) ...

même en paradox, c'est possible, juste que * ne fonctione plus, mais il suffit de faire une requête donnant la liste des champs, pour générer son SQL explicite ...

[Tardiff Jean-François]

Créer un champs fixe, oui pourquoi pas, mais comment faite vous pour luis attribuer une valeur par la suite ?

Je vois pas bien comment faire, cependant en attendant votre réponse je vais quand même essayer de trouver.

[ShaiLeTroll]

Eh, bien, je fais une boucle qui lance le calcul, et je modifie le DataSet, bon attention, il faut qu'il soit en mode cache, en ADO, je ne sais pas trop, je ne le faisais que sur des ClientDataSet ou sur les composant MyDAC de CoreLab

après sinon, tu peux aussi faire des sous requêtes, je l'ai fait aussi pour des calculs de %

'Select *, (Select Count(*) from machin where Machin.cle = Chose.Clé) as Dummy from Chose'

sinon il reste le faire en deux temps

tu fais un 'Select * from truc where 0', cela te donne la structure de la table (tu peux stocker cela dès l'ouverture du programme), tu créé les colonnes dans ton DBGrid ... puis tu relance la vrai requête ...

[anapurna]

salut

tu veut faire un truc du genre ?

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
33
34
35
36
37
38
39
40
41
42
 
 
procedure Initialiser(const aFieldName : string ; 
                const aDataSet : TDataSet ; 
                const aDataSetNotifyEvent : TDataSetNotifyEvent) ; 
var 
  i : integer ; 
begin 
  if (not aDataSet.FieldDefs.Updated) then 
  begin 
    aDataSet.FieldDefs.Update ; 
 
    for i := 0 to aDataSet.FieldDefs.Count - 1 do 
    begin 
      aDataSet.FieldDefs[i].CreateField(aDataSet) ; 
    end ; 
 
    with TFloatField.Create(aDataSet) do 
    begin 
      FieldName := aFieldName ; 
      Name := aDataSet.Name + FieldName ; 
      Calculated := True ; 
      DataSet := aDataSet ; 
    end ; 
  end ; 
 
  aDataSet.OnCalcFields := aDataSetNotifyEvent ; 
end ; 
 
avec 
..... 
procedure TForm1.Table1CalcFields(DataSet: TDataSet); 
begin 
  DataSet.FieldByName('SOLDE').AsFloat := DataSet.FieldByName('COMPTE1').AsFloat + DataSet.FieldByName('COMPTE2').AsFloat ; 
end; 
..... 
procedure TForm1.FormShow(Sender: TObject); 
begin 
  Database1.Connected := True ; 
  Initialiser('SOLDE', Table1, Table1CalcFields) ; 
  Table1.Active := True ; 
end;

cela devrai marcher pour un query aussi

@+ Phil

[Tardiff Jean-François]

Bonjour,

Ou, cela fonctionne, mais l'ajout du chaqamps calculé est fait avant le "Table.Ative := true;" .
Par conséquence les champs du select ne sont pas créer automatiquement.

Pour l'instant, la seule solution que j'ai pus trouver, consiste à ouvrir un TAdoQuery, a copier le format des champs dans un autre ADOQuery, a ajouter les champs calculer dans le nouveau query puis à l'ouvrir avec la même requête.

Eventuellment je peux essayer un teste idot telle que "Where 1= 2" dans la requête du 1° Adoquery, cela m'éviterai de ramener des enregistrements (juste le format de la table).
Cela devrait fonctionner, mais ce n'est pas terrible comme solution, et certaines connections peuvent être très longue. alor ce connecter 2 fois, ce n'est pas le pied.