webazard
Messages postés13Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 7 août 2002
-
6 août 2002 à 16:41
webazard
Messages postés13Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 7 août 2002
-
7 août 2002 à 11:17
Bonjour, j ai une base (dbf 3) je n'ai presicez aucun index particulier.
Voila mon prog ajout certain champ dont un numerique (smallint) j ai mis un button sur mon prog pour que en cliquant dessus cela range le champ INDICE (smallint) dans l'ordre croissant. J'ai fais un petit script car je n ai pas trouver de fonction connu (dit moi si il en existe une) mais audela de 3 enregistrement mon script tourne tellement que cela plante mon prog
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 6 août 2002 à 22:32
Exemple de création d'un index secondaire sur une table DBASE :
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//Si la case est cochée, afficher dans l'ordre du numéro de compte
if CheckBox1.Checked then
with Table1 do
begin
Close;
Exclusive := True;
AddIndex('ByAcct_Nbr', 'Acct_nbr',[]);
IndexName := 'ByAcct_Nbr';
Exclusive := False;
Open;
end
else
//Sinon, afficher selon l'odre par défaut (ici, la clé primaire) et supprimer l'index
with Table1 do
begin
IndexName := '';
Close;
Exclusive := True;
DeleteIndex('ByAcct_Nbr');
Exclusive := False;
Open;
end;
end;
webazard
Messages postés13Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 7 août 2002 7 août 2002 à 09:37
Ok c'est ce que j ai fais moi l'action est sur un click bouton mon bon ca on s'en fou voila ce que j ai tapée
======
with Table1 do
begin
Close;
Exclusive := True;
AddIndex('ByTPS_PLACE', 'TPS_PLACE',[]);
IndexName := 'ByTPS_PLACE';
Exclusive := False;
Open;
end
=======
'TPS_PLACE' est declarer comme smallint, ma base a la creation n a aucun index (rien du tout) et en lancant cela j ai
EDBEnigme Error 'Nom d'index/repere incorect' et le pas a pas se positionne sur IndexName=