Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Base de données - Manipulation de données

Présentation

Vous serez amener à réaliser quelques opérations de manipulations de données sur une table.
Ce tutorial présente ses principaux manipulations.


Editer une table

Pour passer en mode édition, il faut appeler la méthode "Edit".

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
end;


Lorsque vous voulez écrire pu modifier un champ, il faut obligatoirement passer en mode édition.


Lire la valeur d'un enregistrement

Il existe deux manières de lire la valeur d'un enregistrement.
Vous pouvez utiliser la méthode par indice de champ.

procedure TForm1.Button1Click(Sender: TObject);
Var St: string;
begin

St:=Table1.Fields[0].AsString;
end;


Dans notre exemple, St contiendra la valeur du premier enregistrement du champ d'indice 0.


Nom
Prenom
Free
Delphipage

Avec cette table, "St" vaudra "Free".

AsString représente la valeur du champ sous forme de chaîne.
Il existe AsBoolean, AsCurrency, AsDateTime, AsFloat, AsInteger et AsVariant.

Une autre solution consiste à utiliser le nom du champ.


procedure TForm1.Button1Click(Sender: TObject);
Var St: string;
begin

St:=Table1.FieldByName('Nom').AsString;
end;


"St" vaudra également Free pour notre exemple.


Modifier la valeur d'un enregistrement

Pour modifier la valeur d'un enregistrement, il faut se mettre en mode édition.
Voici la méthode par indice :


procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.Fields[1].AsString:= 'Yoann';
end;


Voici la méthode par nom :

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Prenom').AsString:= 'Yoann';
end;


Voici ce que nous obtiendrons avec notre table.

Nom
Prenom
Free
Yoann


Annuler les dernières modifications

Pour annuler les dernières modifications à un enregistrement, il suffit d'utiliser "Cancel".

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Cancel;
end;


Tous droits réservés - Contacts
Haut de la page