Nome das tabelas do GDB

Delphi

10/09/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:
CAD_EMPRESA
CAD_CLIENTE
CAD_FORNECEDOR
CAD_PRODUTOS
etc...

Será que alguem pode me ajudar com isso?


Marcelo

Marcelo

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

10/09/2004

Colega,

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

Espero ter ajudado...
T+


GOSTEI 0
Edmarss

Edmarss

10/09/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....


GOSTEI 0
POSTAR