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 - BDE - Langage SQL

Présentation

Le langage SQL permet d'accéder à des bases de données comme que Paradox, Interbase, dBase, Oracle, Sybase, ... En Delphi, il suffit d'utiliser le composant TQuery de l'onglet "AccèsBD" de la palette de composant de Delphi. La propriété SQL du composant TQuery permet cet accès.

La propriété SQL du composant TQuery est une TStringList.
Grâce au SQL, vous pourrez effectuer des opérations comme par exemple la sélection, l'insertion la modification ou la suppression d'enregistrements.


Sélection de la table "exemple"

Avant d'exécuter des instructions SQL, il faut effacer le contenu.

Query1.SQL.Clear; //Efface le contenu de la stringlist
Query1.SQL.Add('SELECT * from exemple');
Query1.Open; //Active la requête


Lorsque vous utilisez INSERT, UPDATE ou DELETE, vous devez utiliser "ExecSQL".

Insertion d'enregistrement

Query1.SQL.Clear;
Query1.SQL.Add('INSERT into exemple (Nom, Prenom) values ("Free", "Delphipage")');
Query1.ExecSQL; //Execute la requête


On insére ici un enregistrement.

Nom
Prenom
Free
Delphipage

Modifier le champ "Prenom" qui contient "Free"


Query1.SQL.Clear;
Query1.SQL.Add('UPDATE exemple SET Prenom="Yoann" WHERE Nom="Free"');
Query1.ExecSQL;


Nom
Prenom
Free
Yoann


Suppression d'enregistrement

Query1.SQL.Clear;
Query1.SQL.Add('DELETE from exemple WHERE Nom="Free"');
Query1.ExecSQL;


On supprime ici un ou plusieurs enregistrements. C'est à dire tous les enregistrements qui ont pour nom "Free" seront supprimés.


Utilisation de paramètres

Un paramètre dans une instruction SQL est précédé par le symbole ":".

Query1.SQL.Clear;
Query1.SQL.Add('SELECT * from exemple WHERE Nom= :Par');
Query1.ParamByName('Par').AsString:='Free';
Query1.Open;


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