Requêtes sur une Base Access ?
Gerard
-
27 août 2001 à 17:51
gaussprodada Messages postés 14 Date d'inscription lundi 11 août 2003 Statut Membre Dernière intervention 12 décembre 2007 - 13 oct. 2004 à 20:24
gaussprodada Messages postés 14 Date d'inscription lundi 11 août 2003 Statut Membre Dernière intervention 12 décembre 2007 - 13 oct. 2004 à 20:24
A voir également:
- Requêtes sur une Base Access ?
- Base de données access - Conseils pratiques -Visual Basic / VB.NET
- Base de données javascript - Conseils pratiques -Javascript
- Programmeur access ✓ - Forum Visual Basic 6
- Base de données e-commerce - Forum PHP
- Connecter une application android à une base de données - Conseils pratiques -Java
2 réponses
Salut,
POur faire une requête sur une base Access est en effet le SQL
POur celà sous Delphi tu utilises le composant SQL qui te permet de te connecter à une base et effectuer une requête dessus. Ensuite ce composant s'utilise comme une table.
Par exemple voici le code permettant de mettre tous les rrésultats d'une requête dans un memo.
//mise en place de la requête
Query1.SQL[1] := 'Select Nom '; //séléctionner les noms
Query1.SQL[2] := 'From Employes '; //des employés
Query1.SQL[3] := 'Where Age>25'; //ayant plus de 25 ans
Query1.OPen; // activer la requête
If Query1.Recordcount<>0 then
// on vérifie si il y a au moins un résultat
begin
Query1.First; // on va au premier enregistrement
While not Query1.EOF do begin
Memo1.Append(Query1.FieldbyName('Nom').Asstring);
// on mets le résultat dans le mémo
Query1.Next; // on passe au suivant
end; // de while
end; // de if
Voilà, bonne chance pour la suite
Kerad
POur faire une requête sur une base Access est en effet le SQL
POur celà sous Delphi tu utilises le composant SQL qui te permet de te connecter à une base et effectuer une requête dessus. Ensuite ce composant s'utilise comme une table.
Par exemple voici le code permettant de mettre tous les rrésultats d'une requête dans un memo.
//mise en place de la requête
Query1.SQL[1] := 'Select Nom '; //séléctionner les noms
Query1.SQL[2] := 'From Employes '; //des employés
Query1.SQL[3] := 'Where Age>25'; //ayant plus de 25 ans
Query1.OPen; // activer la requête
If Query1.Recordcount<>0 then
// on vérifie si il y a au moins un résultat
begin
Query1.First; // on va au premier enregistrement
While not Query1.EOF do begin
Memo1.Append(Query1.FieldbyName('Nom').Asstring);
// on mets le résultat dans le mémo
Query1.Next; // on passe au suivant
end; // de while
end; // de if
Voilà, bonne chance pour la suite
Kerad
gaussprodada
Messages postés
14
Date d'inscription
lundi 11 août 2003
Statut
Membre
Dernière intervention
12 décembre 2007
13 oct. 2004 à 20:24
13 oct. 2004 à 20:24
Salut les mec moi c'est Gauss
