Composant ZeosLib : extraction structure BDD

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" :ccool:

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

Code:

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;