Array
(
)

Nome das tabelas do GDB

Marcelo
   - 10 set 2004

Olá! Gostaria de saber como extrair o nome de todas as tabelas de um GDB! Por exemplo, exibi-los em um TMemo1 apenas o nome de todas as tabelas, assim:
#Código

CAD_EMPRESA
CAD_CLIENTE
CAD_FORNECEDOR
CAD_PRODUTOS
etc...

Será que alguem pode me ajudar com isso?


Vinicius2k
   - 10 set 2004

Colega,

Veja o tópico :
http://delphiforum.icft.com.br/forum/viewtopic.php?t=46307

Espero ter ajudado...
T+


Edmarss
   - 12 set 2004

procedure Busca_Tabelas_Fisicas(ListTab: TStringList);
Begin
ListTab.Clear;
If DBExpress Then Begin
SqlDataSet.SQLConnection.GetTableNames(ListaTab,false);
End;
If Zeos Then Begin
ZSQLMetadata.Close;
ZSQLMetadata.MetadataType:=mdTables;
ZSQLMetadata.Open;
While Not SQLMetadata.Eof Do Begin
ListTab.Add(SQLMetadata.Fields[2].AsString);
SQLMetadata.Next;
End;
End;
If BDE
DataBase.GetTableNames(´nome_alias´,´´,false,true,ListaTab);
End;
End;

Espero ter ajudado....