Insertion dans une query

Citation:

---

Envoyé par freud

pour inserer on va utiliser la même query qui filtre :

Code:

---

1 2 3 4 5 6 7 8 9

annee:=form1.dblookupcombobox1.text ; Query1.close;   Query1.SQL.Clear('SELECT Article,Code_article FROM article');//la clause WHERE c'est mieux mais du moment que vous avez opter pour le filtre ....   Query1.open; Query1.filtered:=true; Query1.Filter:='annee='+quotedstr(annee);

---

ensuite vous faite votre insertion :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm4.Button1Click(Sender: TObject); Var Param1,Param2,annee :String; Begin Param1:=Edit1.Text; Param2:=Edit2.Text;   Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('insert into Article (Article,Code_article) values(:Param1,:Param2)'); Query1.ParamByName('Param1').AsString :=Edit1.Text; Query1.ParamByName('Param2').AsString := Edit2.Text; Query1.ExecSQL;

---

et juste aprés l'insertion refaite la requete SELECT filtrée

Code:

---

1 2 3 4 5 6

Query1.close; Query1.SQL.Clear('SELECT Article,Code_article FROM article');//la clause WHERE c'est mieux mais du moment que vous avez opter pour le filtre .... Query1.open; Query1.filtered:=true; Query1.Filter:='annee='+quotedstr(annee);//pour anne il faut mettre une année par défaut.....

---

---

Mais je vois pas cette ligne exacte: Query1.SQL.Clear('SELECT Article,Code_article FROM article')

Meme si on utilise add a la place de clear ça plante et donne le message suivant utilisation incorrecte du mot clé element select

Code:

---

1 2	Query1.SQL.Clear('SELECT Article,Code_article FROM article');

---

pardon

Code:

---

1 2 3

Query1.SQL.Clear Query1.SQL.Add('SELECT Article,Code_article FROM article');

---

Citation:

---

Envoyé par freud

Code:

---

1 2	Query1.SQL.Clear('SELECT Article,Code_article FROM article');

---

pardon

Code:

---

1 2 3

Query1.SQL.Clear Query1.SQL.Add('SELECT Article,Code_article FROM article');

---

---

Encore un probleme de parametrage
Revenons a la requette select Article ,Code_article ;cette requette ne peut pas etre filtrée parce qu'on filtre selon l'annee donc la requette select Article ,Code_article,Annee From Article et cela se pose un probleme de parametrage

oui bien sûr avais-je la tête il te manque le champ annee dans le SELECT et ce n'est pas un paramètre.:D

Code:

---

1 2	Query1.SQL.Add('SELECT Article,Code_article,annee FROM article');

---

Sinon tu fait carrement une clause WHERE pour eviter le filtre ? :

Code:

---

1 2 3 4

Query1.SQL.Add('SELECT Article,Code_article FROM article WHERE (annee=:Param1)'); Query1.ParamByName('Param1').AsString:='annee'; Query1.Open;

---

Normalement ca aurait dû marcher avec le filtre en rajoutant le champ manquant ?

Voilà un modèle de requête possible

Code:

---

1 2 3 4 5 6

INSERT INTO "Articles.DB" (Annee, NumArticle, PrixUnitaire) SELECT 2008, D1.NumArticle, D1.PrixUnitaire FROM "Articles.DB" D1 WHERE (D1.Annee = 2007)

---

Citation:

---

Envoyé par ALWEBER

Voilà un modèle de requête possible

Code:

---

1 2 3 4 5 6

INSERT INTO "Articles.DB" (Annee, NumArticle, PrixUnitaire) SELECT 2008, D1.NumArticle, D1.PrixUnitaire FROM "Articles.DB" D1 WHERE (D1.Annee = 2007)

---

---

Mais je parle en general pas precisement 2007;2008

L'exemple d'ALWEBER n'était qu'un aperçu de la requête "finale" telle qu'on pourrait l'avoir quand tu codes dans l'analyseur de requête. Evidemment après il faut remplacer 2008 et 2007 par des :param1 et :param2 puis les valuer comme dans les exemples précédents.

Sachant quand même que pour utiliser ce genre du requête tu dois savoir donc auparavant l'année de départ (2007) et l'année cible (2008). Donc il faut avoir fait en sorte que l'utilisateur ait choisit ces dates avant de lancer l'exécution de cette requête.