Discussion :

[beletot]

Bonjour, Je suis sous XE2

Voici mon code.

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
27
28
29
30
31
32
33
procedure TFUser.btn_getLasteInsertedIdClick(Sender: TObject);
var
  Qry: TSQLQuery;
begin
  // Set up your connection as above, and open it
  Qry := TSQLQuery.Create(nil);
  Qry.SQLConnection := tuto_d2010fb;
 
  // insert query
  Qry.SQL.Add('insert into PS_12 ');
  Qry.SQL.Add('(ID_PERS) ');
  Qry.SQL.Add(' values (''voiture'') ');
  Qry.SQL.Add('returning ID_PS_12 ');
  Qry.Active := true;
  // Qry.ParamByName('ID_PS_12').ParamType := ptOutput;
 
  try
    Qry.Prepared := true;
    Qry.Open;
    //Qry.ExecSQL() ;
    //Showmessage(Qry.fields[1].asstring);
  except
    // on E:TDBXError do begin
    on E: TDBxError do
    begin
      OutputDebugString(PChar('Erreur, nous n''avons pas pu insérer votre record' + ' | TFUser.getLastInsertId'));
      // Qry.Free;
    end;
  end;
 
  // outputDebugString (PChar('Record inserted = '+Qry.FieldByName('ID_PS_12').AsString));
  // OutputDebugString(PChar(Qry.ParamByName('ID_PS_12').asString));
end;

C'est assez simple, je veux insérer une ligne et le returning doit me renvoyer l'id_ps_12 (clé primaire créé)
J'utilise un Qry open pour avoir un retour
Le Qry.ExecSQL() ; ne semple pas me retourner quelque chose.

Pour le moment j'arrive à insérer la ligne mais pas à avoir un retour :-(

Je bloque complètement.

Merci pour votre aide

Bertrand

[tourlourou]

Le Query.Active := True ne déclenche-t-il pas l'insertion avant le Open, empêchant le retour ?

[beletot]

Bonjour tourlourou,

Si je retire le Query.Active := True je n'ai plus d'insertion.
Bon je débute delphi, donc je découvre.

En toute logique je dois quand même insérer la ligne pour avoir un retour ?

[Linkin]

ExecSQL renvoie le nombre de lignes affectées, donc sûrement 1 pour ton insertion.

Chaque base de données a sa façon de procéder pour avoir la valeur du dernier increment.
Quelle est ta base de données?

[tourlourou]

Désolé, je pensais que Open faisait juste un Active:=True !

[beletot]

Je travaille sur une db firebird.

J'ai effectué la même chose avec du php, j'ai bien un retour.

Code :

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

1
2
3
4
$query = "insert into PS_12 (ID_PERS) values ('voiture') returning ID_PS_12";
$sth = ibase_query($db, $query);
$return = ibase_fetch_object($sth);
echo $return->ID_PS_12;

Donc c'est bien dans delphi que je bloque.

Je ne connais pas bien le composant, pour le moment j'essaye.
Pour ce que je comprends, je dois avoir un open pour avoir un retour.

[SergioMaster]

Bonjour,

Je travaille sur une db firebird.

Itou.

Donc c'est bien dans delphi que je bloque.
Je ne connais pas bien le composant, pour le moment j'essaye.

DBExpress est plus compatible Interbase que Firebird. Je n'ai jamais accroché vraiment le wagon DBExpress et n'ai pas XE2 pour vérifier mais il me semble que pour attaquer une base Firebird avec DBexpress+XE2 il s'agit du driver Interbase qui est utilisé (à confirmer). Ceci explique peut être ton soucis ?

Pour ce que je comprends, je dois avoir un open pour avoir un retour.

par principe : toute query ne renvoyant pas de données se fait via ExecSQL , à l'inverse pour toute query renvoyant des données il faut utiliser Open ou Active:=True
(à ce sujet Tourlourou à raison, Open ne contient qu'une seule instruction : Active:=True)