Discussion :

[DOliv]

Bonjour ou re-bonjour

J'ai besoin de récupérer la valeur du champ MON$TRANSACTION_ID de ma transaction (ou une autre information me permettant d'identifier ma transaction ) dans la table MON$TRANSACTIONS de Firebird.
Alors, dans ma grande naïveté, je me suis dis que j'allais gérer moi-même ma transaction en utilisant un TFDTransaction pour récupérer le ID de la transaction
Bah non, pas de "id transaction" dans le composant.

Quelqu'un pourrait-il m'expliquer comment récupérer cette info, svp ?
Merci beaucoup d'avance pour votre aide

[SergioMaster]

Bonjour,

Le moins que l'on puisse dire après nos différents échanges est que votre approche est pour le moins étrange (un coup questions sur le forum firebird, un coup delphi) et tout ça sans vraiment une description pertinente de ce qui est voulu si l'on excepte l'insertion de beaucoup de lignes au sein d'une même transaction.

Je présume que la valeur MON$TRANSACTION_ID est voulue pour récupérer les statistiques Firebird tel que demandé ici

Je m'interroge vraiment sur la manière d'aborder le problème mal défini. Au fil des lectures, j'ai cru comprendre que les diverses instructions d'un BLOCK au sens firebird du terme étaient générées via du code, mais beaucoup d'interrogations demeurent sur le comment.

Sachant que firedac peut remonter beaucoup d'informations pour peu d'utiliser les bons composants.
Par exemple :

• Le TFDBatchMove (sans même parler du log) permet d'obtenir les readcount,updatecount,writecount et deletecount ce qui est je crois le but recherché.
• Le TFDMoniCustomClientLink permet de monitorer l'activité d'une session
• rien que le FDQuery a des propriétés comme RowsAffected

Pour moi, une définition claire du problème et non des demandes partielles comme ( Exécuter un gros bloc d'ordres avec "Execute block" et Problème d'exécution d'un TFDQuery.) serait nécessaire

[DOliv]

Le moins que l'on puisse dire après nos différents échanges est que votre approche est pour le moins étrange (un coup questions sur le forum firebird, un coup delphi)

Ben, à moi, ça me paraît simple, une question concernant l'administration Firebird dans le forum Administration Firebird,
puis cette question sur des composants Delphi dans le forum composants Delphi

et tout ça sans vraiment une description pertinente de ce qui est voulu si l'on excepte l'insertion de beaucoup de lignes au sein d'une même transaction.

Et aucun rapport avec les EXECUTE BLOCK.

Je présume que la valeur MON$TRANSACTION_ID est voulue pour récupérer les statistiques Firebird tel que demandé ici

carrément oui.

Ce que j'essaie de faire est de récupérer le nombre d'enregistrements modifiés par une transaction dans une base Firebird.
Au vu des informations stockées dans les tables systèmes, il m'a semblé comprendre qu'il me faut absolument la référence de la transaction exécutée pour pouvoir exploiter les stats...
La transaction en question étant celle exécutée par l'application Delphi avec les composants Firedac.

[SergioMaster]

Pour obtenir MON$TRANSACTION_ID à partir de l'application il faudrait faire une query pendant que la transaction est "ouverte" (mon$state=1)

Code SQL :

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

1
2
3
SELECT T.MON$TRANSACTION_ID
FROM MON$ATTACHMENTS r JOIN MON$TRANSACTIONS T on T.MON$ATTACHMENT_ID=R.MON$ATTACHMENT_ID
WHERE r.MON$SYSTEM_FLAG=0 AR r.MON$STATE=1 AND r.MON$REMOTE_PROCESS=:application_name

où :application_name est le nom (chemin inclus) de l'application qui a utilisé la transaction

[DOliv]

[*]Le TFDMoniCustomClientLink permet de monitorer l'activité d'une session

Ah ben merci, je vais me pencher la-dessus.

[*]rien que le FDQuery a des propriétés comme RowsAffected

Ce n'est pas l'information retournée par les composants que je voudrais, mais celles existant dans la base de données.

[DOliv]

Pour obtenir MON$TRANSACTION_ID à partir de l'application il faudrait faire une query pendant que la transaction est "ouverte" (mon$state=1)

Code SQL :

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

1
2
3
SELECT T.MON$TRANSACTION_ID
FROM MON$ATTACHMENTS r JOIN MON$TRANSACTIONS T on T.MON$ATTACHMENT_ID=R.MON$ATTACHMENT_ID
WHERE r.MON$SYSTEM_FLAG=0 AR r.MON$STATE=1 AND r.MON$REMOTE_PROCESS=:application_name

Magnifique ! Je vais plutôt essayer ça. Franchement, ça ne s'invente pas
Encore merci Sergio.

[SergioMaster]

Franchement, ça ne s'invente pas

ça se travaille via les documents fournis.

P.S. le FDMonitoring n'est pas la solution pour obtenir l'id de la transaction
P.P.S. il existe bien un FDTransaction.TransactionIntf.SerialId mais ne correspond pas au mon$transaction_id

[DOliv]

ça se travaille via les documents fournis.

Ah ben quand j'aurai travaillé le sujet, ça ira mieux
Sinon, ça sert à quoi d'avoir des forums si c'est pour arriver après avoir travaillé le sujet

Quand on sait poser une question parfaitement, c'est qu'on a déjà la réponse .

[Paul TOTH]

Ah ben quand j'aurai travaillé le sujet, ça ira mieux
Sinon, ça sert à quoi d'avoir des forums si c'est pour arriver après avoir travaillé le sujet

Quand on sait poser une question parfaitement, c'est qu'on a déjà la réponse .

personnellement je pose deux types de questions:

1) je n'ai jamais travaillé sur tel sujet, existe il des solutions toutes faites ou une documentation explicite ?
2) j'ai bossé le sujet, mais il y a un truc que je comprend pas, qui ne fonctionne pas, qui peux m'expliquer ?

mais je pose rarement des questions en fait.

[popo]

Ah ben quand j'aurai travaillé le sujet, ça ira mieux
Sinon, ça sert à quoi d'avoir des forums si c'est pour arriver après avoir travaillé le sujet

Cela sert à montrer qu'on a fait des efforts pour trouver la solution plutôt que de se dire que quelqu'un fera cela ta place.
Cf. les règles du forum : http://club.developpez.com/regles/#LIV-N

[ShaiLeTroll]

D'ailleurs, FireDAC ce n'est pas de la VCL, donc autant déplacer le sujet dans section Forum > Environnements de développement > Delphi > Bases de données

Une question select current_transaction from rdb$database c'est peut-être plus léger que MON$TRANSACTIONS ?
Je n'ai jamais fait de firebird mais il y a la doc : https://firebirdsql.org/refdocs/lang...ansaction.html
D'ailleurs MON$TRANSACTIONS ne renvoient toutes les connexions, comment gérer la bonne transaction avec le chemin de l'exe avec le même exe lancé plusieurs fois ou avec du multithread ?

[ShaiLeTroll]

C'est confirmé par le code source de FireBirdSQL : https://github.com/FirebirdSQL/fireb...ing_tables#L35
Par exemple :

Code sql :

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

1
2
3
 SELECT MON$ISOLATION_MODE
        FROM MON$TRANSACTIONS
        WHERE MON$TRANSACTION_ID = CURRENT_TRANSACTION

[SergioMaster]

D'ailleurs, FireDAC ce n'est pas de la VCL, donc autant déplacer le sujet dans section Forum > Environnements de développement > Delphi > Bases de données

Ce que je viens de faire, j'avais eu la flemme hier

Une question select current_transaction from rdb$database c'est peut-être plus léger que MON$TRANSACTIONS ?

Pas sûr que cela donne le bon résultat, bonne idée, il faudra que je fasse un test

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
var t : string;
begin
FDConnection1.Connected:=True;
t:=fdConnection1.ExecSQLScalar('Select CURRENT_TRANSACTION From RDB$DATABASE');
Memo1.Lines.Add('ExecSQlScalar 1 = '+t);
fdQuery1.SQL.Clear;
fdquery1.SQL.Add('EXECUTE BLOCK AS BEGIN');
fdquery1.SQL.Add('DELETE FROM TEST;');
fdquery1.SQL.Add('INSERT INTO TEST (ID, NOM)  VALUES (''1'',''nom'');');
fdquery1.SQL.Add('INSERT INTO TEST (ID, NOM)  VALUES (''2'',''nom2'');');
fdquery1.SQL.Add('END');
try
fdquery1.Transaction:=FDtransaction1;
t:=fdConnection1.ExecSQLScalar('Select CURRENT_TRANSACTION From RDB$DATABASE');
Memo1.Lines.Add('ExecSQlScalar 2 = '+t);
fdTransaction1.StartTransaction;
try
 fdquery1.ExecSQL;
 Showmessage(fdQuery1.RowsAffected.ToString);
 FDTransaction1.Commit;
except
 on e:Exception do
  begin
    showmessage(e.Message);
    FDTransaction1.Rollback;
  end;
end;
finally
 fdquery1.Transaction:=nil;
end;
FDConnection1.Connected:=False;

en bleu les vérifications par l'obtention de CURRENT_TRANSACTION

>> StartTransaction [ConnectionDef=""]
<< StartTransaction [ConnectionDef=""]
>> Open [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
<< Open [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Fetch [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Fetched
. Var [N=0, Type=SQL_INT64, Prec=0, Scale=0, Size=8, Data=486]
<< Fetched
<< Fetch [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE", RowsAffected=1]
. Eof reached [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Close [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Commit [ConnectionDef="", Retaining=False]
<< Commit [ConnectionDef="", Retaining=False]
<< Close [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
ExecSQlScalar 1 = 486
>> Open [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> StartTransaction [ConnectionDef=""]
<< StartTransaction [ConnectionDef=""]
<< Open [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Fetch [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Fetched
. Var [N=0, Type=SQL_INT64, Prec=0, Scale=0, Size=8, Data=487]
<< Fetched
<< Fetch [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE", RowsAffected=1]
. Eof reached [ATable="RDB$DATABASE", Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Close [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
>> Commit [ConnectionDef="", Retaining=False]
<< Commit [ConnectionDef="", Retaining=False]
<< Close [Command="Select CURRENT_TRANSACTION From RDB$DATABASE"]
ExecSQlScalar 2 = 487
>> StartTransaction [ConnectionDef=""]
<< StartTransaction [ConnectionDef=""]
>> Execute [Command="EXECUTE BLOCK AS BEGIN
DELETE FROM TEST;
INSERT INTO TEST (ID, NOM) VALUES ('1','nom');
INSERT INTO TEST (ID, NOM) VALUES ('2','nom2');
END", ATimes=0, AOffset=0]
<< Execute [Command="EXECUTE BLOCK AS BEGIN
DELETE FROM TEST;
INSERT INTO TEST (ID, NOM) VALUES ('1','nom');
INSERT INTO TEST (ID, NOM) VALUES ('2','nom2');
END", ATimes=1, AOffset=0, RowsAffected=0, RowsAffectedReal=True, ErrorAction=5]
>> Commit [ConnectionDef="", Retaining=False]
<< Commit [ConnectionDef="", Retaining=False]

Cela semble bon, mais c'est pour le programme en cours, pas forcément donc, pour vérifier ce qui a été fait par un utilisateur, un autre programme, une certaine période, etc.

[ShaiLeTroll]

J'ai supposé que l'idée était de récupérer la transaction en cours, celle que l'on utilise à l'instant T.
Je ne crois pas que l'idée est de faire une sorte de journal de transaction pour un outil de monitoring, c'est plus simple comme question.

C'est vrai que donner le contexte et la raison de vouloir récupérer le numéro de la transaction aiderait pour apporter une réponse voire une autre approche

[DOliv]

personnellement je pose deux types de questions:

1) je n'ai jamais travaillé sur tel sujet, existe il des solutions toutes faites ou une documentation explicite ?
2) j'ai bossé le sujet, mais il y a un truc que je comprend pas, qui ne fonctionne pas, qui peux m'expliquer ?

mais je pose rarement des questions en fait.

Salut Paul. Si je pose ces questions, on va me répondre par une question
Toujours à la Réunion ?

[DOliv]

Merci ShaiLeTroll,
Je vais tester les deux solutions et je ferai un retour.

J'ai supposé que l'idée était de récupérer la transaction en cours, celle que l'on utilise à l'instant T.
Je ne crois pas que l'idée est de faire une sorte de journal de transaction pour un outil de monitoring, c'est plus simple comme question.

C'est tout à fait ça.

C'est vrai que donner le contexte et la raison de vouloir récupérer le numéro de la transaction aiderait pour apporter une réponse voire une autre approche

Comme quoi, ce n'était pas forcément utile. Tu as parfaitement compris

Merci encore.

[DOliv]

Cela sert à montrer qu'on a fait des efforts pour trouver la solution plutôt que de se dire que quelqu'un fera cela ta place.
Cf. les règles du forum : http://club.developpez.com/regles/#LIV-N

Oui Popo

[DOliv]

Bonjour à tous.tes,

La version de Sergio a l'immense avantage d'être liée à l'application.
Donc ça marche nickel, il me renvoi bien le numéro de la transaction d'après le nom de l'application.

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
      QryNumTr := TFDQuery.Create(nil);
 
      with QryNumTr, SQL do
      begin
        Connection := Qry.Connection;
        Text       := 'SELECT t.MON$TRANSACTION_ID ' +
                      'FROM MON$TRANSACTIONS t JOIN MON$ATTACHMENTS a ON t.MON$ATTACHMENT_ID = a.MON$ATTACHMENT_ID  ' +
                      'WHERE a.MON$STATE = 1 AND a.MON$REMOTE_PROCESS = ' + QuotedStr(Application.ExeName)      //a.MON$SYSTEM_FLAG = 0 AND
                      ;
      end;
 
      with Qry, SQL do
      begin
        try
          QryTr.StartTransaction;
          QryNumTr.Open;
 
          ShowMessage(IntToStr(QryNumTr.Fields[0].AsInteger));
 
          ExecSQL;

Mais est-il possible de faire la même chose avec le "numéro de l'instance" de l'application, au cas où plusieurs instances de cette application seraient actives ?
En demandant gentiment ?
Merci d'avance.

P.S. je n'ai pas trouvé MON$SYSTEM_FLAG dans les tables. Est ce que c'est important ?

[SergioMaster]

P.S. je n'ai pas trouvé MON$SYSTEM_FLAG dans les tables. Est-ce que c'est important ?

pas si la version Firebird est la 2.5

'WHERE a.MON$STATE = 1 AND a.MON$REMOTE_PROCESS = ' + QuotedStr(Application.ExeName)

NON,NON et NON c'est carrément mal compris ! En plus, OMG, ces create sans try finally, ces with de quoi planter !

Si j'ai mis un paramètre à la requête

Code :

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

1
2
3
SELECT T.MON$TRANSACTION_ID
FROM MON$ATTACHMENTS r JOIN MON$TRANSACTIONS T on T.MON$ATTACHMENT_ID=R.MON$ATTACHMENT_ID
WHERE r.MON$SYSTEM_FLAG=0 AR r.MON$STATE=1 AND r.MON$REMOTE_PROCESS=:application_name

ce n'est pas pour rien et autant l'utiliser !

Query1.ParamByName('application_name').asString:=Application.exename; ou Query1.Open('',[Applcation.exename]);Et ce paramètre n'est là que pour indiquer un nom d'application, pas forcément le programme en cours





S'il s'agit de l'application en cours, autant passer par le code que j'ai proposé suite à la réflexion de ShaileTroll

Code :

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

1
2
3
4
5
6
7
8
FDConnection1.Connected:=True;
t:=fdConnection1.ExecSQLScalar('Select CURRENT_TRANSACTION From RDB$DATABASE');
Memo1.Lines.Add('ExecSQlScalar 1 = '+t);
 
fdquery1.Transaction:=FDtransaction1;
FdTransaction1.StartTransaction;
fdQuery1.open('Select CURRENT_TRANSACTION From RDB$DATABASE');
Memo1.Lines.Add('Query transaction= '+fdQuery1.FiedByName('CURRENT_TRANSACTION').asString);

Mais est-il possible de faire la même chose avec le "numéro de l'instance" de l'application, au cas où plusieurs instances de cette application seraient actives ?

C'est là où ça coince, on l'avait bien souligné plusieurs fois, et c'est bien pour cela qu'il faut étudier à fond la structure des tables de monitoring.
Il y a bien la colonne MON$REMOTE_PID de la Table MON$ATTACHMENTS mais cela n'a certainement pas grand-chose à voir avec le "numéro de l'instance"

[DOliv]

ces create sans try finally, ces with de quoi planter !

Remets toi Sergio, bien sûr qu'il y a des try finally
Quant à la légende des with qui créeraient des bugs, j'attends toujours qu'on me montre un cas concret ...

Et ce paramètre n'est là que pour indiquer un nom d'application, pas forcément le programme en cours

S'il s'agit de l'application en cours, autant passer par le code que j'ai proposé suite à la réflexion de ShaileTroll

Code :

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

1
2
3
FDConnection1.Connected:=True;
t:=fdConnection1.ExecSQLScalar('Select CURRENT_TRANSACTION From RDB$DATABASE');
Memo1.Lines.Add('ExecSQlScalar 1 = '+t);

Oui, ça me semble intéressant.

C'est là où ça coince, on l'avait bien souligné plusieurs fois, et c'est bien pour cela qu'il faut étudier à fond la structure des tables de monitoring.
Il y a bien la colonne MON$REMOTE_PID de la Table MON$ATTACHMENTS mais cela n'a certainement pas grand-chose à voir avec le "numéro de l'instance"

Ok merci pour ces précisions, je me mets dessus dès que possible.