Discussion :

[doolar]

slt à tous.
pour chercher la valeur maximale d'un champ j'ai utilisé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Timpression.Button2Click(Sender: TObject);
var x,max:integer;
begin
adoquery1.First;
max:=0;
while not ADOQuery1.Eof do
 begin
  x:=strtoint(ADOQuery1.FieldByName('Num_dossier').AsString);
  if x>max then max:=x;
  ADOQuery1.Next;
 end;
 edit1.Text:=inttostr(max);
end;

ca va ça marche bien
j'ai essayer d'utiliser une autre méthode càd en en utilisant une requête SQl; mais ça marche pas et j'ai pas pu trouvé l'erreur.
voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
procedure Timpression.Button3Click(Sender: TObject);
begin
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('select Max(Num_dossier) from etudiante');
ADOquery1.ExecSQL;
 
edit1.Text:= inttostr(ADOquery1.SQL.Add('select Max(Num_dossier) from etudiante'));
end;

[TryExceptEnd]

Code :

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

edit1.Text:= inttostr(ADOquery1.SQL.Add('select Max(Num_dossier) from etudiante'));

C'est quoi ce truc ?

[SergioMaster]

slt,

Je ne connais pas suffisamment ADO mais d'une manière générale , pour obtenir un resultat d'une query il faut faire un Open et non un ExecSQL
puis ensuite recupérer les champs

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Timpression.Button3Click(Sender: TObject);
begin
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('select Max(Num_dossier) from etudiante');
ADOquery1.Open;

edit1.Text:= ADOquery1.Fields[0].asString;
ADOQuery1.Close;
end;

[doolar]

Merci SergioMaster ça marche trés bien
mon prblème était juste comment obtenir un resultat d'une query

[hattou amine]

Code :

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

1
2
3
4
ADOquery1.active:=false;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('select Max(Num_dossier) from etudiante');
ADOquery1.active:=true;