Discussion :

[socooooool]

Hello ...

Après avoir fait F1, après avoir été sur google et après avoir fait un ptit coups de moteur de recherche, je ne trouve toujours pas comment faire un ajout/suppression sur base de donnée access via delphi avec un query ...

Quelqu'un aurait il l'extreme amabilité de me donner quelques lignes de codes suceptibles de me mettre sur le droit chemin ???

[rbh]

Salut
Si ce que tu recherches, c'est de l'aide sur le langage SQL.
Pour créer, modifier, supprimer des tables : ici.
Pour obtenir, créer, modifier, supprimer des données dans les tables : ici.
Et d'une manière général tout ce qui se trouve ici.

Si c'est l'utilisation du TQuery qui te pose problème, il faut que tu nous donnes + d'infos.

[socooooool]

j'ai vite parcouru les pages que tu m'as soumises.

1°) j'aimerais te remercier pour l'aide que tu tentes de m'apporter.

2°) Après avoir survolé vite fait (parce que c'est long) je ne crois pas que ça pourra m'aider

3°) en fait je désire juste faire un enregistrement dans une table d'une bdd access ...

[TicTacToe]

Je te donne ce lien
http://delphi.developpez.com/faq/?page=access

mais par rapport à ta (vague) question, je crois qu'on peut pas aller plus loin...

ou alors, il faut arreter de survoler et atterrir de temps en temps

[socooooool]

je suis désolé de ne pas réussir à être clair ...
______________________________________________________________

Pour faire simple :

- J'ai une base access déjà créée avec 2 tables dedans
- J'ai une Form avec plusieurs EDIT dessus
- Sur cette meme Form on trouve un bouton

But de la manoeuvre : quand j'appuie sur le bouton, ça m'enregistre chaque EDIT (qui correspont a chaque champ de l'une de mes tables) dans la table définie de ma base de données

j'ai été assez clair ??
______________________________________________________________

Je savais le faire y'a de ça 3 ans ... mais j'ai tout oublié ...

[TicTacToe]

Donc tu as tous les liens qu'il te faut
1. connecter ta base Access avec mon lien
2. manipuler ta base avec SQL avec les liens de rbh

Sinon il y a pleins d'autres tutoriaux pour manipuler SQL, ami google...

bon courage !

[Rayek]

Le mieux est que tu poses un datatource sur ta form et que tu le lies à ta table.
Après, au lieu d'utiliser des TEdit, utilises des TDbEdit que tu vas lier au datasource et dont pour chacun tu vas lui assigner un champ de la base de données.

Apres il te reste plus qu'a mettre un bouton avec le code suivant pour enregistrer tes données.

Code :

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

1
2
3
4
5
 
// si la table est en mode edit ou insertion.
if Matable.State in [dsInsert,dsEdit] then 
// valide les données
  MaTable.Post;

Rappel :

MaTable.Append : Ajoute un enregistrement en fin de table
MaTable.Insert : Ajoute un enregistrement à la position courante du dataset
MaTAble.Edit : Passe la table en mode editon
MaTable.Post : Enregistre les modifications courantes
MaTable.Cancel : Annule les modifications courantes

[socooooool]

j'ai changé les Tedit contre des TDBedit, j'ai rajouté le datasource ... j'ai relié les TDBedit au datasource et je les ai attribués à chacun des champs de la table. Ensuite j'ai bien mis le code ...

Seulement par quoi faut il remplacer " MaTable. ", je me suis dit : le nom de ma table ! ... ( elle s'appelle "agent" ) ...

ainsi :

// si la table est en mode edit ou insertion.
if agent.State in [dsInsert,dsEdit] then
// valide les données
agent.Post;

loupé : identificateur non déclaré "agent" ...

Ké passa ?

[socooooool]

up

avec le code suivant :

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
// si la table est en mode edit ou insertion.
if query1.State in [dsInsert,dsEdit] then
begin
query1.append;
query1.FieldByName('num_agent').asstring:=DBEdit1.DataField;
// valide les données
query1.Post;
end;
if query2.State in [dsInsert,dsEdit] then
begin
query2.append;
query2.FieldByName('nom_agent').asstring:=DBEdit2.DataField;
// valide les données
query2.Post;
end;
if query3.State in [dsInsert,dsEdit] then
begin
query3.append;
query3.FieldByName('prenom_agent').asstring:=DBEdit3.DataField;
// valide les données
query3.Post;
end;
if query4.State in [dsInsert,dsEdit] then
begin
query4.append;
query4.FieldByName('poste_agent').asstring:=DBEdit4.DataField;
// valide les données
query4.Post;
end;
end;

l'enregistrement remplace un enregistrement précédent alors que je veux qu'il le rajoute après le dernier enregistrement.

chuis vraiment paumé !

[Rayek]

Va lire les tutoriaux du site, on ne peut pas apprendre le fonctionnement des base de données à ta place.

http://delphi.developpez.com/cours/?dom=SGBD

Comme l'a dit TicTacToe :

Il faut arreter de survoler et atterrir de temps en temps

Prend du temps à lire les tutoriels, c'est le mieux que tu puisses faire.
Surtout que les liens suivants peuvent t'expliquer largement comment faire pour gérer ta base de données :
http://beaussier.developpez.com/
http://lberne.developpez.com/delpdox/delphibdd/
etc ...