Discussion :

[DOliv]

Salut Sergio.

Sehr simple :
Avec un Query QryNumTr, je voudrais récupérer le numéro de transaction généré dans la base par un query dont l'objet transaction s'appelle QryTr.
J'ai donc retiré l'autostart de QryTr afin de :
1- démarrer la transaction de QryTr
2- lancer QryNumTr pour récupérer le numéro de transaction généré par le 1-

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
        QryTr.StartTransaction;   //transaction de Qry
 
        //récupération du numéro de transaction
 
        QryNumTr := TFDQuery.Create(nil);
 
        with QryNumTr, SQL do
        begin
          Connection := Qry.Connection;
          Text          := 'SELECT CURRENT_TRANSACTION FROM RDB$DATABASE';
          Open;
 
          NumTransac := Fields[0].AsString;
        end;
 
        //
 
        with Qry, SQL do
        begin
          ExecSQL;

Mais, du coup, je dois sûrement récupérer le numéro de transaction de QryNumTr que je lance, de toute façon, après QryTr Quel boulet (ou pas ? )

[DOliv]

b) Qu'il est temps de changer de version de Firebird pour avoir les évolutions du monitoring

D'accord, mais c'est pas moi le boss Trop passé de temps avec les filles pour monter ma boîte Ah celles là !

[SergioMaster]

Mais, du coup, je dois sûrement récupérer le numéro de transaction de QryNumTr que je lance, de toute façon, après QryTr Quel boulet (ou pas ? )

Déjà un beau mélange de genre puisque sur le forum Firebird alors que c'est plus du Delphi qu'autre chose (en plus ce code est mal écrit)

//transaction de QryNB. une transaction de Query ?! peut être un FDTransaction différent de celui de la connexion donc ce n'est pas explicite

Code :

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

1
2
FDConnection.StartTransaction;  
NumTransac:=FdConnection.ExecSQLScalar( 'SELECT CURRENT_TRANSACTION FROM RDB$DATABASE');

et voilà déjà 8 lignes supprimées
quant à ça

Code :

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

1
2
3
   with Qry, SQL do
        begin
          ExecSQL;

ça ne nous amène à rien d'explicite et pourquoi ne pas passer directement par le fdConnexion puisque c'est un ExecSQL sans retour de résultat ?


et je ne comprends toujours pas le besoin ! Et, ce malgré ce qui a pu être écrit dans la discussion Delphi
https://www.developpez.net/forums/d2...fdtransaction/

[DOliv]

Euh oui, je crois qu'on est pas du tout sur la même longueur d'onde
Le code SQL de Qry n'est pas là.
Le code présenté est juste pour présenter le déroulement de la manip.
Si j'enlève les lignes que tu as retirées, ça risque pas de marcher

[DOliv]

En fait, je pense avoir la soluce, mais pas tout à fait.
Effectivement, en faisant comme ça, je ramène le numéro de transaction de la transaction que je lance pour le récupérer
Du coup, il faut juste que je récupère le numéro précédent.
Mais comment être sûr qu'une transaction n'a pas été lancée sur la base dans l'intervalle ?
Du coup, c'est ce numéro que je récupérerais.

[DOliv]

Déjà un beau mélange de genre puisque sur le forum Firebird alors que c'est plus du Delphi qu'autre chose

Mais oui, en fait le sujet est le même.

Je veux récupérer le numéro de transaction pour récupérer les info de la table MON$RECORD_STATS (<- Mais c'est pas facile d'expliquer ça. )
Donc, du coup c'est, de fait, un mélange de genres

Dès que j'ai la solution que je cherche je publierai mon magnifique code

Merci pour ton temps et tes pistes, je n'aurais jamais pu trouver tout seul les endroits où intervenir. Sauf à lire la doc Firebird en entier (avant de poser une question dont j'aurai eu, du coup, la réponse avant de poster cette question, qui n'en aurait plus été une, sur un forum ).

Ich liebe dich

[SergioMaster]

Euh oui, je crois qu'on est pas du tout sur la même longueur d'onde

Entièrement, ta faute, car le problème n'est pas/est mal exposé.
Là, on est dans le forum Firebird pas dans Delphi

Si j'enlève les lignes que tu as retirées, ça risque pas de marcher

Il suffit de rajouter la manip suivante avant de clore la transaction, je n'ai fait que réduire une partie code permettant d'éviter de nombreuses erreurs, je n'ai pas relevé les divers with ou le Create sans Free.
Tant qu'à faire de mettre du code Delphi pour demander des explications autant écrire quelque chose de correct (ce qui est rarement ton habitude)

[SergioMaster]

Mais oui, en fait le sujet est le même.

Autant alors rester Delphi

Je veux récupérer le numéro de transaction pour récupérer les info de la table MON$RECORD_STATS

c'est là où le bât blesse : L'utilité de cette démarche car si je me souviens bien (c'est le problème de jongler entre les 2 forums et 3 discussions) le départ, c'était d'utiliser un script contenant un ensemble d'instructions SQL. Ce décompte/contrôle n'est venu qu'après car tu étais incapable d'utiliser ou n'a pas voulu utiliser FDScript et persisté en un EXECUTE BLOCK

[DOliv]

Autant alors rester Delphi

c'est là où le bât blesse : L'utilité de cette démarche car si je me souviens bien (c'est le problème de jongler entre les 2 forums et 3 discussions) le départ, c'était d'utiliser un script contenant un ensemble d'instructions SQL.

Non Sergio. Ca, c'était la solution que tu avais proposée. Et que j'ai testée.

ou n'a pas voulu utiliser FDScript et persisté en un EXECUTE BLOCK

Exactement.

C'est cette solution qui a été retenue.
Et quand j'aurai fini, je ne sais pas quand, mais bientôt, je publierai la solution pour ceux qui ne veulent pas utiliser un Script à cause du temps d'exécution

[DOliv]

Donc, ce code écrit en Delphi correct, aéré et lisible, nonobstant les légendes créées par les pisseurs de code (qui ne maîtrisent donc pas leur code )
je mets à jour plus de 5.000 lignes en 17 sec dans une base Firebird sur réseau local, en construisant dynamiquement 150 blocs d'inserts exécutés dans autant d'EXECUTE BLOCKs.
Tout en créant un rapport précis au block près.
C'est un bon rapport rapidité / précision.

Sauf erreur de retranscription :

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
34
 
try
  QryTr.StartTransaction;   //(transaction de Qry)
 
  //récupération du numéro de transaction
 
  QryNumTr := TFDQuery.Create(nil);
 
  with QryNumTr, SQL do
  begin
    Connection := Qry.Connection;
    Text          := 'SELECT CURRENT_TRANSACTION FROM RDB$DATABASE';
    Open;              //c'est là que je compte sur le fait que le numéro de transaction créé sera le numéro de transaction de QryTr + 1. Si c'est pas ça, j'ai vraiment du bol, jusqu'à présent !
 
    NumTransac := Fields[0].AsInteger - 1;
  end;
 
  with Qry, SQL do
  begin
    if DebugHook > 0 then 
	   SaveToFile(ExtractFilePath(Application.ExeName) + 'SQL.txt');
 
    ExecSQL;  //exécute ce qu'il a à exécuter. Par exemple EXECUTE BLOCK.. ..
 
    CheckResult; (dont le code suivant)
    QryTr.Commit;
  end;
except
  QryTr.Rollback;
  tResult.Lines.Add('L''opération a échoué : ' + Qry.SQL.Text);
  tResult.Update;
 
  Inc(Echecs);
end;

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
 
        with QryResult, SQL do
		try
          Connection := Qry.Connection;
          Text       := 'SELECT              ' +
                        'MON$RECORD_INSERTS, ' +
                        'MON$RECORD_UPDATES, ' +
                        'MON$RECORD_DELETES, ' +
                        'MON$RECORD_BACKOUTS ' +
                        'FROM                ' +
                        'MON$ATTACHMENTS a JOIN MON$RECORD_STATS r ON a.MON$STAT_ID       = r.MON$STAT_ID       ' +
                        '                  JOIN MON$TRANSACTIONS t ON a.MON$ATTACHMENT_ID = t.MON$ATTACHMENT_ID ' +
                        'WHERE               ' +
                        'LOWER(MON$REMOTE_PROCESS) LIKE LOWER(' + QuotedStr(Application.ExeName)       + ') AND ' +
                        't.MON$STATE = 1 AND    ' +
                        't.MON$TRANSACTION_ID = ' + IntToStr(NumTransac)
                        ;
          if DebugHook > 0 then
             SaveToFile(ExtractFilePath(Application.ExeName) + '\SQLResult.txt');
 
          Open;
        finally
		  //finalize what you have to
        end;

Ben, pis faut pas oublier de tout détruire après. Vandales
Dans l'absolu, je ne sais pas dans quelle mesure une transaction ne pourrait pas être lancée dans l'intervalle. Prenant le numéro NumTransac -1
Du coup, je me retrouverais à tester les résultats d'une autre transaction exécutée par une autre instance de l'appli (M'en f..., dirai qu'c'est bizarre)

[DOliv]

Oui alors euh, non.
Se fier au numéro de transaction est trop risqué. Trop difficile à choper le bon.
Je l'ai remplacé par l'adresse IP du poste :

Code :

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

1
2
3
4
 
                        //'t.MON$TRANSACTION_ID = ' + IntToStr(NumTransac)                                + ' AND ' +
                        'LEFT(MON$REMOTE_ADDRESS, ' + IntToStr(Length(AdrIPLoc)) + ') LIKE ' + QuotedStr(GetAddIP)
                        ;

avec GetIP =

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
 
        function GetAddIP: String;
        var
          LstAddr : TIdStackLocalAddressList;
          Addr    : TIdStackLocalAddress;
          i       : Integer;
 
        begin
          LstAddr := TIdStackLocalAddressList.Create;
 
          try
            GStack.GetLocalAddressList(LstAddr);
 
            Addr   := LstAddr[LstAddr.count-1];
            Result := Addr.IPAddress;
 
          finally
            LstAddr.Free;
          end;
        end;

Merci à "a l'heure du déjeuner" entr'autre. Encore un qui a dû déceder .