Création d'une requête avec les composants de l'ADO
Bonjour,
En ce moment j'essaye de créer une requête avec les composants de l'ADO. Je vous explique tous le procédé.
Dans un premier temps, j'extrais des données d'un programme est les stockes dans une base de données Access.
Ces données se stockent correctement
Ensuite, j'essaye de lire cette base de données dans une autre fenêtre en essayant de faire une requête.
Le nom de base est Archive_presses.mdb avec une table TPS_PRISE_RL.
Je veux lire les données qui sont enregistrées via une requête en utilisant le composant ADOQuery, que j'ai nommé Rqt_Liste.
Le nom Liste est le nom de ma fenêtre.
Affi_Liste est un TDataSource
Code:
1
2
3
4
5
6
7
8
9
10
11
|
//--------------------------------------------------------------------
AnsiString Date_Sql;
//--------------------------------------------------------------------
Date_Debut->DateTime = Date()-1; // Date du jour -1
Date_Fin->DateTime = Date() // Date du jour
//--------------------------------------------------------------------
Date_Sql = "SELECT * FROM TPS_PRISE_RL WHERE Date BETWEEN #" +Date_Debut->DateTime+ "# AND #" +Date_Fin->DateTime+ "#;";
Liste->Rqt_liste->SQL->Text = Date_Sql;
Liste->Rqt_liste->ExecSQL();
Affi_liste->Enabled = Liste->Rqt_liste->SQL; |
Lors de la compilation, en mode debug, j'ai dans Date_Sql={SELECT * FROM TPS_PRISE_RL WHERE Date BETWEEN #06/06/2010# AND #06/07/2010#}
Puis lors de la lecture avec Affi_liste il affiche toute la table.
Je ne vois pas trop ce qu'il faut faire.
J'ai essayé un tutoriel avec le Query de la BDE mais rien y fait.
Toute aide est la bienvenue.
Cordialement
Guiling.
