Afficher la valeur d'un générateur

**jojo86** · 29/01/2008, 13h21

Bonjour,

Je viens de trouver un post qui n'est pas vieux et qui traite presque la même chose (http://www.developpez.net/forums/sho...eur+generateur... Je rencontre un probleme, je voudrais utiliser la valeur retourné par la requete...

Par exemple, je voudrais afficher la valeur dans un TEdit, voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var nombre :integer;
 
begin
 Form1.IBDatabase1.LoginPrompt:=false;
 Form1.IBDatabase1.Connected:=true;
 
 IBQuery1.SQL.Clear;
 nombre:=IBQuery1.SQL.Add('select GEN_ID(autonum,0) from Devis;');
 IBQuery1.open;
 Edit1.Text:=IntToStr(nombre);
 IBQuery1.Close;
 IBDatabase1.Connected:=false;

J'ai une dizaine d'enregistrement dans ma base, mais le chiffre qui s'affiche dans le TEdit est toujours 0...

Je pense qu'il y à quelque chose que je fais mal. Merci de votre aide !

**ero-sennin** · 29/01/2008, 14h08

Salut !

Le code que tu proposes est bon, mais tu n'affectes pas la valeur de retour à ta variable nombre!
Je ne vois pas d'affectation ... donc nombre vaudra toujours zéro

Personnellement, je ferai un truc de ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
begin
 Form1.IBDatabase1.LoginPrompt:=false;
 Form1.IBDatabase1.Connected:=true;
 
 IBQuery1.SQL.Clear;
 nombre:=IBQuery1.SQL.Add('select GEN_ID(autonum,0) as Gen from Devis;');
 IBQuery1.open;
 Edit1.Text:=IBQuery1.FieldByName('Gen').AsString;
 IBQuery1.Close;
 IBDatabase1.Connected:=false;
end;

J'ai utilisé la méthode FieldByName('NomDuChamp') qui permet de récupérer directement la valeur (dans le bon type en plus grâce à AsString ...). Le nom du champ dans ce cas là c'est Gen (j'ai fait un alias) )
De plus, ça te fait gagner une variable

A+

Si besoin est, n'hésites pas!

PS: Code non testé

**Cl@udius** · 29/01/2008, 14h17

Salut

Ce n'est pas tout à fait au point ton code.

Essaye ceci (connexion faite à la base):

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
23
24
25
26
 
function TForm1.GetNextID(const GeneratorName: string): Integer;
var
  Qry: TIBSQL;
begin
  Qry := TIBSQL.Create(nil);
  with Qry do
  begin
    Database := IBDatabase1;
    Transaction := IBTransaction1;
    // Requête sur RDB$DATABASE pas sur ta table !
    SQL.Text := 'SELECT GEN_ID(' + GeneratorName + ', 0) FROM RDB$DATABASE;'; 
    try
      ExecQuery;
      result := Fields[0].AsInteger;
      Close;
    finally
      Free;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Valeur actuelle du générateur = ' + IntToStr(GetNextID('MON_GENERATEUR')));
end;

@+ Claudius

**ero-sennin** · 29/01/2008, 14h28

Oops! Aurai-je fait une bêtise en disant que c'étant bon ? Je ne connais pas les compos IB et je pensais que ça se comportait comme un TQuery normal... donc un simple Open pour dire d'effectuer la requête vu que c'est un select ...

(je me suis en plus permis de mettre le FieldByName puisque lors de la lecture du code, c'est plus clair ... quoi que dans ce cas là, c'est pas trop génant).

**Cl@udius** · 29/01/2008, 14h38

@Ero-sennin

L'utilisation d'un Open avec un TIBQuery est parfaitement correcte. Dans mon exemple j'utilise un TIBSQL (qui est plus rapide et utilise moins de ressources), qui a une utilisation un peu différente: pas de méthode Open.

@jojo

Code :

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

1
2
 
  nombre:=IBQuery1.SQL.Add('...');

Ceci ne fonctionne pas et ne renverra en aucun cas le résultat de la requête.
La méthode Add de TStrings te renvoie l'index de la ligne insérée qui est toujours 0 dans le cas présent puisque la requête ne fait qu'une seule ligne.

Voilou.

@+ Claudius