Fórum É possivel pegar todos os campos da tabela e jogar no ListBo #353783
15/02/2008
0
É 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
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
Curtir tópico
+ 0
Responder
Posts
15/02/2008
Emarcolongo
Adriano, é o seguinte.
Coloque um SqlConnection e ligue ao BD
Coloque um Button e dois Listbox
Depois no onclick do botão coloque:
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:
E esta feito, segue abaixo a unit:
Espero ter ajudado.
Qualquer coisa avise.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)