Discussion :

[sam-sam]

Bonjour,

j'utilise actuellement le composant ZeosLib (je développe sous Delphi) et j'aimerai obtenir la structure d'une BDD Access à l'aide du module ZSQLMetadata de ce composant mais je me retrouve avec des tables dites "système" en plus des tables normales.

comment faire pour supprimer ces tables systèmes de ma liste ? (ou comment les différencier par rapport aux autres tables, avec ce composant)

[sam-sam]

Bon...en fait, la solution est toute simple, les tables systèmes ACCESS commencent toutes par "MSys" donc à partir de là, il suffit de parcourir toutes les tables et d'enlever toutes celle commençant par "MSys"

Voici mon code pour ceux que ça intéresse :

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
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.FormShow(Sender: TObject);
begin
  GetAllTableName;
end;
 
function TForm1.nosystemtable(Value: string): boolean;
begin
  Result := Copy(Value, 1, 4) <> 'MSys';
end;
 
procedure TForm1.GetAllTableName;
begin
    ComboBox1.Items.Clear;
    DataModule1.ZSQLMetadata1.Close;
      //DataModule1.ZSQLMetadata1.MetadataType := mdTables;
    if DataModule1.ZConnection1.Connected then
      DataModule1.ZSQLMetadata1.Open;
    while not  DataModule1.ZSQLMetadata1.Eof do begin
      if NoSystemTable(DataModule1.ZSQLMetadata1.FieldByName('TABLE_NAME').AsString) then
        ComboBox1.Items.Add(DataModule1.ZSQLMetadata1.FieldByName('TABLE_NAME').AsString);
      DataModule1.ZSQLMetadata1.NExt;
    end;
    DataModule1.ZSQLMetadata1.Close;
    if Combobox1.Items.Count > 0 then begin
      Combobox1.ItemIndex := 0;
    end;
end;