Discussion :

[mina24]

Bonjour,

Comment vérifier si une table est déjà ouverte ?
j'ai pensé à la procedure suivante mais je ne sais pas si elle est bonne ou non?

Code :

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

1
2
3
4
5
procedure TForm.FormShow(Sender: TObject);
begin
if table.active=false then // Vérifier si la table n'est pas ouverte(open) sinon l'ouvrir
 table.Open;
 end;

Merci pour votre aide!

Mina24.

[MickSou]

Ca semble bien, y a pas de raison!

[ShaiLeTroll]

d'un point vue syntaxe, ça devrait être

Code :

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

1
2
if not table.Active then 
 table.Open;

bon, c'est la suite de Open / Close sous firebird

Cela fonctionne aussi pour tout TMDOCustomDataSet comme TMDOQuery ou TMDOTable, Active est hérité du TDataSet standard de Delphi

En général pour FireBird, on utilise UIB de Prodigy pourquoi le choix de MDO ?
C'est nettement moins répandu !

[mina24]

Merci pour vos reponses
mon choix pour le mdo est le fait que j'utilise delphi 7.et les composants ib qui viennent avec ne me permetent pas d'ouvrir une base de donnée .fbd
mina24

[SergioMaster]

ShaileTroll parlait des UIB pas des composants IBxxxxx qui peuvent s'utiliser avec les bases Firebird (quelque soit l'extension d'ailleurs) mais ça n'est pas très recommandé avec les nouvelles versions de Firebird 2.1 et +

Je ne connais pas les MDO donc ....

Pour un débutant je recommanderai les composants ZEOSDBO (surtout si D7 non UNICODE) les UIB étant un peu complexe a maitriser

quant a la syntaxe personnellement je préfère le Table.Active:=True au Table.Open (ça fait la même chose une idiosyncrasie de ma part )
autrement rien a dire