Discussion :

[ferrero_100]

bonjour ,
j'ai un application sous Delphi j’aimerais bien savoir pourquoi le message affiché chaque exécution du programme même j'ai supprimé composant query2 sur cette application et j'ai remplacement par query3
pour information pas d'alias sur sql
source :

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
if label5.Caption='2007' then
begin
Query3.DatabaseName:='archive2007';
Query3.SQL.Clear;
Query3.SQL.Add('select* from f_pratic');
Query3.open;
Query3.Filter:='';
Query3.Filtered:=false;
Query3.Filter:='COD_SERV='''+copy(combobox4.Text,1,3)+'''';
Query3.Filtered:=true;
Query3.First;
while not Query3.Eof do
begin
combobox6.Items.Add(Query3.fieldbyname('COD_PRAT').asstring+'   '+Query3.fieldbyname('NOM_PRAT').asstring+' '+Query3.fieldbyname('PRE_PRAT').asstring);
Query3.Next;
end;
end;

message Error comme suite :

exception edatabaseerror in module archive.exe at 00090FA0.
Query2:filed 'service' not found

[skywaukers]

bonjour,

es-tu sûr de n'avoir aucun autre composant Query2 ? Parce que c'est étrange qu'il cite un Query2 si il n'y en a pas.

@++
Dany

[ferrero_100]

oui je suis sur de supprime cette composant (sql=query2) de l'application


Uploaded with ImageShack.us

[skywaukers]

tu as tracé l’exécution, c'est sur quelle ligne qu'il te met ce message ?

@++
Dany

[ferrero_100]

sur cette ligne

Code :

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

  Application.CreateForm(TForm4, Form4);

peut etre j'ai un problème de pilote de paradox7 ou BDE

quant j'ai ouvrier le BDE j'ai un marque sur cette alias ?

[ShaiLeTroll]

Evidemment nous sommes devin, nous allons deviner tout ce que contient le constructeur ou le OnCreate de Form4 !

Tu ne mélange pas des Query avec des champs prédéfinis par l'IDE et les mêmes Query dont tu redéfinis le SQL en RunTime ?

Query2, Query3, Form4, j'espère que c'est pour un prototype ou une étude de faisabilité que tu laisse ce nommage automatique !

Tu n'es pas francophone de naissance ? tu peux au pire utiliser un peu d'anglais parce que "quant j'ai ouvrier le BDE j'ai un marque sur cette alias ?" ça ne veut absolument rien dire !

[Cl@udius]

Salut

Lors de la création TForm4, il doit y avoir un Open sur ce Query2.

As-tu défini des champs persistants sur Query2 ?
Si oui, as-tu défini un champ nommé "service" ?
Et enfin dernière question: le select de Query2 inclut-il ce champ ?

Car si le champ persistant existe et que celui-ci est absent du select, cela expliquerait l'erreur.

@+

[ferrero_100]

merci c'est résolu

[Cl@udius]

merci c'est résolu

Tant mieux.

Mais quel était le problème ?

Puis n'oublie pas de cliquer sur le bouton juste en dessous de ce message.

[ferrero_100]

j'ai fait deux chose <>
1/ dans la source

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
if label5.Caption='2007' then
begin
Query3.DatabaseName:='archive2007';
Query3.SQL.Clear;
Query3.SQL.Add('select* from f_pratic');
Query3.open;
Query3.Filter:='';
Query3.Filtered:=false;
Query3.Filter:='COD_SERV='''+copy(combobox4.Text,1,3)+'''';
Query3.Filtered:=true;
Query3.First;
while not Query3.Eof do
begin
combobox6.Items.Add(Query3.fieldbyname('COD_PRAT').asstring+'   '+Query3.fieldbyname('NOM_PRAT').asstring+' '+Query3.fieldbyname('PRE_PRAT').asstring);
Query3.Next;
end;
end;

et meme dans properties de sql

merci .