Discussion :

[petitcoucou31]

Bonjour ,

Novice sur les tables , j'ai aujourd'hui une petite application qui utilise des tables "paradox" avec des TTables et des Tdatasources sur lesquel je fais des tris ....

Ces tables possedent des champs dates , et je voudrais trier mon tableau depuis cette colonne par ordre de date.
J'ai trouver sur le forum des posts traitant le sujet , mais tous utilisent un "Tquery".

Comment puis je utiliser un Tquery avec des tables paradox ?

merci d'avance .

[Cl@udius]

Salut,

Tu peux utiliser un TQuery comme un TTable. Tu définis la propriété SQL du TQuery par exemple ainsi:

Code :

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

1
2
 
  Query1.SQL.Text := 'select * from MaTable Order By MonChampDate';

ou directement dans l'inspecteur d'objet.

@+

[rsc]

Autre solution, à condition qu'il y ait un index primaire dans ta table, tu définis un index secondaire sur ton champ date. Ensuite, dans Delphi :

Code :

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

MaTable .IndexName := 'Nom_De_Mon_Index';

et pour revenir à l'index principal :

Code :

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

MaTable .IndexName := '';

[petitcoucou31]

Je suis encore dans la semoule...

Actuellement
J'ai un
Table1.TableName <= client.BD
DataSource1.DataSet <= Table1
DBGrid1.DataSource <= DataSource1

Quand j'active ma table , elle s'affiche bien dans mon Grid1.

Pour faire mon Tri croissant j'essaye de rajouter mon Tquery.

Table1.TableName <= client.BD
DataSource1.DataSet <= Query1
DBGrid1.DataSource <= DataSource1

Dans l'inspecteur d'objet

Query1.SQL.Text := 'select * from Table1 Order By Adr1';

Quand j'essaye d'activer mon Query il me dit que ma base existe pas ??

Ou est le probleme...

Merci

[nsnow06]

bonjour

à tu mis le bon repertoire dans la propriété databasename de ton querry?

[rsc]

Table1 est ton composant Delphi qui pointe vers ta table, SQL n'en a rien à faire, lui ce qui l'intéresse, c'est l'adresse de la table physique :
c'est-à-dire Chemin + nom de la table (avec extension), le tout entouré de doubles quotes :

Code :

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

"C:\Mes Tables\MaTable.db"

Pour retrouver chemin et nom, tu peux utiliser les propriétés DatabaseName et TableName de ton TTable
Par exemple :

Code :

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

1
2
3
Query1.SQL.Text := Format ('select * from "%s\%s" Order By Adr1',
                                       [ExcludeTrailingBackSlash (Table1 .DataBaseName),
                                        Table1 .TableName]);