Discussion :

[maccloud]

Bonjour à tous !

Moi qui me disait solennellement que j'allais me passer de ce forum est solutionner tout seul mes problèmes Delphi.... c'est pas gagné.

L'erreur, c'est celle-ci :
Utilisation incorrecte du mot-clé

Le code c'est celui-ci dans laquelle est supposée se trouver la petite chose qui m'a pris deux heures de ma vie pour rien :

Code :

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

1
2
3
4
5
 
Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'") values(:a)');
        Query3.Params[0].AsString:=label11.Caption;
        Query3.ExecSQL;

Ma question est sans doute la même que tout ceux qui postent sur le net : "C'est quoi l'erreur ?" comme dirait l'autre...

Merci pour la lecture, et surtout merci pour la réponse ! parce qu'il est trois heures moins 20 et je sèche graaaaaaaaaaaaave...... !

Kevin

[SergioMaster]

il est 3h moins 20 ? ça se voit
Faut faire dodo les yeux

Code :

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

1
2
3
4
Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'") values(:a)');
        Query3.Params[0].AsString:=label11.Caption;
        Query3.ExecSQL;

Values est un mot réservé , bien sur, voir les insert
le select demandé ne serait pas plutot genre

Code :

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

SELECT prixentree FROM entree WHERE nomentree =:a)

ou alors

Code :

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

1
2
3
Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree  ="'+label11.Caption+'");
        Query3.ExecSQL;

[maccloud]

Je me suis mal exprimé avec la fatigue.
Ce que je cherche à faire, c'est récupérer le prix d'une entrée appelé [entree_ajout]. Entree_ajout fait référence à une string qui peut varier selon l'utilisateur, c'est donc pour ça qu'il est entre "'+/+'". Après l'avoir récupérée, je voudrais que le label11 me l'affiche mais mon véritable problème, c'est que je ne sais pas quel est le code pour récupérer les résultats d'une requête sql SELECT sous Delphi. J'ai pensé que ce serait la même que pour une INSERT mais non. Donc voila, je remets mon code :

Query3.sql.clear;
Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'") values(:a)');
Query3.Params[0].AsString:=label11.Caption;
Query3.ExecSQL;

Merci d'avance

[defluc]

Il ne faut pas utiliser les doubles quotes mais bien les simples.
Cela donne :

Code :

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

Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = '''+entree_ajout+''') values(:a)');

[SergioMaster]

Ce que je cherche à faire, c'est récupérer le prix d'une entrée appelé [entree_ajout]. Après l'avoir récupérée, je voudrais que le label11 me l'affiche

pour que label11 'récupére' la valeur il faut ouvrir la query3

Query3.Active:=True ou Query3.Open;
puis
Labe11.Caption:=Query3.FieldByName('PrixEntree').asString ; ou Query3.Field[0].asString ou .....
puis fermer
Query3.Active:=False ou Query3.Close;

je ne sais pas quel est le code pour récupérer les résultats d'une requête sql SELECT sous Delphi.

au risque de me répéter VALUES(:A) fait partie de la syntaxe d'un INSERT pas d'un SELECT

Code :

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

1
2
3
4
5
6
7
 
Query3.SQL.Active:=False;  // pour être sur
Query3.sql.clear;
Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'");
Query3.Active:=True;
Label11.Caption:=Query3.FieldByName('PrixEntree').asString;
Query3.Active:=False;

pour ce qui est des Quotes ou doubles Quotes les deux sont valides
il y a aussi QuotedStr(entree_ajout)

[maccloud]

Rebonjour, un grand merci pour vos réponses !
Je connaissais pas le query3.active par contre le open si, j'avais bêtement oublié....

Maintenant mon code est devenu cela :

Code :

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

1
2
3
4
5
6
        Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'")');
        Query3.open;
        Query3.Fields[0].asString:=label11.caption;
        Query3.close;

Et il ne fonctionne toujours pas lol. Je vous mets l'erreur :

Le projet XXX.exe a provoqué une classe d'exception EDBEngineError avec le message 'Utilisatin incorrecte du mot-clé.
Elément: )
Numéro de ligne 1'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Je ne sais vraiment pas ce que ça veut dire, mais avant que je ne modifie le code ci dessus, il me renvoyait à la ligne verte en la surlignant de bleu. Maintenant c'est pas a pas. JE me dis que lerreur doit probablement venir d'une autre ligne... Qu'en pensez-vous Sherlock?

[maccloud]

Rebonjour, un grand merci pour vos réponses !
Je connaissais pas le query3.active par contre le open si, j'avais bêtement oublié....

Maintenant mon code est devenu cela :

Code :

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

1
2
3
4
5
6
        Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'")');
        Query3.open;
        Query3.Fields[0].asString:=label11.caption;
        Query3.close;

Et il ne fonctionne toujours pas lol. Je vous mets l'erreur :


Je ne sais vraiment pas ce que ça veut dire, mais avant que je ne modifie le code ci dessus, il me renvoyait à la ligne verte en la surlignant de bleu. Maintenant c'est pas a pas. JE me dis que lerreur doit probablement venir d'une autre ligne... Qu'en pensez-vous Sherlock?

C'est bon, je viens de trouver. Une apostrophe mal placée :

Code :

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

Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'")';

Qui est devenu :

Code :

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

Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'"');

Plus c'est petit, plus c'est mignon il paraît... Plus c'est chiant !

Et maintenant, il me dit que ma table entree n'existe pas alors que pour pouvoir selectionner une entree, il faut qu'il ai listé toutes les occurences dans une listbox, ce qu'il fait très bien depuis le debut, et qu'il continue de faire.

En plus simple : j'active la form donc il va chercher les occurences et me les affiche toutes sans exeption. C'est cool. Et quand je veux qu'il aille chercher le prix d'une occurence donnée, l'erreur dit que la table n'existe pas...
Ca me fatigue............

Bizarrement, il recherche les fichiers de BD (entree.DB, entree.DBF, etc) dans le dossier de l'.exe). Donc pour remplir la listbox, il doit donc chercher ailleurs. La solution serait de lui signaler l'autre adresse à la place de la fausse donc....
Si c'était pas un pc portable, la souris ferait le deuil du clavier explosé contre le mur....
Sherlock? toujours avec moi?

[maccloud]

Rebonjour. Je vais reposer ma question sur un autre poste et marquer celui ci de résolu. Merci tous

[SergioMaster]

NON NON ET NON

Query3 est un SELECT donc tu récupère une valeur

ici tu veux modifier une valeur
Query3.Fields[0].asString:=label11.caption;

ce qui se fera peut-etre dans le dataset mais en aucun cas dans le fichier
(UPDATE)

[Rayek]

NON NON ET NON

Query3 est un SELECT donc tu récupère une valeur

ici tu veux modifier une valeur
Query3.Fields[0].asString:=label11.caption;

ce qui se fera peut-etre dans le dataset mais en aucun cas dans le fichier
(UPDATE)

Si c'est possible tant que la requete Select est mono-table.

Mais il faut qu'il modifie l'ecriture de son code

Code :

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

1
2
3
4
5
6
7
8
9
 
 Query3.sql.clear;
 Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'")');
 Query3.open;
 
 Query3.Edit; // On met la requete en mode édition
 Query3.Fields[0].asString:=label11.caption;
 Query3.Post; // on sauvegarde la modification
 Query3.close;

[SergioMaster]

Si c'est possible tant que la requete Select est mono-table.

exact, mais je ne pense pas que l'objectif était de modifier la valeur de la table
à la lecture du code il me semble que la query sert juste à recupéré la valeur

[Rayek]

exact, mais je ne pense pas que l'objectif était de modifier la valeur de la table
à la lecture du code il me semble que la query sert juste à recupéré la valeur

Peut être, faut dire que le post dérive un peu et on ne sait plus très bien ce qu'il en est

pour Récupérer la valeur de la requete et la mettre dans le label

Code :

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

1
2
3
4
5
6
 
Query3.sql.clear;
 Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree ="'+entree_ajout+'")');
 Query3.open;
 label11.caption := Query3.FieldByName('prixentree').asString;
 Query3.close;

[maccloud]

Rebonjour à tous
Temps radieux en cet apres-midi.
J'ai trouvé ma solution et voila le code :

Code :

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

1
2
3
4
5
6
 
Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = "'+entree_ajout+'"');
        Query3.open;
        label15.caption := Query3.Fieldbyname('prixentree').asString;
        Query3.close;

Maintenant, je n'ai plus d'erreur retournée mais un autre problème (Cmment je fais pour avoir plein de problème? Ne pas savoir ça est déjà un problème !)

Nous avions donc un label qui était sensé afficher le prix en fonction de la valeur de la variable "entree_ajout". Mais, le label n'affiche rien quand il recherche "'+entree_ajout+"' tandis que lorsque je remplace la var par la constante string : Exempletest (J'aurai au préalable créer cette occurrence), il me trouve le prix.
Problème SQL pure donc.... Des suggestions ?
merci, Kevin

[Rayek]

en général il vaut mieux ecrire d'une des manières suivantes (préférence pour al N°2 ^^)

1)

Code :

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

1
2
3
4
5
 
      Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = '+QuotedStr(entree_ajout));
        Query3.open;
        label15.caption := Query3.Fieldbyname('prixentree').asString;
        Query3.close;

2)

Code :

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

1
2
3
4
5
 
    Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = :ENTREE');
    Query3.PAramCheck := True;
    Query3.ParamByName('ENTREE').Value := entree_ajout;
    Query3.open;

[maccloud]

Aucune des deux ne fonctionnent. Je vais vous poster la procédure entière du bouton d'ajout d'entrer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
      begin
        ajouter_entree_s(entree_ajout,listeentree,composelection);
        s.nb_entree:=listeentree.itemindex;
        nbr_de_entree(label7,composelection);
        Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = '+QuotedStr(entree_ajout));
        Query3.open;
        label15.caption := Query3.Fieldbyname('prixentree').asString;
        Query3.close;
      end;

Comme vous le voyez, il y a un appel a une procedure. Je vous la poste ici :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure ajouter_entree_s(entree_ajout:string;listeentree,composelection:Tlistbox);
var
pos:integer;
begin
  pos:=listeentree.ItemIndex;
  entree_ajout:=listeentree.Items[pos];
  composelection.Items.Add(entree_ajout);
end;

J'espère que ca vous aide
Kevin

[SergioMaster]

est-tu sur de ta valeur en sortie de ajouter_entree_s ?
où et comment est déclaré entree_ajout ?

j'ai bien peur que la procedure ajouter_entree_s considère entree_ajout comme une variable locale ?

un moyen ? la transformer en fonction ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function ajouter_entree_s(listeentree,composelection:Tlistbox) : String;
var
pos:integer;
begin
  pos:=listeentree.ItemIndex;
  result:=listeentree.Items[pos];
  composelection.Items.Add(entree_ajout);
end;
 
et alors :
Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = '+QuotedStr(ajouter_entree_s(listeentree,composelection));

ou alors modifier la déclaration de la procédure mais là je suis moins sur de moi, a tester

Code :

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

procedure ajouter_entree_s(var entree_ajout:string;listeentree,composelection:Tlistbox);

enfin bref je crois que le pb ne vient pas du SQL

[maccloud]

Problème Résolu !
Loook :

Code :

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

1
2
3
4
5
6
7
8
9
ajouter_entree_s(entree_ajout,listeentree,composelection);
        s.nb_entree:=listeentree.itemindex;
        nbr_de_entree(label7,composelection);
        Query3.sql.clear;
        Query3.SQL.Add('SELECT prixentree FROM entree WHERE nomentree = "'+entree_ajout+'"');
        Query3.open;
        label15.caption := Query3.Fieldbyname('prixentree').asString;
        Query3.close;

et Sergio, tu avais raison :

Code :

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

1
2
3
4
5
6
7
8
9
procedure ajouter_entree_s(var entree_ajout:string;listeentree,composelection:Tlistbox);
var
pos:integer;
begin
  pos:=listeentree.ItemIndex;
  entree_ajout:=listeentree.Items[pos];
  composelection.Items.Add(entree_ajout);
end;

C'EST DONC RESOLU UN GRAND MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIII

Kevin

[Rayek]

Penses à cliquer sur

[maccloud]