Discussion :

[zarbouine]

bonjour,

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

merci d'avance

[akli_agha]

Je ne sais pas si la propriété Exists du BDE fonctionne avec FB !
C'est bon d'essayer.

[Cl@udius]

Salut

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

Code sql :

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

1
2
3
select count(*)
from RDB$RELATIONS
where RDB$RELATION_NAME = 'MATABLE';

@+ Claudius

[zarbouine]

ok merci je vais essayer ça

[defluc]

Bonjour

Voici ma fonction :

Code :

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

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;

[cantador]

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
 
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

[Thierry Laborde]

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 ?