ListBox versus Tabelas Access

Delphi

24/06/2004

Boa tarde galera do forum,
Estou eu aqui com mais uma duvida :D ...
Algeum saberia me dizer como eu faço para listar em um listbox o nome de todas as tabelas do meu banco?
EStou usando:
Access 2000
Delphi 7
Paleta ADO
Windows xp
Obrigada pela atenção


Flavia_mococa

Flavia_mococa

Curtidas 0

Respostas

Dataclass

Dataclass

24/06/2004

Flavio,

Utilizamos um componente TADOConnection(configuramos ele para que apontasse para um banco de dados qualquer), nele existe o método GetTableNames que retorna uma lista com as tabelas,daí armazenamos esta lista numa StringList e depois fizemos um loop para carregar o ListBox.Funcionou Redondinho!Tudo isso foi feito no click de um botão.


procedure TForm1.btnCarregaTabelasClick(Sender: TObject);
var listaNomesTabelas:TStringList;// guardará os nomes das tabelas
    i:integer;  //índice
begin

  {Conectando o banco}
  ADOConnection1.Connected := True;
  {instanciando o objeto}
  listaNomesTabelas := TStringList.Create;
  {armazenando nomes das tabelas}
  ADOConnection1.GetTableNames(listaNomesTabelas);

  {carregando listBox com os nomes das tabelas}
  for i:=0 to listaNomesTabelas.Count-1 do
  begin
    listBoxTabelas.Items.add(listaNomesTabelas.Strings[i]);
  end;

  {Desconectando o banco}
  ADOConnection1.Connected := False;
  {liberando a lista}
  listaNomesTabelas.Free;

end;



OBS: numa aplicação normalmente não é interessante conectar e desconectar o banco como fizemos,isso foi meramente ilustrativo :)


Qualquer coisa estamos aqui pra ajudar no que for possível!

Hugo Rodrigues / J. Reinaldo


GOSTEI 0
Flavia_mococa

Flavia_mococa

24/06/2004

obrigada pela ajuda, deu certinho, valeu :lol:


GOSTEI 0
POSTAR