Insertion dans une query

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/03/2008, 19h56
gentilman_delphi

Insertion dans une query

Bon soir

J'ai une query de 2 tables paradox et un dbgrid qui affiche les resultats de la requette
la table1 est une table des annee
la table2 est une des articles
la requette affiche les resultats de table article dans une annees designees
et maintenant je veux ajouter des autres articles dans la table article

Comment faire
Merci:cry:
12/03/2008, 20h01
freud

Bonsoir,

Vous voulez dire inserer des articles par année ?
12/03/2008, 20h07
gentilman_delphi

Citation:

Envoyé par freud

Bonsoir,

Vous voulez dire inserer des articles par année ?

Non;la requette est filtré elle donne les articles suivant l'annee voulu

J'explique: j'ai un projet gestion des stocks
A chaque fin d'annee nous devons cloturer l'annee et demarrer une nouvelle annee dont les valeurs initiales de l'annee( 200x+1) sont les valeurs finale de l'annee (200x)

oui mais si il s'agit tout simplement d'inserer un article par query alors

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Var
Qry:TQuery;
Begin
 
Qry:= TQuery.Create(nil);
Qry.SessionName:='Default'; //ou si tu as un composant session Session1.SessionName;
Qry.DatabaseName:='alias',
Qry.SQL.Clear;
 
Qry.SQL.Add('Insert Into ARTICLE (CodeArticle,Designation,Pu,Annee) VALUES (:Code_article,:Libelle,:Prix,:Annee)');
 
Qry.ParamByName('Code_article').AsInteger:=Code_article;
Qry.ParamByName('Libelle').AsString:=Libelle;
Qry.ParamByName('Prix').AsCurrency:=Prix;
Qry.ParamByName('Annee').AsInteger:=Annee;
Qry.ExecSQL;
Qry.Free;
End;

12/03/2008, 20h37
freud
Code_article,Libelle,Prix,Annee sont des variables qui recoivent les valeurs des edits lors de la saisie et pour Annee ont peut faire :
Code:

1 2 Annee:=YearOf(Date);
Pour la fonction YearOf on inclus l'unité DateUtils
12/03/2008, 21h08
gentilman_delphi
Citation:
Envoyé par freud

Code_article,Libelle,Prix,Annee sont des variables qui recoivent les valeurs des edits lors de la saisie et pour Annee ont peut faire :

Code:

1 2 Annee:=YearOf(Date);

Pour la fonction YearOf on inclus l'unité DateUtils
C'est bon
Mais lors de l'affichage; il parrait que que query n'etait pas active;c'est a dire que le dbgrid de query est vide :(
12/03/2008, 21h19
freud

alors juste aprés la requête d'insertion tu refais ta requête qui filtre, tu ferme la requête et la réouvre
12/03/2008, 21h34
gentilman_delphi

Citation:

Envoyé par freud

alors juste aprés la requête d'insertion tu refais ta requête qui filtre, tu ferme la requête et la réouvre

J'ai pas compris tu ferme la requête et la réouvre
12/03/2008, 21h43
freud
La query que tu filtre et qui est lier au dbgrid aprés l'insertion elle doit-être fermer puis réouverte
Code:

1 2 3 Qry.close; Qry.open;
12/03/2008, 21h46
freud

tu as bien une query qui filtre et qui est lier au dbgrid ?
13/03/2008, 19h58
gentilman_delphi

Bon soir

ma requette plante dans la ligne

Qry.ExecSQL
13/03/2008, 23h31
freud

Bonsoir,

Tu peux poster ton code ?

Citation:

Envoyé par freud

Bonsoir,

Tu peux poster ton code ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm4.Button1Click(Sender: TObject); begin Form2.Query1.SQL.Clear; Form2.Query1.SQL.Add('insert into Article (Article,Code_article) values(:edit1.text,:edit2.text)'); Form2.Query1.ParamByName('Edit1.Text').AsString :='Article'; Form2.Query1.ParamByName('Edit2.Text').AsString := 'Code_article'; Form2.Query1.ExecSQL; Form2.Query1.free; Form2.Query1.Filter:='Annee='+form1.dblookupcombobox1.text +'' ; Form2.Query1.Filtered:=true; Form2.Query1.open; Form2.Query1.close; close; end;
Explication

-query se trouve dans form2
-dblookupcombobox1 se trouve dans form1
-dans form2 il existe un bouton a pour caption :ajouter
-on click de bouton ajouter :form4.show
-un bouton dans form4 a pour caption :valider
-on click de bouton valider:le code qu'on descute

Si j'ai cbien compris Query1 c'est composant dans lequel tu fait un SELECT puis tu filtre .....??? alors ton insertion tu la fait dans un autre composant puisque tu ne le fais pas dynamiquement.. et pas besoin de mettre le free
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TForm4.Button1Click(Sender: TObject); Var Param1,Param2,annee :String; Begin annee:=form1.dblookupcombobox1.text ; Param1:=Edit1.Text; Param2:=Edit2.Text; Form2.Query2.SQL.Clear; Form2.Query2.SQL.Add('insert into Article (Article,Code_article) values(:Param1,:Param2)'); Form2.Query2.ParamByName('Param1').AsString :=Edit1.Text; Form2.Query2.ParamByName('Param2').AsString := Edit2.Text; Form2.Query2.ExecSQL; Form2.Query1.close; Form2.Query1.open; Form2.Query1.filtered:=true; Form2.Query1.Filter:='annee='+quotedstr(annee); close; //pourquoi le close ? end;

Citation:
Envoyé par freud
Si j'ai cbien compris Query1 c'est composant dans lequel tu fait un SELECT puis tu filtre .....??? alors ton insertion tu la fait dans un autre composant puisque tu ne le fais pas dynamiquement.. et pas besoin de mettre le free
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TForm4.Button1Click(Sender: TObject); Var Param1,Param2,annee :String; Begin annee:=form1.dblookupcombobox1.text ; Param1:=Edit1.Text; Param2:=Edit2.Text; Form2.Query2.SQL.Clear; Form2.Query2.SQL.Add('insert into Article (Article,Code_article) values(:Param1,:Param2)'); Form2.Query2.ParamByName('Param1').AsString :=Edit1.Text; Form2.Query2.ParamByName('Param2').AsString := Edit2.Text; Form2.Query2.ExecSQL; Form2.Query1.close; Form2.Query1.open; Form2.Query1.filtered:=true; Form2.Query1.Filter:='annee='+quotedstr(annee); close; //pourquoi le close ? end;
1-Exactement ce que j'ai fait mais j'ai pas compris l'insertion dynamique
2-close pour fermer la form4 et revenir a la form2 qui contient query
3-ça plante dans Form2.Query1.close;

14/03/2008, 12h37
freud
Citation:

mais j'ai pas compris l'insertion dynamique

désolé ce n'est pas ce que je voulais dire, je me suis trompé.

Si ca plante dans :
Code:

1 2 3-ça plante dans Form2.Query1.close;
C'est que probablement elle n'existes pas la query1 dans form2 ?
Quand ca plante qu'es-ce que ca donne comme message ?
14/03/2008, 13h19
gentilman_delphi
Citation:
Envoyé par freud

désolé ce n'est pas ce que je voulais dire, je me suis trompé.

Si ca plante dans :

Code:

1 2 3-ça plante dans Form2.Query1.close;

C'est que probablement elle n'existes pas la query1 dans form2 ?
Quand ca plante qu'es-ce que ca donne comme message ?
ça plante lorsque l'utilisateur appuie sur valider de form4 et donne un message violation de cle lorsuqu'on evite form2.query1.free

Et lorsqu'on fait le code form2.query1.free donne le message violation d'accés a l'adresse 00466B76 dans le module 'projet1.exe'.lecture de l'adresse 00000000
14/03/2008, 14h00
freud

Citation:

ça plante lorsque l'utilisateur appuie sur valider de form4 et donne un message violation de cle lorsuqu'on evite form2.query1.free

je n'ai pas compris ce que tu veux dire par

Citation:

evite form2.query1.free

Et c'est normal que tu as une "violation de cle" puisque tu inseres un code dont le champ est indexer et qui existes déjà dans la table.

Citation:

Et lorsqu'on fait le code form2.query1.free donne le message violation d'accés a l'adresse 00466B76 dans le module 'projet1.exe'.lecture de l'adresse 00000000

tu fais un free sur quelque chose que tu n'as pas creer. Si tu as déposé un composant TQuery faut pas faire le free.
15/03/2008, 19h00
gentilman_delphi

Citation:

Envoyé par freud

je n'ai pas compris ce que tu veux dire par

Et c'est normal que tu as une "violation de cle" puisque tu inseres un code dont le champ est indexer et qui existes déjà dans la table.

tu fais un free sur quelque chose que tu n'as pas creer. Si tu as déposé un composant TQuery faut pas faire le free.

Bon soir
peut etre que je dois reformuler ma question

Comment inserer des enreigistrements dans une requete filtrée?

Je pense que le probleme de violation de clé se pose dans la nouvelle requette
Avez vous une idée

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.....

Voir 40 message(s) de cette discussion en une page