Ainda poderia ficar menor, assim:
begin
ADOConnection1.GetTableNames(ComboBox1.Items, False);
end;
Assumindo que ComboBox1 é um componente que exista no Form
Atenciosamente,
Felipe Guerço Oliveira
----- Original Message -----
From: Clodoaldo
To: [EMAIL PROTECTED]
Sent: Monday, September 20, 2004 8:37 PM
Subject: Re: [delphi-br] Listar Tabelas do Banco
Tenta com AdoConnection, eu estava usando access funcionou bem, acredito que
venha funcionar com outros bancos.
procedure TForm1.FormCreate(Sender: TObject);
var
SL: TStrings;
index: Integer;
begin
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do
begin
ListBox1.Items.Add(sl[index]);
end;
finally
SL.Free;
end;
end;
isto levando se em conta que o AdoConnection esta conectado ao banco.
Clodoaldo
----- Original Message -----
From: Raphael Fonseca
To: Delphi-BR ; [EMAIL PROTECTED] ;
[EMAIL PROTECTED]
Cc: [EMAIL PROTECTED] ; Firebase Grupos ;
[EMAIL PROTECTED] ; Delphi-Grupos
Sent: Monday, September 20, 2004 4:38 PM
Subject: [delphi-br] Listar Tabelas do Banco
Caros Amigos da Lista
Como faço para listar em um combobox todas as tabelas de um determinado
banco Firebird.
No aguardo.
Raphael Fonseca
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
