Discussion :

[Papy214]

Bonjour

J'utilise le composant TFDconnection pour récupérer les bases disponibles sur une server MySQL.
En appliquant la procédure GetCatalogNames, je récupére toutes les bases, y compris, information_schema, myssql, etc.
Je ne trouve pas le moyen de filtrer la réponse pour ne pas avoir ces bases dans la liste retour.

Quelqu'un connaitrait-il-elle l'astuce pour faire ça ?

[Paul TOTH]

tu peux passer par SHOW TABLES

[SergioMaster]

Bonjour,

Tout d'abord, merci d'avoir posé cette question qui m'a permis de tester des connexions mysql ce que j'avais omis jusqu'à présent et qui m'a permis de me pencher sur cette partie catalogue que je ne connaissais pas (il faudra que j'essaye avec Firebird histoire de ...)

Si je comprends bien la question il s'agirait en fait de savoir quoi mettre dans le Pattern de l'instruction ?

en exemple ne récupérer que les schemas

Code :

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

1
2
if FDConnection1.Connected then
  FDConnection1.GetCatalogNames('%schema',Memo1.Lines)

Sauf que ce serait en sens inverse récupérer tout sauf les schemas et 'mysql' ce qui n'est je pense pas possible . Je n'arrive même pas à voir où le pattern est utilisé dans les sources

Reste les options de connexion : aucune idée
ou le bon vieux code en passant par une liste de chaine intermédiaire

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
 
var Strings : TStringList;
    s : string;
begin
FDConnection1.Connected:=True;
if FDConnection1.Connected then
  begin
    Strings:=TStringList.Create;
    try
     FDConnection1.GetCatalogNames('',Strings);
     for s in Strings do
       if not ( S.Contains('_schema') OR SameText(S,'mysql')) then memo1.Lines.Add(s);
    finally
     Strings.Clear;
    end;
  end;

N.B. testé avec 2 Bases

[Papy214]

Merci pour vos idées !

J'ai pris la solution qui consiste à filtrer manuellement sur les noms connus que je ne veux pas afficher.