Discussion :

[castorcharly]

Bonjour,

Je ne suis pas certain de moi sur la signification du contenu du champ MON$STATE sur une requête
select MON$STATE from MON$ATTACHMENTS
On obtient 0 ou 1, j'en ai déduit que 0 signifiait pas de transaction en cours et 1, transaction(s) en cours,
j'ai bon ou je suis à coté de la plaque ?

Merci

[SergioMaster]

https://ib-aid.com/download/docs/fir...monattach.html
je dirais plutôt 0 -en attente (à l'écoute) et 1-active

[castorcharly]

Merci SergioMaster,

je n'avais pas trouvé ce tableau.
Je me demandais si une base pouvait être active sans qu'une transaction le soit,
je suppose qu'il y a des fonctions qui peuvent travailler sur la base sans ouvrir de transaction ?

[castorcharly]

Bonjour,

Je relance sur une question plus générale, est il possible de connaître les bases connectées à un serveur ?
Je m'explique, j'ai un serveur FB de lancé, je souhaiterai savoir qu'elles sont les bases ouvertes, en interrogeant le serveur
et non en interrogeant chaque base pour savoir s'il y a connexion.

Est ce possible ?

Merci,

[TryExceptEnd]

Avec l'API : isc_info_svc_svr_db_info, tu as toutes les infos sur le serveur et les bases connectées. Sinon moi j'utilise le composant TUIBServerInfo pour les récupérer.

[castorcharly]

Avec l'API : isc_info_svc_svr_db_info, tu as toutes les infos sur le serveur et les bases connectées. Sinon moi j'utilise le composant TUIBServerInfo pour les récupérer.

Merci,

Mais avec Firedac, existe t il un composant qui renvoi ça ?

[SergioMaster]

Bonjour,

Mais avec Firedac, existe t il un composant qui renvoi ça ?

une recherche dans les sources de Firedac (FireDAC.Phys.IBWrapper) et tu retrouves procedure TIBInfo.GetUsage(out AUsage: TUsage); qui utilise isc_info_svc_svr_db_info.
Après cela il suffit de trouver le reste, à savoir qu'il existe le composant FDIBInfo qu'il est possible d'utiliser

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
var 
    pusg : TIBInfo.TUsage;
    aversion : TIBINfo.TVersion;
    s : String;
    FBDataBase : TIBDataBase;
begin
//Label5.Text:=EvalFunc.CalcExpr(Edit1.Text).toString;
//FBDatabase := TObject(FDSource.CliObj) as TIBDatabase;
Memo1.Lines.Clear;
FDIBinfo1.GetVersion(aversion);
memo1.Lines.Add(aversion.FServerStr);  // version 
FDIBInfo1.GetUsage(pusg); 
memo1.lines.Add(format('nbr bases connectées %d',[pusg.FDatabases]));
memo1.lines.Add(format('nbr de liaisons %d',[pusg.FAttachments]));
for s in pusg.FDBNames do  // chemin des bases 
  memo1.Lines.Add(S);
...
end;