Tabelas do banco em um combobox

Question

Ol� pessoal,como mostrar as tabelas do banco em um combo? e em outro combo os campos de uma determinada tabela;...

Ntrafa · Answer

Blz pessoal, ja encontrei a solu��o... obrigado pela aten��o...

Marco Salles · Answer

[quote:1de48688e3]Blz pessoal, ja encontrei a solu��o... obrigado pela aten��o[/quote:1de48688e3]Sera que seria muito pedir , para voce mostrar como encontrou a solu��o :lol:  :lol:  :lol:...

Otto · Answer

ol� Marcos, tb ja fiz isso, vc pode fazer assim:

Var
  QryTabelas: TQuery;
begin
  QryTabelas := TQuery.Create(Self);
  try
    QryTabelas.DataBasename := �DIBM�;
    with QryTabelas do
    begin
      if Active Then Close;
      SQL.Text := � SELECT RDB$RELATION_NAME FROM RDB$RELATIONS             �+
                  �  WHERE (RDB$SYSTEM_FLAG = 0 or RDB$SYSTEM_FLAG is null) �+
                  �    AND RDB$VIEW_BLR IS NULL �;
      Open;
      First;
      while not Eof do
      begin
        ListBoxTabelas.Items.Add(FieldByName(�RDB$RELATION_NAME�).AsString);
        Next;
      end; //while
    end; //with
  finally
    FreeAndNil(QryTabelas);
  end; //try;

usei um TQUery usando o banco firebird.. ;)

Marco Salles · Answer

Otto , obrigado.. Amanha Vou testar .Se n�o consegui eu Posto Novamente Mas desde ja eu Agrade�oObrigado...

Steve_narancic · Answer

ou voce pode simplesmente:[code:1:8231f4cd5d] Database.GetTableNames(combobox.items);[/code:1:8231f4cd5d][code:1:8231f4cd5d] Database.GetFieldNames(�Tabela�, combobox.items);[/code:1:8231f4cd5d]...

F�rum Tabelas do banco em um combobox #282597