begin process at 2010 02 10 06:33:56
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Base de données

 > 

MySQL

 > 

probleme min max


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

probleme min max

mercredi 24 juin 2009 à 20:38:37 | probleme min max

youhibadelphi

UN GRAND BONJOUR POUR TLM

Besoin d'aide

Dans une base de données je cherche le min et le max entre trois colonne

Par exemple dans la base

Num  nom_pren  date1   date2   date3

Je cherche a afficher le minimum et le maximum date dans les trois colonnes  date 

Et merci

jeudi 25 juin 2009 à 17:31:57 | Re : probleme min max

cantador

Membre Club
bonjour,
lance un SQL paramétré
et fais-toi un radiogroup optionnel

select max(date1) from...
select min(date1) from..
select max(date2) from..
etc.etc.

tu peux aussi lancer tous les filtres en même temps et afficher les résulats.

cantador
vendredi 26 juin 2009 à 19:26:05 | Re : probleme min max

youhibadelphi

salut cantador
mais je cherche a afficher le résultat min ou max des trois colonne dans une dblabel. je cherche une  instruction sql qui cherche le min ou le max dans les trois colonne et  affiche la date min, une seule date parmi les trois.
vendredi 26 juin 2009 à 23:06:24 | Re : probleme min max

cantador

Membre Club
dans un dblabel ?

pour le SQL ex :
procedure TForm1.Button1Click(Sender: TObject);
begin
With
MonQuery1.SQL do
      begin
      Clear;
      Add('SELECT Max(DATE1) AS MaxiDate ');
      Add('FROM MaTable ');
      end;
   MonQuery1.Open;
   Edit1.text := MonQuery1.FieldByName('MaxiDate').text;
end;
nb le champ Date1 de la table doit être en Date ou DateTime

cantador
samedi 27 juin 2009 à 22:38:21 | Re : probleme min max

youhibadelphi

Salut
mais mon amis catador je cherche le max de trois colonne par exemple si c'est possible une instruction qui cherche le max dans la première colonne et le max dans la deuxième et le max dans la troisième
puis le max des trois max. ou une instruction qui cherche le max des trois colonne directement.
Je te remercie infiniment pour ton aide.

dimanche 28 juin 2009 à 18:32:11 | Re : probleme min max

cantador

Membre Club

facile, petit Scarabée...

procedure TForm1.Button1Click(Sender: TObject);
begin
With
MonQuery1.SQL do
      begin
      Clear;
      Add('SELECT Max(date1) AS MaxiDate1, ');
      Add(Max(date2) as MaxiDate2, ');
      Add(Max(date3) as MaxiDate3 ');
      Add('FROM MaTable ');
      end;
   MonQuery1.Open;
end;

Ensuite tu stockes les trois max dans un tableau et tu...
je te laisse la suite...

cantador

dimanche 28 juin 2009 à 18:37:30 | Re : probleme min max

cantador

Membre Club
oubli de cotes..

procedure TForm1.MaxiDateClick(Sender: TObject);
begin
  with MonQuery1.SQL do
  begin
    Clear;
    Add('SELECT Max(date1) AS MaxiDate1, ');
    Add('Max(date2) as MaxiDate2, ');
    Add('Max(date3) as MaxiDate3');
    Add('FROM MaTable ');
    MonQuery1.Open;
  end;
end;

cantador
dimanche 28 juin 2009 à 19:24:10 | Re : probleme min max

cantador

Membre Club

ben alors, c'est pas encore fini ?

procedure TForm1.MaxiDateClick(Sender: TObject);
var
  Tab: array of integer;
  GrandMax : integer;
  Final : TDateTime;
const
  nbreDate = 3;
begin
  with MonQuery1.SQL do
  begin
    Clear;
    Add('SELECT Max(DateVisaDPParCG) AS MaxiDate1, ');
    Add('Max(DateDemande) as MaxiDate2, ');
    Add('Max(DateReelleDebutDesTX) as MaxiDate3');
    Add('FROM Devis ');
    MonQuery1.Open;
  end;
  SetLength(Tab, nbreDate);

  tab[0] := trunc(MonQuery1.FieldByName('MaxiDate1').AsDateTime);
  tab[1] := trunc(MonQuery1.FieldByName('MaxiDate2').AsDateTime);
  tab[2] := trunc(MonQuery1.FieldByName('MaxiDate3').AsDateTime);

  Final := StrToDateTime(DateTimeToStr(MaxIntValue(tab)));

  ShowMessage(DateTimeToStr(Final));
end;

cantador

dimanche 28 juin 2009 à 19:29:46 | Re : probleme min max

cantador

Membre Club
Réponse acceptée !
plus précis :

uses Math;

procedure TForm1.MaxiDateClick(Sender: TObject);
var
  Tab: array of integer;
  GrandMax : integer;
  Final : TDateTime;
const
  nbreDate = 3;
begin
  with MonQuery1.SQL do
  begin
    Clear;
    Add('SELECT Max(Date1) AS MaxiDate1, ');
    Add('Max(Date2) as MaxiDate2, ');
    Add('Max(Date3) as MaxiDate3');
    Add('FROM MaTable  ');
    MonQuery1.Open;
  end;
  SetLength(Tab, nbreDate);

  tab[0] := trunc(MonQuery1.FieldByName('MaxiDate1').AsDateTime);
  tab[1] := trunc(MonQuery1.FieldByName('MaxiDate2').AsDateTime);
  tab[2] := trunc(MonQuery1.FieldByName('MaxiDate3').AsDateTime);

  Final := StrToDateTime(DateTimeToStr(MaxIntValue(tab)));

  ShowMessage(DateTimeToStr(Final));
end;

cantador

mardi 30 juin 2009 à 20:17:00 | Re : probleme min max

youhibadelphi

Salut mon ami Nicolas
En fin ça marche mais avec un petit changement
La variable grand max n’as aucun rôle dans la boucle
J’ai effacé la virgule avant from dans l’instruction SQL
J’ai affiché le résultat dans un label.

1 2

Cette discussion est classée dans : base, cherche, probleme, max, min


Répondre à ce message

Sujets en rapport avec ce message

Probleme avec le Module de donnees [ par apz ] salut a tous,ces derniers jours, quand je travaille avec le module base de donnees (ouvrir, ou restrurer..des tables), et lorsque je voulais fermer le probleme de création de base de donnée [ par Raph ] bonjour,je cherche à réaliser un logiciel qui me permettrait à partir d'une base de donnée de créer une base de donnée fille ne contenant qu'un certai virgule flottante [ par nicosfly ] salut a tous,j'aimerai savoir comment faire pour travailler sans probleme avec des reels dans des applications, et ce sans que le message du type 'pro Probleme impression base de donnée [ par Moivincent ] J'ai crée une base de donnée standar de type paradox 7, je voudrais imprimer toute les donner qui ya dedans mais quand j'utilise printrecord il m'impr Arbre de poids min [ par ryadus ] Salut, je cherche l'algoritme qui cherche l'Arbre de poids minimum,si quelqu'un connait ou l'a en pascal ou delphi, alors je suis preneurmerci URGENT: PROBLEME D ACCES A UNE BASE DE DONNEES [ par timbo2 ] BONJOURJ AI ESSAYE D UTLISER UNE METHODE POUR SUPPRIMER UN MOT DE PASSE SUR DELPHI7 LORS Probleme sur base de donnée [ par zezet ] MickaëlJ'ai un problème, j'ai créé une table sous Module base de donnée j'ai fais ma requête SQL mais je n'arrive pas a recupérer le contenus de la ca reactualiser les lecture de DB avec qreport [ par softia ] oui bonjours je suis au boulot en ce moment (ouai j'avoue en fait c'est un stage) et voila.. un probleme en delphi :'|je doit editer quelque fichier a Probleme d'alias [ par koaiz ] j'ai cree une application de base de donne pour qu'un utilisateur l'install chez un lui il doit cree l'alias de la base mais si c'est un simple utilis Probleme de formatage de Base de donnée Paradox [ par corole3 ] Salut, j'ai une base paradox avec plusieurs enregistrements. Le contenu de la table est lu dans un DbRichEdit. Dans le DbRichEdit, je formate le texte


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,515 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales