application error "exception edatabaseerror"

Version imprimable

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:

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 :

Citation:

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

03/04/2011, 12h28
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
03/04/2011, 17h43
ferrero_100

oui je suis sur de supprime cette composant (sql=query2) de l'application
http://img859.imageshack.us/img859/8...nstitredxf.png

Uploaded with ImageShack.us
03/04/2011, 21h09
skywaukers

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

@++
Dany
04/04/2011, 16h24
ferrero_100

sur cette ligne

Code:

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 ?
04/04/2011, 16h36
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 !
04/04/2011, 16h38
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.

@+
05/04/2011, 12h34
ferrero_100

merci c'est résolu
05/04/2011, 12h42
Cl@udius

Citation:

Envoyé par ferrero_100

merci c'est résolu

Tant mieux. :ccool:

Mais quel était le problème ?

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

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

Code:

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 .