Listar as tabelas internas do FB no IBExpert

Question

Ol� galera algu�m sabe como fazer para listar as tabelas internas do Firebird 1.5 normalmente como as tabelas criadas por n�s no DataBase Explorer do IBExpert Personal?...

Weber · Accepted Answer

Registro o banco de dados, ap�s ter registrado v� em:DATABASE >> DATABASE REGISTRATION INFO >> ADDITIONAL >> DBEXPLORER depois marque SHOW SYSTEM TABLES...

Marco Salles · Answer

voce pode usar o DbExpress para recuperar informa��es sobre objetos do banco de dados, como nome de tabelas, campos, �ndices (o que chamamos de metadados).

No dbExpress, a interface respons�vel pela obten��o de metadados � a ISQLMetaData, declarada na unit DBXpress.pas

Para usar essa interface, devemos usar o m�todo SetSchemaInfo de um DataSet do dbExpress.

Coloque SQLConnection no e configure uma conex�o para o banco que se deseja recuperar os metadados...

coloque mais alguns componentes , e fa�a estas relacionamentos

Configure o relacionamento entre os componentes da seguinte forma:

object DBGrid1: TDBGrid DataSource = DataSource1 end object DBGrid2: TDBGrid DataSource = DataSource2 end object SQLQuery1: TSQLQuery SQLConnection = SQLConnection1 end object DataSetProvider1: TDataSetProvider DataSet = SQLQuery1 end object ClientDataSet1: TClientDataSet ProviderName = �DataSetProvider1� end object DataSource1: TDataSource DataSet = ClientDataSet1 end object SQLQuery2: TSQLQuery SQLConnection = SQLConnection1 end object DataSetProvider2: TDataSetProvider DataSet = SQLQuery2 end object ClientDataSet2: TClientDataSet ProviderName = �DataSetProvider2� end object DataSource2: TDataSource DataSet = ClientDataSet2 end

No evento OnCreate do formul�rio digite o seguinte:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLQuery1.SetSchemaInfo(stTables,��,��);
  ClientDataSet1.Open;
end;

E no evento OnDateChange do DataSource1 digite o seguinte:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  tb: string;
begin
  ClientDataSet2.Close;
  tb := ClientDataSet1.FieldByName(�TABLE_NAME�).AsString;
  SQLQuery2.SetSchemaInfo(stColumns,tb,��);
  ClientDataSet2.Open;
end;

boa sorte..

Mkoch · Answer

Obrigado pela dica, mas acho que � poss�vel velas pelo IBExpert.Deus existe sim....

Marco Salles · Answer

[quote:d167391eb6]Obrigado pela dica, mas acho que � poss�vel velas pelo IBExpert. [/quote:d167391eb6]Desculpe , eu entendi que voce queria listar os metadados , no delphi a partir das tabelas criadas no IbExpert[quote:d167391eb6]Ol� galera algu�m sabe como fazer para listar as tabelas �internas� do Firebird 1.5 [/quote:d167391eb6]relendo o seu t�pico , voce se refere a tabelas internnas... O que seria estas Tabelas ????Seria as tabelas que vem junto com o Firebird na sua isntala��o ????[quote:d167391eb6]Deus existe sim.[/quote:d167391eb6]e esta no meio de n�s...

Mkoch · Answer

Valeu era isso mesmo que eu queria. Obrigado a todos pela ajuda....

F�rum Listar as tabelas internas do FB no IBExpert #56791