Discussion :

[forzaxelah]

Re!!!

Bon j'ai un léger probleme!

J'ai une ereur du type EDatabaseError avec "QArbo, le champ 'Index_FL_2 non trouvés"

Alors qu'il existe! voici mon code en entier :

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
VAR
concatener,concatener2 : String[50];
begin
IF Treeview2.Selected.Level <> 0 THEN
BEGIN
concatener := 'Functional_Level_' + IntToStr(TreeView2.Selected.Level);
concatener2 := 'Index_FL_' + IntToStr(TreeView2.Selected.Level);
WITH DataModule1.QArbo Do
BEGIN
SQL.Clear;
SQL.Add('SELECT * FROM Arbo_Fonctionelle');
SQL.Add('WHERE '+ QuotedStr(concatener)+' = '+ QuotedStr(TreeView2.Selected.Text)+'');
ExecSQL;
IFL_Label.Caption := FieldByName(''+ QuotedStr(concatener2)+'').AsString;
END;
END;
end;

Vous sauriez pourquoi vous...???

[maamar1979]

je pense qu'il faut supprimer le QuotedStr mon ami . pi donne nous + de détaille.

salam.

[forzaxelah]

ok!

En fait j'ai un TreeView à 6 niveaux.

Quand je clique sur un niveau, il prend donc le texte et le niveau en compte.

Ensuite ma requete v juste afficher dans un caption l'index correspondant à ce que l'utilisateur a cliqué.
Donc comme on ne sait pas à quel niveau c'est je dois donc faire des variables qui prennent en compte ce qu'a cliqué l'user.

Comme les champs de mes tables correspondent aux niveaux (par exemple on va dire ici Index_FL_4 si c'estniveau 4 etc...)

D'ou ma requete...Donc je dois mettre un champ "variable" dans mon FieldByName ...

[Rayek]

faut écrire :

Code :

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

1
2
3
4
 
IFL_Label.Caption := FieldByName(''+ ''+ ''+ ''+ ''+''
 +'' +'' +''+ concatener2+''+''+''+''+''+ ''+ ''+'' +''+''+
''+''+''+''+'').AsString;

tant qu'a mettre des éléments inutiles en trop

sinon écrit simplement :

Code :

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

1
2
 
IFL_Label.Caption := FieldByName(concatener2).AsString;

Bien sur la valeur de concatener2 doit être un champ de la base de données.

[forzaxelah]

lol.

C'est bien ce que je pensais, mais je viens de tester et j'ai toujours la même erreur. C'est rageant car le champ existe bien dans ma table!!!

Rappel code:

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
procedure TForm1.ArboFonctIndex(Sender: TObject);
VAR
concatener,concatener2 : String[50];
begin
IF Treeview2.Selected.Level <> 0 THEN
BEGIN
concatener := 'Functional_Level_' + IntToStr(TreeView2.Selected.Level);
concatener2 := 'Index_FL_' + IntToStr(TreeView2.Selected.Level);
WITH DataModule1.QArbo Do
BEGIN
SQL.Clear;
SQL.Add('SELECT * FROM Arbo_Fonctionelle');
SQL.Add('WHERE '+ QuotedStr(concatener)+' = '+ QuotedStr(TreeView2.Selected.Text)+'');
ExecSQL;
IFL_Label.Caption := FieldByName(concatener2).AsString;
END;
END;
end;

[Rayek]

Avant le ExecSQL

Code :

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

1
2
 
SQL.SaveTofile(ExtractFilePatch(Application.Exename) + 'SQLTest.Txt');

Puis va voir à quoi ressemble ta requete dans le fichier texte et test la directement dans la base de données.

[Edit] ... une requete Select c'est avec Open que tu l'ouvres pas avec un ExecSQL (il ne renvoi pas d'ensemble de données).[/edit]

[forzaxelah]

le hic est que la requete me met:

Code :

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

1
2
SELECT * FROM Arbo_Fonctionelle
WHERE 'Functional_Level_2' = 'Alimenter la locomotive en énergie électrique'

donc les " ' ' " sont en trop dans ma requete...

[Rayek]

Code :

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

1
2
 
WHERE 'Functional_Level_2' = 'Alimenter la locomotive en énergie électrique'

A bannir dans le développement de base de données. Des critères de ce style c'est franchement pas le top pour la base de données et pour la recherche.

Sinon lit aussi l'Edit de mon post.

le hic est que la requete me met:

Code :

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

1
2
SELECT * FROM Arbo_Fonctionelle
WHERE 'Functional_Level_2' = 'Alimenter la locomotive en énergie électrique'

donc les " ' ' " sont en trop dans ma requete...

Et oui, c'est en trop, tu lui demande si Toto=Tata et après tu lui demande de te donner la valeur d'un champ qui n'existe pas (vu que la requete n'aura jamais de résultat).

il faut que tu rajoutes une condition dans ton code

Code :

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

1
2
3
4
5
6
 
if RecordCount > 0 then
begin
 // traitement
end else
  Showmessage('Aucun enregistrement pour ce critère')

[forzaxelah]

Ok merci, t'en fais pas j'avais lu ton edit!!!

merki