Listar tabelas e campos do banco no Treeview

Question

Ol�,Sou iniciante no Delphi e gostaria de ajuda para listar no treeview as tabelas e campos do Banco de Dados.Uso o SQL Server e a conex�o que fiz foi pelo componente ADO.Algu�m pode me ajudar, por fa...

Djfabioninja · Answer

Ol� Jaqque! boa noite!ADO � legal! O Componente ADO Connection tem uma propriedade chamada  GetTableNames! N�o costumo usar TreeView, mas para listar as tabelas em um ListBox por exemplo, � simples! Basta colocar: connection1.GetTableNames(listbox1.Items,false); - onde �listbox1.items� � a lista e o �false� em seguida define se ser�o trazidas tamb�m as tabelas internas de sistema ou n�o!Espero ter ajudado... qualquer coisa, msn: djfabioninja@hotmail.com...

Elip2008 · Answer

Poderia entaum colocar fazer assim, meu TAdoConnection eh o cnn:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: TStringList;
begin
  try
    s := TStringList.Create;
    cnn.GetTableNames(s);
    for i := 0 to Pred(s.Count) do
      TreeView1.Items.Add(nil, s.Strings[i]);
  finally
    FreeAndNil(s);
  end;
end;

Elip2008 · Answer

sobenaum tinha visto que vc precisava dos campos tbm.montei outro aqui, axo q vai funcionar blz..[code:1:4517225035]var  i, x: Integer;  s, f: TStringList;  t : TTreeNode;begin  try    s := TStringList.Create;    cnn.GetTableNames(s);    for i := 0 to Pred(s.Count) do    begin      t := TreeView1.Items.Add(nil, s.Strings&#91;i&93;);      try        f := TStringList.Create;        cnn.GetFieldNames(s.Strings&91;i&93;, f);        for x := 0 to Pred(f.Count) do        begin          TreeView1.Items.AddChild(t, f.Strings&91;x&93;);        end;      finally        FreeAndNil(f);      end;    end;  finally    FreeAndNil(s);  end;end;[/code:1:4517225035]kualker coisa eh soh postar ai...

Jaqque · Answer

Ol� elip2008!Muito obrigada mesmo!Funcionou!S� mais uma d�dida...como eu fa�o para aparecer somente as tabelas do meu banco, descartando as views e fun��es?Porque listou tudo...Obrigada....

Jaqque · Answer

Ol� elip2008!Muito obrigada mesmo!Funcionou!S� mais uma d�dida...como eu fa�o para aparecer somente as tabelas do meu banco, descartando as views e fun��es?Porque listou tudo...Obrigada....

Elip2008 · Answer

Oi, primeiramente precisa declarar no use a classe ADOInt.
Crie duas procedures no escopo Private:

  private
    { Private declarations }
    procedure habilitado(con: TADOConnection);
    procedure pegarTabela(conexao: TADOConnection; Lista:TStrings);

Aqui vai a implementacao das procedures:

procedure TForm1.habilitado(con: TADOConnection);
begin
  if con.Connected then Exit;
  con.Open;
  if Assigned(con.ConnectionObject) then
    while (con.ConnectionObject.State = adStateConnecting) do
      DBApplication.ProcessMessages;
end;

procedure TForm1.pegarTabela(conexao: TADOConnection; Lista: TStrings);
var
  TypeField,
  NameField: TField;
  TableType: string;
  DataSet: TADODataSet;
begin
  habilitado(conexao);
  DataSet := TADODataSet.Create(nil);
  try
    conexao.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
    TypeField := DataSet.FieldByName(�TABLE_TYPE�);
    NameField := DataSet.FieldByName(�TABLE_NAME�);
    Lista.BeginUpdate;
    try
      Lista.Clear;
      while not DataSet.Eof do
      begin
        TableType := TypeField.AsString;
        if (TableType = �TABLE�) then
          Lista.Add(NameField.AsString);
        DataSet.Next;
      end;
    finally
      Lista.EndUpdate;
    end;
  finally
    DataSet.Free;
  end;
end;

Com a criacao das procedures o codigo antes passado, deve ficar assim:

var 
  i, x: Integer;
  s, f: TStringList;
  t : TTreeNode;
begin
  try
    s := TStringList.Create;
    pegarTabela(cnn, s);
    for i := 0 to Pred(s.Count) do
    begin 
      t := TreeView1.Items.Add(nil, s.Strings[i]);
      try
        f := TStringList.Create; 
        cnn.GetFieldNames(s.Strings[i], f);
        for x := 0 to Pred(f.Count) do 
        begin
          TreeView1.Items.AddChild(t, f.Strings[x]);
        end;
      finally
        FreeAndNil(f);
      end;
    end;
  finally
    FreeAndNil(s);
  end;
end;

Teh+++, kualker coisa eh soh postar...

F�rum Listar tabelas e campos do banco no Treeview #374187