Discussion :

[melles]

Helloww

Bin, ma question est dans le titre :

J'ai une base de donné immensement grande que je dois consulter frequement.
Mais pour certaines actions independantes (Se trouvant sur different PageControl), il serait plus judicieux de créer d'autres tables (une pour chaque PageControl) qui serait deja filtré pour travailler dessus avec un net gain de temps.

En gros, ce que je veux faire, c'est

Code :

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

Select donne1, donne2, donne3 from Table1 where ...

Et envoyer le resultat vers une table2

Moyen... pas moyen!

[PadawanDuDelphi]

Salut,

Voici une requête pour copier des données d'une table vers une autre...

Code :

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

1
2
3
INSERT INTO tblClients2 ( NumCli, NomCli, PreCli )
SELECT [Numéro Client], [Nom Client], [Prénom Client]
FROM tblClients;

Cependant je ne suis pas sûr de l'utiliter de la création d'une nouvelle table, puisque les composants ADO, par exemple, te permettent de créer ce genre de "tables triées", les données de ton Dataset étant remplies par requête.
Mais si tu es vraiment obligé de recréer des tables, je te conseil de passer par des vues, si possible, cela évitera la redondance de stockage physique (si tu as déjà beaucoup de tables, c'est un point à ne pas négliger)

A+.

[liazidf]

Salut,
Voici une autre solution qui consiste à utiliser une table, et comme vous utilisez PageControl, il vous reste à activer un filtre pour chaque page.
Bon courage

[melles]

Mais si tu es vraiment obligé de recréer des tables, je te conseil de passer par des vues, si possible

Effectivement je n'y avais pas pensé, je commence à chercher comment faire pour les creations de vues

Cependant :

comme vous utilisez PageControl, il vous reste à activer un filtre pour chaque page.

1- Dabord et avant tout : N'hesites pas à me tutoyé
2- Moi pas tres bien comprendre ce que tu me raconte là
Comment faire pour activer un filtre different sur la meme base pour chaque PageControl??

Code :

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

PageControl1.filtre:= ????

Thanks in advance

[liazidf]

Salut,
Voila un exemple de code pour effectuer tous les filtres que vous voulez.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.PageControl1Change(Sender: TObject);
begin
case  PageControl1.ActivePageIndex of
 0:begin
    Table1.Filter:='First_Name ='+QuotedStr('A*');
    Table1.Filtered:=true;
   end;
 1:begin
    Table1.Filter:='First_Name ='+QuotedStr('B*');
    Table1.Filtered:=true;
   end;
 2:begin
    Table1.Filter:='First_Name ='+QuotedStr('C*');
    Table1.Filtered:=true;
   end;
end;
end;

[melles]

Bien vu liazidf, ça marche nikel.

Maintenant, rien que pour ma petite curiosité personnlle, j'ai une petite question sur cette ligne de code :

Code :

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

Table1.Filter:='First_Name ='+QuotedStr('A*');

Cela veut dire qu'on affecte ue valeur à la table1 mais pourquoi ça ne fonctionne pas avec :

Code :

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

Table1.Filter:= " First_Name= 'A*' "

Thxs in advance

[aityahia]

c'est la syntaxe des filtres rien faire. pour les filtres il est vivement conseillé d'utiliser les requetes, en plus avec les requetes on peux afficher les colonnes que je veux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.PageControl1Change(Sender: TObject);
begin
Query1.SQL.Add('SELECT * FROM VotreTable WHERE First_Name LIKE :Param');
 
case  PageControl1.ActivePageIndex of
 0:begin
     Query1.Close; 
     Query1.ParamByName('Param').Value := ValeurText1+'%'; 
     Query1.Open;
   end;
 1:begin
     Query1.Close; 
     Query1.ParamByName('Param').Value := ValeurText2+'%'; 
     Query1.Open;
   end;
 2:begin
      Query1.Close; 
      Query1.ParamByName('Param').Value := ValeurText3+'%'; 
      Query1.Open;
   end;
end;
end;

mais cette méthode ou celle de liazidf n'est pas conseiller si le résultat de vos données trops grand rsique de gélé votres application lors du passage d'une page a une autres alors le mieux c'est de définir pour chaque page une requette.

[melles]

Oui mais si tu veux affecter ce meme filtre dirrectement dans les propritees d'une table plus besoin du +QuotedStr( tu n'a qu'a ecrire :

First_Name= 'A*'

[aityahia]

Exact.
Supposant que votre table contiens 20 Champs que pour chaque page vous voulez afficher des colonnes différentes je vous conseil vivement les requête SQL sa optimise vos ressource

[melles]

Ma base de donnee contient plus de 90 000 champs.
Et plus ou moins une centaine de collones.

ça prend trop de temps avec les query SQL, je m'en suis sorti avec un programme alegé et bcp plus rapide en faisant une seule query SQL qui fait deja une pre-selection sur les données les plus interessantes/importantes.

Apres, j'utilise les filtres sur ma seconde BD.

[melles]

Mais ceci ne me donne tjs as ma reponse à la ligne de code:

Code :

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

Table1.Filter:='First_Name ='+QuotedStr('A*');

[Kaféine]

Oui mais si tu veux affecter ce meme filtre dirrectement dans les propritees d'une table plus besoin du +QuotedStr( tu n'a qu'a ecrire :
First_Name= 'A*'

y'a bien des quotes qui entoure A*
c'est précisement ce que tu fais par programmation avec

Code :

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

1
2
 
Table1.Filter:='First_Name ='+QuotedStr('A*');

c'est toi qui choisis sois tu affecte la propriété dans l'inspecteur d'object sois tu programme et auquelle cas tu dois mettre QuotedStr qui ne fait que mettre un double quote a la chaine

ou alors tu écris

Code :

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

1
2
 
Table1.Filter:='First_Name ='+'''A*''';

[melles]

Merci Kaféine de ta reponse mais ma question etait justement pourquoi doit on ajouter les doubles cotes supplementaires en code alors qu''il ne faut pas le faire dans l'inspecteur d'objet?

Serait ce le + qui fout la pagaille!!!

[liazidf]

Salut,
Pour être plus clair, mettez sus une forme un label, ensuite mettez par programmation cette phrase dans le caption: l'élement de controle, et tester votre programme, ceci va générer une erreur de syntax, et pour cause vous devez écrire :'l''élement de controle'