Discussion :

[Hoegaarden]

Bonjour a tous

J'aimerais mettre le résultat d'un SELECT dans une variable comment puis je faire je suis bloqué ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
ADOConnection1:=TADOConnection.Create(nil);
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+'C:\Documents and Settings\Hoegaarden\Mes documents\Cours\Programmation\dah0o project\Guichet.mdb'+';';
    ReqSQL:= TADOCommand.Create(nil);
    ReqSQL.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+'C:\Documents and Settings\Hoegaarden\Mes documents\Cours\Programmation\dah0o project\Guichet.mdb'+';';
    ReqSQL.CommandText := 'select max(numero_mouvement) as nmvt from mouvements';
    ResSQL:=ReqSQL.Execute;
    If ResSQL.EOF then
    nm :=1
    else
    nm:= ResSQL;
    end;

[Pascal Jankowski]

Cela ne te renvoit pas d'ensemble de résultat car tu emploies la méthode execute

Code :

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

ResSQL:=ReqSQL.Execute;

Il faut dans ce cas utiliser la méthode Open;

et de plus tu ne peux pas utiliser un TADOConnexion

Essaie un truc comme cela

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
 
  nm := 0;
  with TADOQuery.Create(self) do
  try 
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+'C:\Documents and Settings\Hoegaarden\Mes documents\Cours\Programmation\dah0o project\Guichet.mdb'+';'; 
    sql.add('select max(numero_mouvement) as nmvt from mouvements'); 
    try
      open;
      if not isEmpty
        then nm := fields[0].asInteger;
    except
      raise;
    end;
  finally
    Free;
  end;

[Hoegaarden]

Je comprends rien il ne rempli pas ma variable y a pas de message d erreur mais il ne me rempli pas ma variable

[Pascal Jankowski]

Et si tu fais cela qu'est-ce que tu obtiens ?

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
 nm := 0; 
  with TADOQuery.Create(self) do 
  try 
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+'C:\Documents and Settings\Hoegaarden\Mes documents\Cours\Programmation\dah0o project\Guichet.mdb'+';'; 
    sql.add('select max(numero_mouvement) as nmvt from mouvements'); 
    try 
      open; 
      if not isEmpty 
        then begin
                  nm := fields[0].asInteger; 
                  showMessage('max = '+fields[0].asString);
               end
        else showMessage('requête vide');
    except 
      raise; 
    end; 
  finally 
    Free; 
  end;

[Hoegaarden]

Ca me donne max = 30
C'est a dire que la requete renvoie bien qq chose

[Pascal Jankowski]

Et oui cela te rend quelque chose...

Si ce traitement est dans une fonction utilise alors result pour récupérer ce qui est assigné à ta variable nm.

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
 
function mainForm.getMaxHoegaarden:integer;
begin
  result := -1;
with TADOQuery.Create(self) do 
  try 
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+'C:\Documents and Settings\Hoegaarden\Mes documents\Cours\Programmation\dah0o project\Guichet.mdb'+';'; 
    sql.add('select max(numero_mouvement) as nmvt from mouvements'); 
    try 
      open; 
      if not isEmpty 
        then result := fields[0].asInteger; 
    except 
      raise; 
    end; 
  finally 
    Free; 
  end; 
end;

et tu utilises cette fonction de la facon suivante

Code :

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

1
2
 
  nm := getMaxHoegaarden;

si nm vaut -1 cela veut dire que cela n'a pas été calculé.

Cordialement

[Hoegaarden]

Ok merci Beaucoup
Ca marche !!