Discussion :

[mario9]

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 :

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
 
 
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

Merci encore de partager votre expérience

Mario

[Ph. B.]

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.

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.

1. 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
2. Si vous affectez votre requête SQL via la propriété Text, la commande Clear précédente est inutile.
3. First après l'ouverture de votre ensemble de données est inutile.

Le code nettoyé :

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
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...

[SergioMaster]

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 SQL :

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

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 :

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
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;

[mario9]

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

[Ph. B.]

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
2. n'est pas votre ami, car vous auriez trouvé quelques pistes à explorer :
   

   Code :

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

   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.