Firebird : tester l'existence d'une table

Version imprimable

26/03/2007, 20h35
zarbouine

Firebird : tester l'existence d'une table

bonjour,

je débute avec firebird...
Comment faire pour tester l'existence d'une table dans la base ?

merci d'avance
26/03/2007, 21h24
akli_agha

Je ne sais pas si la propriété Exists du BDE fonctionne avec FB !
C'est bon d'essayer.
26/03/2007, 21h49
Cl@udius
Salut

Cette requête renvoie 0 ou 1 avec respectivement l'absence ou la présence de MATABLE dans la BDD.
Code:

1 2 3 select count(*) from RDB$RELATIONS where RDB$RELATION_NAME = 'MATABLE';
@+ Claudius
27/03/2007, 16h06
zarbouine

ok merci je vais essayer ça

Bonjour

Voici ma fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function TableExist(TableName : String): Boolean;
Begin
 Query.SQL.Clear;
 Query.SQL.Add('SELECT COUNT(*) AS COMBIEN FROM RDB$RELATIONS  WHERE RDB$RELATION_NAME = '+
                QuotedStr(TableName));
 Query.ExecSQL  ;
 Query.Active:=true;
if DataSourceQuery.DataSet.FieldByName ('COMBIEN').asinteger > 0 then
                    Result := True
                                                                  else
                    Result := False;
End;

un os..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
fuction IsValidDatabase : boolean;
begin
  with QValidDatabase.SQL do
  begin
    QValidDatabase.Close;
    Clear;
    Add('SELECT count(*)  ');
    Add('FROM RDB$RELATIONS ');
    Add('WHERE RDB$RELATION_NAME =:MATABLE ');
    QValidDatabase.ParamByName('MATABLE').Text := 'TOTO';
    QValidDatabase.Open;
  end;
  Result := (QValidDatabase.RecordCount <> 0);
end;

je n'ai aucune table au nom de TOTO et pourtant
un point d'arrêt sur le RecordCount me donne 1 !!
???

merci de votre aide

cantador

11/09/2015, 13h55
delagoutte

ce n'est pas le recordcount qu'il faut regarder mais la valeur renvoyer par le count du select

Code:

result := (QValidDatabase.fields[0].asinteger>0)

OK !

oh la belle toile !

merci delagoutte

je fais plutôt comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
fuction IsValidDatabase : boolean;
begin
  with QValidDatabase.SQL do
  begin
    QValidDatabase.Close;
    Clear;
    Add('SELECT count(*) as TOTAL ');
    Add('FROM RDB$RELATIONS ');
    Add('WHERE RDB$RELATION_NAME =:MATABLE ');
    QValidDatabase.ParamByName('MATABLE').Text := 'TOTO';
    QValidDatabase.Open;
  end;
  Result := (QValidDatabase.FieldByName('TOTAL').Value <> 0);
end;

@bientôt

11/09/2015, 14h16
solilog

Bonjour,
Exact Delagoutte, le result boolean sera:
Result := (QValidDatabase.Fields[0].asinteger <> 0);
Si tu fais un count(°), tu auras toujours un record avec 0 (pas de table) 1 (une table), je ne vois pas comment çà pourrait être + que 1.
solilog
14/09/2015, 12h48
Thierry Laborde

Citation:

Envoyé par zarbouine

bonjour,

je débute avec firebird...
Comment faire pour tester l'existence d'une table dans la base ?

merci d'avance

Vous utilisez quelle version de Delphi ? et quels composants d'accès à votre base Firebird ?