Discussion :

[picoti2]

j'ai une bdd MsAccess nommée data.mdb contenant une table client
cette table client contient un index(primary key) mais la table est dans le désordre cad que les index ne se suive pas.
comment mettre dans une variable l'index maxi?
merci

[PyRoFlo]

Je ne connais pas Access mais peut être que ceci fonctionnera:

Code :

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

SELECT MAX(CHAMP) FROM TABLE

Si j'ai bien compris

[picoti2]

j'ai utilisé la faq de NONO40 pour cree une connection avce MsAcess.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type
Table1: TTable;
 Database1: TDatabase;
et la 
procedure indexmaxi((Sender: TObject);
var indexmaxi=integer;
begin
DataBase1.Open;
Table1.Open ;
indexmaxi:= SELECT MAX(Code) FROM Table1
 
end;

il y des erreurs, si vous povze m'aider..
nb je veur récuperer la valeur maxi dans la variable indexmaxi

[Modération, Seb : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[picoti2]

j'ai reesayé comme ceci

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
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Table1: TTable;
    Database1: TDatabase;
    Label2: TLabel;
    Query1: TQuery;
procedure Tform1.indexmaxi(Sender: TObject);
var indexmaxi:string;
    Code:string;
    TEXT:string;
begin
    DataBase1.Open;
    Table1.Open ;
    Query1.SQL.TEXT:= 'SELECT MAX(Code) FROM EnteteCdeClient';
     Label2.caption := TEXT;
     application.ProcessMessages;
 
end;

label2 me sert de visualiser l'index maxi mais le code ne fonctionne pas

[PyRoFlo]

Hum ton code ne fonctionne pas n'est pas vraiment précis, si tu pouvais nous donner l'erreur retournée par le compilo ou...

A première vue, tu n'as pas l'air d'exécuter ta requête, à moins que je me trompe totalement vu que j'utilise SQLite. Je ferais plutôt:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Tform1.indexmaxi(Sender: TObject); 
begin 
    DataBase1.Open; 
 
    Query1.SQL.TEXT:= 'SELECT MAX(Code) FROM EnteteCdeClient'; 
 
    Table1.Open ;
 
    Label2.caption := Query1.FieldByName('Code').AsString; 
end;

[edam]

salut
si ta table est index et tu veu savoir le maxi par cet index alors pourqoi pas simplement le triee celon cet index et chercher le dérnier element de votre table

[JerryMouse]

C'est comme le dit PyRoFlO Mais son code contient des erreurs.
Fais ceci

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
procedure Tform1.indexmaxi(Sender: TObject); 
  Var Query1: Tquery;
begin 
  Query1 := TQuery.Create(Application);
  With Query1 do Begin
    DataBasename := 'TaBasedeDonnée';
    With Sql Do Begin
      Clear;
      Add( 'SELECT MAX(Code) FROM EnteteCdeClient'); 
    End;
    Open ; 
    Label2.caption := FieldByName('Code').AsString; 
    Close; 
    Free;
  End;
end;

[picoti2]

par conscience j'ai utilisél'inspecteur d'objet
DatabaseName=olivercreation (cree selon la faq cf Msaccess indiquant le chemin de la bdd)

Code :

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

1
2
3
4
5
6
 
type
Table1: TTable;
Database1: TDatabase;
Query1: TQuery;
DataSource1: TDataSource;

j'ai ajouter un tbgrib pour affciher les données
dans l'inpecteur d'objet query1 rubriquesql j'y ai mis
SELECT MAX (Code) FROM EnteteCdeClient
pb on m'affiche sur le grid1 le dernier champ
pour info le champ code conteint des valeurs dans le désordre, le dernier champ n'étant pas l'index maxi.
en regardant la table, ce champ est un champ texte.

autre requete sql à me formuler (je veux recupérer l'index maxi dans une variable)
ou
boucle à faire (que je ne sais pas faire) lisant chaque ligne de la bdd ,teste le champ Code et récupérant la valeur maximale.

merci de m'aider[/code][/quote]

[PyRoFlo]

en regardant la table, ce champ est un champ text

Je te conseille de modifier le type de ce champ...........

autre requete sql à me formuler

LOL
Tu sais, les FAQs et docs sont accessibles à tous, tu pourrais y (re)jeter un oeil parce que la fonction MAX() par exemple est très courante en SQL...

boucle à faire (que je ne sais pas faire)

Ce site est bourré de tutos, perso j'ai appris à me servir d'une BDD en Delphi grâce à ce site, à ces cours.
Je pense que tu pourrais en faire autant !

Ces forums sont faits pour apprendre, progresser et non régler tels ou tels problèmes sans rien y comprendre.
T'aider c'est une chose, faire ton travail en est une autre.

http://sqlpro.developpez.com/SQL_AZ_F.htm#FONCT_AGREGAT

[alexmorel]

si ton champ est de type texte fais un order by

Code :

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

1
2
 
Add( 'SELECT *FROM EnteteCdeClient order by (Code) ');

[picoti2]

j'ai remodofie la requete qui marche, il me manque qu'a récuperer le champ code de la dernier ligne du select order by

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.indexmaxi(Sender: TObject);
var
index:Integer;
Query2: Tquery;
 
begin
 
  Query2 := TQuery.Create(Application);
  With Query2 do Begin
    DataBasename := 'olivercreation';
    With Sql Do Begin
      Clear;
      Add( 'SELECT EnteteCdeClient.Code  FROM EnteteCdeClient Order By Date');
    End;
    Open ;
{ici il faut récupérer la derniere lligne du select et le champ code associé}
    Label2.caption := FieldByName('Code').AsString;
    Close;
    Free;
  End;
end;

[Pascal Jankowski]

Au lieu de récupérer la dernier ligne tu peux récupérer la première ligne en modifiant ta requête de la façon suivante: (effectuer un tri descendant)
Instruction DESC avec ORDER BY

Code :

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

1
2
 
  Add( 'SELECT EnteteCdeClient.Code  FROM EnteteCdeClient Order By   Date DESC');

Autre méthode après ton open tu place un Last;

Personnellement je privilégie la première méthode donc cela donnerait

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
 
procedure TForm1.indexmaxi(Sender: TObject); 
var 
index:Integer; 
Query2: Tquery; 
 
begin 
 
  Query2 := TQuery.Create(Application); 
  With Query2 do Begin 
    DataBasename := 'olivercreation'; 
    With Sql Do Begin 
      Clear; 
      Add( 'SELECT EnteteCdeClient.Code  FROM EnteteCdeClient Order By Date DESC'); 
    End; 
    Open ;  
    Label2.caption := FieldByName('Code').AsString; 
    Close; 
    Free; 
  End; 
end;

Attention ajoute un try ... except ... end pour gérer l'eventualité d'une erreur à l'ouverture avec OPEN

[picoti2]

merci infiniment cela marche.

[Francis]

Si ton index primaire est constitué du champ code, il y a vraiment plus simple à Faire.

MaTable.Open;
Matable.LAst;
Max := Matable.FieldByname('Code').Asstring;
et le tour est joué.

Bon courage!