Discussion :

[doolar]

slt à tous
j ai une connection ADOConnection1 BDETUD.mdb
adoquery1
datasource1
dbgrid1 (4 champs) "matricule/nom/prenom/adresse"
je veux savoir comment ajouter un enregistrement à la base de donnée et à dbgid1 en cliquant sur un bouton "enregistrer" et à partir de 4 Tedit (correspondant aux 4 champs).
Merci pour votre aide.

[milaybe]

Salut,

Moi, je n'ai pas encore utilisé les composants d'ADO, mais du FIBPlus, mais je pense que le principe reste le même ou sinon il ne devrait pas y avoir une très grande différence.
D'abord, il faudra que tu "lies" ton dbgrid1 au datasource1 et ce dernier devra être aussi "lié" à un dataset (nommé ADODataSet1), lui-même est connecté à ADOConnection1.
Au niveau du code, ce sera du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ADODataSet1.FieldValues['NOM']:= Edit1.text;

et ainsi de suite. Mais il ne faut pas oublier de mettre ton dataset à insert.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ADODataSet1.Insert;

Voilà, je ne sais pas si ça répond à ta demande, mais bonne prog quand même.

[doolar]

merci pour votre aide.
j'ai ajouter un dataset1 à la forme et j l'ai lié à datasource1
j'ai essayé votre code mais ça marche pas.
voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.EnregistrerClick(Sender: TObject);
begin
adodataset1.Insert;
adodataset1.FieldValues['matricule']:=matricule.Text;
adodataset1.FieldValues['nom']:=nom.Text;
adodataset1.FieldValues['prenom']:=prenom.Text;
adodataset1.FieldValues['adresse']:=adr.Text;
end;

[Linkin]

Il ne manquerait pas un Post à la fin?

[milaybe]

Merci Linkin, bien sûr il faut un post à la fin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
adodataset1.post;

[doolar]

merci mais ça marche pas aussi et voilà l'erreur envoyée

[Rayek]

Il y a de bon tutoriel sur ADO qui traine sur le site :

http://bidou.developpez.com/tutoriels/Delphi/ADO/
http://beaussier.developpez.com/arti...hi/debuterado/

[doolar]

merci pour ce tutoriels
j'ai pu ajouter un enregistrement à la base et à Tgrid et le code esle suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with ADOQuery1 do begin
Insert;
FieldByName('nom').Value:=nom.Text;
FieldByName('prenom').Value:=prenom.Text;
FieldByName('adresse').Value:=adresse.Text;
Post;
end;

mais j'ai pas pu arriver afficher les champs de l'enregistrement actif ou séléctionné de la grille dans les TEdits.

[evarisnea]

mais j'ai pas pu arriver afficher les champs de l'enregistrement actif ou séléctionné de la grille dans les TEdits.

essaye avec des TDBEdit c'est plus facile.

[logiciel_const]

bonjour,
moi je travaille avec ADO,et voici le code que j'ai l'habitude de l'utilser pour inserer un enregistrment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
with ADOCommand1 do
begin
commandtext:='insert into NomDeLaTable (matricule,nom,prenom,adresse) '+
'values (:Pmatricule,:Pnom,:Pprenom,:Padresse)';
commandtype:=cmdtext;
parameters.ParamByName('Pmatricule').Value:=edit1.Text;
parameters.ParamByName('Pnom').Value:=edit2.Text;
parameters.ParamByName('Pprenom').Value:=edit3.Text;
parameters.ParamByName('Padresse').Value:=edit4.Text;
execute;
ADOTable1.Active:=false;
ADoTable1.Avtive:=true;
end;

sachant que ADOTable1 est un composant qui connecte à votre table :NomDeLaTable,les deux dernières instructions permettent de rafrichir votre table afin que l'enregistrement ajouté puisse apparaitre dans le dbgrid1 .

[doolar]

Slt logiciel_const
Ton code il marche bien aussi
mais mon problème maintenant c'est comment afficher les champs d'un enregistrement sélectionné dans la grille (Tgrid) dans des TEdits

[evarisnea]

dans l'évènement AfterScroll du TADOQuery:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
with ADOQuery1 do begin
nom.Text := FieldByName('nom').Value;
prenom.Text := FieldByName('prenom').Value;
adresse.Text := FieldByName('adresse').Value;
end;

[doolar]

Merci evarisnea
ton il marche bien ton code malgré que je l'ai essayé mais j'ai ajouté la propriété post à la fin c'est elle qui a produit l'erreur.