requête SQL sous delphiRésolu

Question

ma questions concerne sql mais je vais comeme la poser ici puisque je travaills sous delphi. voici la requétte : DELETE from Stock WHERE Stock.N_Lot ( select Detail1.N_Lot from Detail1 JOIN Aprovisionnements on (Aprovisionnements.N_Service :N_Ser) and (Aprovisionnements.N_Apr = Detail1.N_Apr) ) le :N_Ser est un parametre qui est egale a 1 par exemple. g essayer directement aussi : DELETE from Stock WHERE Stock.N_Lot ( select Detail1.N_Lot from Detail1 JOIN Aprovisionnements on (Aprovisionnements.N_Service 1) and (Aprovisionnements.N_Apr = Detail1.N_Apr) ) il me sorte la meme ereure : Ereure a la creation du handle du curseur a noter que meme quand j'utilise directement DELETE from Stock il me sorte la meme ereure sauf que cette fois il efface les enregistrements.

cs_Delphiprog · Accepted Answer

Ok.
En regardant la requ&#234;te SQL de plus pr&#232;s, je m'interroge sur l'utilit&#233; de demander une jointure avec la table approvisionnements. Cela n'a aucun sens et la requ&#234;te peut &#234;tre simplifi&#233;e ainsi :
DELETE FROM Stock 
WHERE N_Lot =  ANY ( SELECT N_Lot 
                                      FROM Detail1 
                                      WHERE Date_Per < "01/01/2005" )

En clair : 
Supprimer les enregistrements de la table Stock pour lesquels le champ N_Lot figure dans une liste contenue dans la table Detail1 et pour laquelle le champ Date_Per est inf&#233;rieur &#224; 01/01/2005. C'est bien cela ?

Autre fa&#231;on d'&#233;crire cette requ&#234;te :
DELETE FROM Stock 
WHERE N_Lot IN ( SELECT N_Lot 
                              FROM Detail1 
                               WHERE Date_Per < "01/01/2005" )

May Delphi be with you !

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

Merci de pr&#233;ciser quelle base de donn&#233;es tu utilises.

May Delphi be with you !

cs_Delphiprog · Answer

Autre question : tu ex&#233;cutes ta requ&#234;te en appelant la m&#233;thode Open ou la m&#233;thode ExecSql dans le code source delphi ?

May Delphi be with you !

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

toubal_99 · Answer

j'utilise paradox, et j'execute la requette avec la methode Open

StockBr.SQL.Clear; StockBr.SQL.Add('DELETE from Stock WHERE Stock.N_Lot ( select Detail1.N_Lot from Detail1 JOIN Aprovisionnements on  (Aprovisionnements.N_Service :N_Ser) and (Aprovisionnements.N_Apr = Detail1.N_Apr) )');
StockBr.ParamByName('N_Ser').AsInteger:=StrToInt(Dbgrid4.SelectedField.DisplayText);
StockBr.Open;

cs_Delphiprog · Answer

Alors dans ce cas c'est normal que tu obtiennes ce message d'erreur.
Seules les requ&#234;tes renvoyant un ensemble de donn&#233;es (select) doivent &#234;tre ex&#233;cut&#233;es en utilisant la m&#233;thode Open.
Dans les autres cas (delete, update, insert), il faut utiliser la m&#233;thode ExecSql du composant TQuery.

May Delphi be with you !

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

toubal_99 · Answer

je v essayer et je vous confirme si ca marche merci

toubal_99 · Answer

la g pas de message d'ereure aparament c bon sauf que ca n'efface pas les enregistrements g verifier les clauses elle sonts corectes.

toubal_99 · Answer

voici un exemple de la requette : DELETE FROM Stock WHERE Stock.N_Lot ( SELEC N_Lot FROM Detail1 JOIN Aprovisionnements on (Aprovisionnements.N_Service 1) AND (Aprovisionnements.N_Apr = Detail1.N_Apr) AND (Detail1.Date_Per < "'01/01/2005'") )

toubal_99 · Answer

merci beacoup de votre aide ca a marcher , j'espere que ca serviras au autres !
encor 1000000 merci

naimolphe · Answer

bonjour 

jai fait le insert avec le tquery mais le message derreur suivant saffiche :

general error
'string  or binary data would be trancated'
'the statement has been terminated' process stopped use step or run to continu'


voila le progran que jai fait :
procedure TForm1.Button2Click(Sender: TObject);
var requete : string;
begin

requete := 'insert into tableclient (code_client,nom_client,prenom_client,adresse_client,mail_client,tel_client,portable_client) values(:x1,:x2,:x3,:x4,:x5,:x6,:x7)';

form2.Query1.SQL.Clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').asinteger := strtoint(edit1.text);
form2.query1.parambyname('x2').asstring := edit2.text;
form2.query1.parambyname('x3').asstring := edit3.text;
form2.query1.parambyname('x4').asstring := edit4.text;
form2.query1.parambyname('x5').asstring := edit5.text;
form2.query1.parambyname('x6').asinteger := strtoint(edit6.text);
form2.query1.parambyname('x7').asinteger := strtoint(edit7.text);
form2.query1.execsql;

end;

merci

cs_Delphiprog · Answer

@naimolphe :
1- dans le code de la requête d'insertion que tu donnes, je ne vois que 6 noms de champs alors que tu essaies d'insérer 7 valeurs. S'agit-il d'une simple erreur de copier/coller ?

2- Quand tu insères des valeurs de type chaine, il est préférable (voire indispensable) d'utiliser la fonction QuotedStr :
form2.query1.parambyname('x2').asstring := QuotedStr(edit2.text);
Ca évite que le moteur d'analyse de la requête ne soit obligé d'interpréter une chaine avec un guillemet comme le fin de la requête.

Enfin, de grace, allégez vos codes en évitant les formes répétitives. Au lieu de :
form2.query1.parambyname('x1').asinteger := strtoint(edit1.text); form2.query1.parambyname('x2').asstring := edit2.text; form2.query1.parambyname('x3').asstring := edit3.text; form2.query1.parambyname('x4').asstring := edit4.text; form2.query1.parambyname('x5').asstring := edit5.text; form2.query1.parambyname('x6').asinteger := strtoint(edit6.text); form2.query1.parambyname('x7').asinteger := strtoint(edit7.text); form2.query1.execsql; end;

N'est-il pas plus agréable de lire ceci :
with Form2.Query1 do
begin
   parambyname('x1').asinteger := strtoint(edit1.text);
   parambyname('x2').asstring := edit2.text; 
   parambyname('x3').asstring := edit3.text; 
   parambyname('x4').asstring := edit4.text; 
   parambyname('x5').asstring := edit5.text; 
   parambyname('x6').asinteger := strtoint(edit6.text);    
   parambyname('x7').asinteger := strtoint(edit7.text); 
   execsql; 
end;

Tous les langages n'offrent pas cette faculté et cette légèreté d'écriture. Alors, pourquoi ne pas l'utiliser ?

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

haceneking · Answer

bonjour
j'aurais bien besoin d'aide pour apprendre a integrer des requetes sql dans ma programmation sous delphi 7 en utilisant des bases de données paradox et si c possible par un ptit exemple en tuto qui va etape par etape
je vous remercie d'avance

Requête SQL sous delphi

12 réponses

Votre réponse

Discussions similaires