Discussion :

[karimala]

salut.
pouvez vous m'aider svp.
j'ai une base de données j'ai le créer sous delphi 5( alias+ tables)
j'ai créer un nouvel projet en delphi 5
( table + datasource+ dbedits+dbgrid+ button enregister +button supprimer)
j'ai execute le programme j'ai saisir les donner et j'ai clique sur button enregistrer .
quand j'ai quitte le programme et j'ai vu la base de données via module base donne. j'ai trouvé les tables vide
l'enregistrement des données ne faite pas .
que doit je faire ???????????????????????????????????
REMARQUE:
voici le source que j'ai le écrit dan button enregistrer :
table 1.edit;
table 1.insert;
table 1.post;

[paulfr]

Bonjour,

Je pense qu'il vous manque le navigateur(TDBNavigator) qui vous permettra
de vous déplacer dans la table, d'insérer un nouveau enregistrement (+ inserer) et d'ecrire (Valider) ensuite dans la table (action automatiquement obtenue si on se deplace ensuite dans la table).

Exemple

Code :

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

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
  TFichSt = class(TForm)
    DSst: TDataSource;
    Tbst: TTable;
    DBGst: TDBGrid;
    DBNavst: TDBNavigator;
    Labst: TLabel;
    ....  
 
procedure TFichSt.TbCreat(NomTab, TitreFic : string);  // création d'un enreg
begin 
  Tbst.TableName := NomTab;  // nom de la table
  Caption := TitreFic;            // titre de la fenêtre
  TbSt.Active := False;
  TbSt.ReadOnly := False;
  try
    LabSt.Caption := 'CREATION d''une LIGNE';
    DBNavSt.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbInsert,
                                    nbCancel,nbPost];
    TbSt.Active := True;
    TbSt.Last;
    ShowModal;
  finally
    DBGst.Enabled := True;
    TbSt.ReadOnly := True;
    TbSt.Close;
    Tbst.TableName := '';
  end;
end;

Dans ce cas on n'a pas besoin de Bouton supplémentaire.

PL

[SergioMaster]

+1 pour le TDBNavigator

Quelques remarques également :
on utilise Table1.Edit (modification d'un enregistrement) OU table1.insert (Ajout) mais pas les deux l'un a la suite de l'autre .

Avec la propriété du TDbgrid à AutoEdit ces deux instructions n'ont même pas besoin d'être utilisées seul Table1.Post suffirait

Enfin , utiliser un bloc Try ... except ... end pour le post ne serait pas un luxe

[karimala]

salut.
dans mon travail j'ai besoin des button supplimentaire( enregistrer, supprimer, modifier) le probelème ce que les données ne se enregistre pas. j'ai besoin de code pour l'ajouter au button enregistrer?

[paulfr]

Bonjour,

Pour enregistrer des données j'utilise, entre autre :

Code :

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

1
2
3
4
5
6
TbSt.Edit;
TbSt.FieldByName('nomchamp1').AsString := EdChamp1.Text;
TbSt.FieldByName('champ2').AsFloat := StrToFloat(EdCh2.Text);
...
TbSt.Post;
...

Pour un enregistrement complet à la fin de la table :

Code :

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

1
2
3
...
TbSt.AppendRecord([EdChamp1.text, StrToFloat(EdCh2.Text), ...]);
...

sans Post (voir AIDE).