É possivel pegar todos os campos da tabela e jogar no ListBo

Delphi

15/02/2008

É possivel pegar todos os campos da tabela e jogar no ListBox?

Gostaria de fazer um esquema desta forma assim

1º num ListBox queria que todas as tabelas de uma determinada pasta seja carregado no seu item.

Supondo que tenho uma pasta assim

c:\meuprograma\dados\tabelas.fbd

ai pegar o nomes das taberlas que estao dentro deste fdb e jogar neste 1º listbox, depois se eu selecionar dentro deste listbox alguma tabela em outro listbox mostrar todos os campos referente aquela tabela que eu selecionei no 1º listbox.

Espero ter explicado minha duvida
Qualquer coisa é só falarem.
Grato
Adriano


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Emarcolongo

Emarcolongo

15/02/2008

Adriano, é o seguinte.

Coloque um SqlConnection e ligue ao BD
Coloque um Button e dois Listbox

Depois no onclick do botão coloque:
sqlconnection1.GetTableNames(listbox1.items,false);


O False significa que vc não irá trazer as SystemTables do BD

Depois no onclick do primeiro listbox1 (aquele que recebeu as tabelas)
coloque:

sqlconnection1.GetFieldNames(listbox1.items[listbox1.itemindex],listbox2.items);


E esta feito, segue abaixo a unit:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, StdCtrls, DB, SqlExpr;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
sqlconnection1.GetTableNames(listbox1.items,false);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
sqlconnection1.GetFieldNames(listbox1.items[listbox1.itemindex],listbox2.items);
end;

end.


Espero ter ajudado.
Qualquer coisa avise.


GOSTEI 0
POSTAR