Tabelas do banco em um combobox

Delphi

21/05/2005

Olá pessoal,

como mostrar as tabelas do banco em um combo? e em outro combo os campos de uma determinada tabela;


Ntrafa

Ntrafa

Curtidas 0

Respostas

Ntrafa

Ntrafa

21/05/2005

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


GOSTEI 0
Marco Salles

Marco Salles

21/05/2005

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


Sera que seria muito pedir , para voce mostrar como encontrou a solução :lol: :lol: :lol:


GOSTEI 0
Otto

Otto

21/05/2005

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.. ;)


GOSTEI 0
Marco Salles

Marco Salles

21/05/2005

Otto , obrigado.. Amanha Vou testar .

Se não consegui eu Posto Novamente

Mas desde ja eu Agradeço

Obrigado


GOSTEI 0
Steve_narancic

Steve_narancic

21/05/2005

ou voce pode simplesmente:

 Database.GetTableNames(combobox.items);

 Database.GetFieldNames(´Tabela´, combobox.items);



GOSTEI 0
POSTAR