Requête Insertion avec un TQuery

Version imprimable

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

27/03/2008, 10h13
delphino7

modification (update) avec tquery sous delphi7

bonjour

j'ai fait un petit program de recherche j'ai deposer un notre tquery un dbgrid et un tedit
apres dans la proprieté de tquery sa proprieté sql j'ai mit une requete comme suit :

Code:

select*from table_client where (code_client=:E1)

voila la recherche c bon

merci

maintenant la modification sur le chmp rechercher
27/03/2008, 10h19
delphino7

update

bonjour
anapuma

la requete je la conné mais comment utiliser les objet sous delphi avec cette requete

exemple

j'ai cité que j'ai fait une recherche d'abord et afficher le resultat sur un dbgrid

apres je double click sur le resultat qui sera afficher les champ sur des tedit

dune autre form apres je modifi et je valide
es que c fesable ou bien ya til quelqu 'un qui a une autre idée ?

merci
27/03/2008, 11h41
milaybe

Citation:

apres je modifi et je valide
es que c fesable

Oui c'est faisable, tu suis les mêmes raisonnements que pour Insert et Delete

modification avec tquery?

bonjour
modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm2.DBGrid1DblClick(Sender: TObject); begin form4.edit1.Text := query2.FieldValues['code_client']; form4.edit2.text := query2.FieldValues['Nom_Client']; form4.edit3.text := query2.FieldValues['prenom_client']; form4.edit4.text := query2.FieldValues['adress_client']; form4.edit5.text := query2.FieldValues['tel_client']; form4.edit6.text := query2.FieldValues['code_postal']; end;
apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :
Code:

1 2 form4.ShowModal;
apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm4.Button1Click(Sender: TObject); var requete,x2,x3,x4 : string; x1,x5,x6 : integer; begin x1:= strtoint(edit1.Text); x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text); requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:x1,:x2,:x3,:x4,:x5,:x6)'; form2.query1.close; 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').AsInteger := strtoint(edit5.text); form2.query1.parambyname('x6').AsInteger := strtoint(edit6.Text); form2.query1.execsql; end;
le message derreur qui maffiche est comme suit :

Citation:

''key violation
violation of primary key constraint'pk_table_client'.cant insert duplicate in object 'table_client'

general sql error
the statement has been terminated''

je sais ce que sa veux dire ce que je ne comprend pas c que c une modification donc le tquery nest pas en mode 'edit' ?

comment je fait alors ?

merci

27/03/2008, 15h07
milaybe

Je ne comprends pas: tu fais une modification ou un ajout d'enregistrement?
Parce que si tu fais une modification, tu devras utiliser UPDATE au lieu de INSERT.
27/03/2008, 16h01
delphino7

modification avec tquery?

bonjour
je fait une modification donc c'est update, c'est pas insert

j'ai fait une erreur

merci

modification avec tquery?

modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm2.DBGrid1DblClick(Sender: TObject); begin form4.edit1.Text := query2.FieldValues['code_client']; form4.edit2.text := query2.FieldValues['Nom_Client']; form4.edit3.text := query2.FieldValues['prenom_client']; form4.edit4.text := query2.FieldValues['adress_client']; form4.edit5.text := query2.FieldValues['tel_client']; form4.edit6.text := query2.FieldValues['code_postal']; end;
apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :
Code:

1 2 form4.ShowModal;
apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm4.Button1Click(Sender: TObject); var requete,x2,x3,x4 : string; x1,x5,x6 : integer; begin x1:= strtoint(edit1.Text); x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text); requete := 'update Table_Client set Nom_Client=:x2,Prenom_Client=:x3,Adress_Client=:x4,Tel_Client=:x5,Code_Postal=:x6 where code_client = :x1'; form2.query1.close; form2.query1.sql.clear; form2.query1.sql.add(requete); 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').AsInteger := strtoint(edit5.text); form2.query1.parambyname('x6').AsInteger := strtoint(edit6.Text); form2.query1.execsql;
le message derreur qui maffiche est comme suit :

Citation:

'query1: field 'x1' is of unknown tyoe' process stoped use step or run to continue.

alors comment jaffecte la valeur du code_client dans la clause where pour modifier les autres champs?

merci

modification :

quand je click sur le boutton modifier voila le program que j'ai ecrit:

je le lance ma recherche apres je double click sur le dbgrid voila ce qui ce passe :

Code:

1
2
3
4
5
6
7
8
9
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
form4.edit1.Text := query2.FieldValues['code_client'];
form4.edit2.text := query2.FieldValues['Nom_Client'];
form4.edit3.text := query2.FieldValues['prenom_client'];
form4.edit4.text := query2.FieldValues['adress_client'];
form4.edit5.text := query2.FieldValues['tel_client'];
form4.edit6.text := query2.FieldValues['code_postal'];
end;

apres dans la meme forme la ou il ya le dbgrid je click sur le boutton modifier jaffiche la form4 :

Code:

1
2
 
form4.ShowModal;

apres je modifi par exemple l'adress du client avec son numero de telephonne apres je valide avec ce program :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm4.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.Text);
x2:= edit2.Text;x3:= edit3.Text;x4:= edit4.Text;x5:= strtoint(edit5.Text);x6:= strtoint(edit6.text);
requete := 'update Table_Client set Nom_Client=x2,Prenom_Client=x3,Adress_Client=x4,Tel_Client=x5, Code_Postal=x6 where code_client = '+quotedstr(edit1.text);
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
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').AsInteger := strtoint(edit5.text);
form2.query1.parambyname('x6').AsInteger := strtoint(edit6.Text);
form2.query1.execsql;

la modification est faite avec succée merci beaucoup les gas

merci

Dans ce code que tu viens de poster ta variable x1 ne sert à rien. C'était d'ailleurs l'erreur de ton précédent code puisque que tu n'alimentais pas sa valeur avant le ExecSQL.

Voilà ce que j'aurais écrit:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 procedure TForm4.Button1Click(Sender: TObject); var NomClient, PrenomClient, AdrClient: string; CodeClient, TelClient, CodePostal: Integer; begin // Variables pour alimenter les paramètres de la requête CodeClient := StrToInt(Edit1.Text); NomClient := Edit2.Text; PrenomClient := Edit3.Text; AdrClient := Edit4.Text; TelClient := StrToInt(Edit5.Text); CodePostal := StrToInt(Edit6.text); with Form2.Query1 do begin // Définition de la requête SQL.Clear; SQL.Add('update Table_Client'); SQL.Add('set Nom_Client = :Nom_Client, Prenom_Client = :Prenom_Client,'); SQL.Add('Adress_Client = :Adress_Client, Tel_Client = :Tel_Client,'); SQL.Add('Code_Postal = :Code_Postal'); SQL.Add('where Code_Client = :Code_Client'); // Alimentation des paramètres ParamNyName('Nom_Client').AsString := CodeClient; ParamNyName('Prenom_Client').AsString := PrenomClient; ParamNyName('Adress_Client').Asstring := AdrClient; ParamNyName('Tel_Client').AsInteger := TelClient; ParamNyName('Code_Postal').AsInteger := CodePostal; ParamByName('Code_Client').AsInteger := CodeClient; try // Exécution Prepare; ExecSQL; finally // Fermeture Close; end; end; end;
Tu remarqueras que les variables sont nommées de façon plus explicites que x1, x2, etc..., que le code est identé. Cela est important pour la clarté du code, notamment si tu dois y revenir dans 6 mois, un an ou plus.

Tu remarqueras également que la requête Insert une fois effectuée est fermée, car inutile de la laisser ouverte pour rien.

Voilà quelques conseils.
@+ Claudius

27/03/2008, 17h45
delphino7

tquery

bonjour

merci cl@udius
27/03/2008, 17h50
delphino7

tquery

la commande 'Prepare;' sert a quoi?

merci
27/03/2008, 17h50
Cl@udius

Citation:

Envoyé par delphino7

merci cl@udius

Avec plaisir ! :mrgreen:

Citation:

Envoyé par delphino7

la commande 'Prepare;' sert a quoi?

Ce n'est absolument obligatoire, mais cela prépare la requête avant son exécution.

Citation:

Envoyé par Aide Delphi

Envoie une requête au serveur pour une optimisation avant l'exécution.

@+ Claudius
27/03/2008, 18h08
delphino7

tquery

encore merci Cl@adius
27/03/2008, 19h25
edam

une question: ton DbGrid utilisé les données de query1??
si c'est vraie, alors tu peut utlisé directement les méthode de TQuery(insert,edit,delete) sans utlisé SQL :aie:, et aussi sans cassé la tete avec la mise à jour de ton DBGrid ;)
28/03/2008, 08h20
delphino7

tquery

bonjour edam

tu ma dit que je peu faire une modif directement de mon dbgrid tu peu expliquer la methode stp ?

si jai bien compri tu veu dire que jai mes enregistrements je click sur celui que je veux modifier et je modifi

mais comment ? comment le program pourait il savoir que c l'enregistrement par exemple numero =°n que je veux modifier ?!!!

merci

tqurey insertion gerer les exceptions ?

bonjour
tquery insertion :

maintenant se que je vuex si possible svp de jerer les exceptions des erreur par exemple quand l'utilisateur valide

un enregistrement qui existe deja ou bien une double clé au lieu que le systeme maffiche lerreur jaimerai que sa moi qui

jere lerreur on meton un message

ce code_client existe deja veeuillez inserer un entre code ou bien appuyer sur annuler pour annuler linsertion

cette enregistrement existe deja veuillez inserer un autre enregistrement oubien click sur annuler pour annuler linsertion

voila mon source d'insertion : comment le pimmenter ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 procedure TForm3.Button1Click(Sender: TObject); var requete, NomClient, PrenomClient, AdrClient: string; CodeClient, TelClient, CodePostal: Integer; begin //variable pour allimenter les parametres de la requete codeclient:= strtoint(edit1.text); nomclient:= edit2.Text; prenomclient:= edit3.Text; adrclient:= edit4.Text; telclient:= strtoint(edit5.Text); codepostal:= strtoint(edit6.Text); requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:codeclient,nomclient,prenomclient,adrclient,telclient,codepostal)' with form2.query1 do begin // definition de la raquete close; sql.clear; sql.add(requete); //alimentation des parametres parambyname('codeclient').asinteger := strtoint(edit1.Text); parambyname('nomclient').asstring := edit2.text; parambyname('prenomclient').asstring := edit3.text; parambyname('adrclient').asstring := edit4.text; parambyname('telclient').asinteger := strtoint(edit5.Text); parambyname('codepostal').asinteger := strtoint(edit6.Text); try //execution prepare; execsql; exept //gerer les erreurs showmessage('linsertion annuler veuillez reessayer svp'); end; end; end;
merci

28/03/2008, 11h49
delphino7

tquery gerer les exceptions des erreurs

bonjonr edam

je vais consulté ton program et je te rependrai et jaurai quelque question a te posé si c possible tout a lheure

aussi es que c possible davoir un exemple comment gerer les exception de redandance des code par exemple ou bien de redandance de lenregistrement

avec le tquery?

merci
28/03/2008, 15h36
edam

le cle de ton table est un code inséré par l'utlisateur ce que je ne fait pas, et je te le déconseil, je préfére utlisé un cle que je controll genre auto-increment et mieux etre de type integer,
pour te répondre, normallement en vérifier si la valleur de clé n'existe pas, la tu utlise soit une requete soit lookup de TQuery soit autre methode qu je connait pas, pour moi j'utlise une requete:
bon dev

edit: lis cette article

salut edam

voila jai quelque question sil te plait peut tu me repondre ?

ce source je lai eu de ton program que tu ma envoyer :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TFClient.BitBtn4Click(Sender: TObject); var i:integer; begin i:=TBitBtn(sender).Tag; case i of 1,2:begin Initialise(i); DBEdit12.SetFocus; end; 3:Table.Delete; end; end;
les questions:

1- ''i:=TBitBtn(sender).Tag;'' elle sert a quoi ? tu veux dire quand je click sur le bitbutn1 ou bien 2 il se passe quoi ?

2-sinon si tu peux en resumer mexpliquer ce petit program pour commencer ?

merci

28/03/2008, 17h13
edam

désoler, j'ai donné le programme sans le commenter, c'est pourquoi je l'avait suprimer, pour le simplifier;
le tag ici, simplement pour séparé entre 3 Tbutton qui utlise la même méthode (onclick)
regarde leur proprité tag en conseption;
case of tag
1:Nouveau;
2:Modifier;
3:Supprimer;
end;

edit: désoler, actuellement j'ai pas le temp, mais je peut essayer de répondre à tes questions :aie::aie:

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