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 .