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?