Discussion :

[sam83]

Bonsoir à tous voilà dans mon application je veux créer dynamiquement un index secondaire pour l'une de mes tables paradox pour cela j'utilise la procédure ''AddIndex" et voilà le code

Code :

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

1
2
3
Table1.Active:=false;
Table1.AddIndex('ParNom','PNOM',[ ixDescending , ixCaseInsensitive]);
Table1.Active:=true;

mais lorsque je clique sur le bouton a qui correspond ce code j'ai ce message d'erreur " la Table est occupée" en fait je comprend pas d'ou vient cette erreur alors que j'ai mis ma table en mode exclusif.

[e-ric]

Vérifies s'il ne faut pas un accès exclusif, en tout cas il est possible que la tale ne doit pas être déjà ouverte.

Cdlt

[rsc]

Quelle est la ligne qui produit l'erreur ?

[Just-Soft]

Salut;

élimine

Code :

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

Table1.active := True;

Bonne chance.

[sam83]

Bonjour tout le monde voilà ce que j'ai fait; a partir de l'inspecteur d'objets j'ai fixé la propriété active de ma table a false puis dans la création de la fiche j'ai mis mon code sans la instruction

Code :

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

Table1.Active:=false;

et ça marche très bien mais a ce que quelqu'un peut me dire c'est été où le problème dans la première méthode
merci a tous.

[Just-Soft]

A mon humble avis, une table doit être ouverte pour MAJ des données mais là tu touchais à la structure même de la table donc l'ouvrir pour modifier les propriétés d'un champ ou MAJ des index conduirait automatiquement à un plantage puisque les données sont régies par leurs propriétés.

[rsc]

Bonjour tout le monde voilà ce que j'ai fait; a partir de l'inspecteur d'objets j'ai fixé la propriété active de ma table a false puis dans la création de la fiche j'ai mis mon code sans la instruction

Code :

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

Table1.Active:=false;

et ça marche très bien mais a ce que quelqu'un peut me dire c'est été où le problème dans la première méthode
merci a tous.

Pour ma part, je ne suis pas sûr que le problème ait été là, d'où ma première question.
Maintenant, je te conseille de ne jamais ouvrir tes tables à la conception, car une table ouverte à la conception déclenche au démarrage du programme un tas d'événements, dont tu ne maîtrises pas le moment exact. D'où risque de problèmes difficiles à tracer.

[sam83]

A mon humble avis, une table doit être ouverte pour MAJ des données mais là tu touchais à la structure même de la table donc l'ouvrir pour modifier les propriétés d'un champ ou MAJ des index conduirait automatiquement à un plantage puisque les données sont régies par leurs propriétés.

merci justje pense que c'est ça le problème.

salut rsc pour rependre à ta question l'erreur se produit au niveau de la ligne suivante

Code :

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

Table1.active := True;

@+

[rsc]

Je suis tout à fait d'accord avec Just-Soft, mais :
1/ tu fermais bel et bien ta table avant d'ajouter l'index,
2/ Selon toi, l'erreur se produisait à la réouverture.


Je serais tenté de penser que l'instruction d'ouverture arrivait trop vite, avant la fin de mise à jour de l'index, et comme ta table est en mode exclusif, bing... Mais ça n'explique pas pourquoi maintenant ça marche.

[sam83]

Bonjour;
vraiment je comprend rien là, j'ai essayé de fait ce que ma proposé just et j'ai éliminé la ligne suivante

Code :

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

Table1.active := True;

mais j'ai toujours le même message d'erreur.
en fin j'ai voulue utilisé cette méthode pour réindexer mes tables maintenant ma question est a ce que il existe d'autre méthodes pour le faire merci

[rsc]

Il y a deux cas de figures.

Soit tu veux un index permanent, alors le plus simple es d'accéder tu as accès à la structure de ta table, dans le Module de données par exemple,Outils/Utilitaires/Restructuter et tu crées ton index.
Ensuite, dans ton appli, tu l'actives par

Code :

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

IndexName := 'MonIndex';

Soit tu veux un index juste pour le temps de ton appli, et alors tu peux faire

Code :

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

IndexFieldNames := 'Champ1; Champ2';

Par contre, là tu n'as pas accès aux options (Descending, ...)

[Just-Soft]

Re;

Pour rappel, un index sert à l'ordonnancement des enregistrements. maintenant revenant à ta dernière question et je répondrai pourquoi ne pas utiliser des instructions SQL avec des Order By ?

donc au lieu de créer des index figés vaut mieux utiliser le SQL qui lui ne nécessite pas des index et est plus souple puisque tu peux indexer sur n'importe quel champ avec une légère perte coté rapidité d'affichage. cette perte est due principalement à plusieurs paramètres :

• type SGBD;
• composants utilisés;
• type d'accès à la BD, ...

Le SQL est une sérieuse alternative dont tu devrais y songer.

Bonne chance.

[sam83]

Bonjour just ;
Je suis tout à fait d'accord avec toi, mais comment j'utilise beaucoup de filtre dans mon application et comme ces filtres sont relier entre eux par exemple je filtre sur sexe puis sur cet filtre je filtre sur nom.....
donc si j'utilise l'utilisation des instruction SQL ça ne va pas être une bonne solution. une autre question: a ce que on peut utiliser un filtre sur une requête active. merci

[Just-Soft]

Bonjour just ;
Je suis tout à fait d'accord avec toi, mais comment j'utilise beaucoup de filtre dans mon application et comme ces filtres sont relier entre eux par exemple je filtre sur sexe puis sur cet filtre je filtre sur nom.....
donc si j'utilise l'utilisation des instruction SQL ça ne va pas être une bonne solution. une autre question: a ce que on peut utiliser un filtre sur une requête active. merci

Re;

Si j'ai bien compris tu veux filtrer sur le résultat d'une requête si c'est ça alors oui. Une seule contrainte s'impose, ta requête doit avoir un nom puis tu peux très bien t'en servir pour exécuter un filtre sur les données déjà filtrées !

Je crois que tout les SGBD permettent de renommer une requête mais il faut s'assurer quand même.

Bonne chance.

[sam83]

Merci just pour tes repenses et merci à vous aussi rsc