[X10-Firedac]Remplir un combox avec Fquery

Version imprimable

1 pièce(s) jointe(s)

Bonjour

J'ai un erreur quand j'essais de remplir mon combobox

La premiere fois j'ai un erreur mais la 2eme fois ca passe je ne vois pas pourquoi.

Code:

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
 
 
procedure TFcalcul.CregionChange(Sender: TObject);
begin
 REGION:=CREGION.Text;
 
   FCALCUL.FDQuery1.Close;
   FCALCUL.FDQuery1.SQL.Clear;
 
 
   FCALCUL.fdquery1.SQL.TEXT:='select * from poste WHERE RRECODE =:R';
                                                FCALCUL.fdquery1.ParamByName('R').asString:=region;
 
   FCALCUL.FDQuery1.active:=true;
   FCALCUL.fdquery1.First;
   FCALCUL.cSOUSPOSTE.items.clear();
   while  not FCALCUL.fdquery1.Eof do
       begin
         FCALCUL.cSOUSPOSTE.items.add(fdQuery1.FieldByName('rregion').asString);// bloque ici si j'enleve cette ligne show m'affiche bien les résultats
 
       //   showmessage(FCALCUL.fdQuery1.FieldByName('rregion').asString);
 
         FCALCUL.fdquery1.next;
     end;
 
     FCALCUL.fdquery1.active:=FALSE;
 
end;
 
message d'erreur

Pièce jointe 192327

Merci encore de partager votre expérience

Mario

Bonjour,

Citation:

Envoyé par mario9

J'ai un erreur quand j'essais de remplir mon combobox

La premiere fois j'ai un erreur mais la 2eme fois ca passe je ne vois pas pourquoi.

Merci encore de partager votre expérience

Pensez à utiliser la balise [ CODE ] et non pas [ QUOTE ]

Je ne vois rien de problématique sur cette partie de code hormis qu'elle est très mal écrite.

On n'utilise pas une instance de classe dans une méthode de cette même classe, ou alors on utilise Self. cf ceci : http://www.developpez.net/forums/d15...s/#post8208688
Si vous affectez votre requête SQL via la propriété Text, la commande Clear précédente est inutile.
First après l'ouverture de votre ensemble de données est inutile.

Le code nettoyé :
Code:

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 procedure TFcalcul.CREGIONChange(Sender: TObject); begin REGION := CREGION.Text; if FDQuery1.Active then FDQuery1.Close; //FDQuery1.SQL.Clear; FDQuery1.SQL.TEXT := 'select * from poste where RRECODE = :R'; FDQuery1.ParamByName('R').AsString := REGION; FDQuery1.Active := True; //FDQuery1.First; cSOUSPOSTE.Items.Clear(); while not FDQuery1.Eof do begin cSOUSPOSTE.Items.Add(FDQuery1.FieldByName('rregion').AsString); // showmessage(FCALCUL.fdQuery1.FieldByName('rregion').asString); FDQuery1.Next; end; FDQuery1.Active := False; end;
L'erreur doit se produire ailleurs. posez des points d'arrêt dans votre code (F5) et exécutez le pas à pas (F7, F8, etc) pour identifier la ligne réellement en cause.
En mode Debug, vous pouvez aussi lors du déclenchement capturé par l'EDI, cliquer sur Arrêter puis regarder dans la pile d'appel l'instruction en cause...

Bonjour

pour rajouter quelques couches à ce que dit Philippe,
de manière générale il vaut mieux indiquer dans le select les champs que l'on veut obtenir donc

Code:

select rrRegion from poste where RRECODE = :R

puisqu'il s'agit certainement d'une requête ponctuelle plutôt que d'encombrer inutilement la forme créez la requête au runtime, en n'oubliant pas de la libérer
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TFcalcul.CREGIONChange(Sender: TObject); var AQuery : TFDQuery; begin // REGION := CREGION.Text; // utile ? AQuery:=TFDQuery.Create(nil); try AQuery.Connection:=FDConnection1; AQuery.SQL.TEXT := 'select rrRegion from poste where RRECODE = :R'; AQuery.ParamByName('R').AsString := CREGION.Text; AQuery.Active:=True; cSOUSPOSTE.Items.Clear(); while not AQuery.Eof do begin cSOUSPOSTE.Items.Add(AQuery.FieldByName('rregion').AsString); AQuery.Next; end; AQuery.Active := False; finally AQuery.Free; end; end;

11/11/2015, 19h47
mario9

1 pièce(s) jointe(s)

[X10-Firedac]Remplir un combox avec Fquery

Merci pour vos réponses

J'ai un autre erreur qui arrive quand je veux enregistrer mes données j'ai cette erreur et je ne trouve pas pourquoi.

Merci

Mario
11/11/2015, 21h37
Ph. B.
Citation:

Envoyé par mario9

J'ai un autre erreur qui arrive quand je veux enregistrer mes données j'ai cette erreur et je ne trouve pas pourquoi.
1. Il s'agit d'un autre problème, il eut été judicieux d'ouvrir une autre fil de discussion et de passer celui-ci en :resolu:
2. :google: n'est pas votre ami, car vous auriez trouvé quelques pistes à explorer :
  Code:
  
  1 2 FDConnection1.Params.Add('SharedCache=False'); FDConnection1.Params.Add('LockingMode=Normal');
3. Assurez vous que votre application n'a pas laissé une opération "pendante" (insert, update, delete) qui verrouille la base de données.