Fórum TDBLISTBOX E BANCO DE DADOS - DELPHI ORACLE #516790
14/04/2015
0
Não estou conseguindo inserir os campos da minha tabela no meu DBLISTBOX. Segue o código.
procedure TForm1.FormShow(Sender: TObject);
begin
DBListBox1.Clear;
FDQConcursos.First;
while not FDQConcursos.Eof do
begin
DBListBox1.Items.Add(FDQConcursos.FieldValues['DATABASENAME']);
FDQConcursos.Next;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DBListBox1.Clear;
FDQConcursos.First;
while not FDQConcursos.Eof do
begin
DBListBox1.Items.Add(FDQConcursos.FieldValues['DATABASENAME']);
FDQConcursos.Next;
end;
end;
União Amado
Curtir tópico
+ 0
Responder
Posts
14/04/2015
Marisiana Battistella
Eu acho que o problema está nesta linha:
Veja este exemplo que encontrei e tenta adaptar o teu código para ver se funciona:
DBListBox1.Items.Add(FDQConcursos.FieldValues['DATABASENAME']);
Veja este exemplo que encontrei e tenta adaptar o teu código para ver se funciona:
procedure TForm1.Button1Click(Sender: TObject);
begin
DBListBox1.Clear;
ADOTable1.First;
while not ADOTable1.Eof do
begin
DBListBox1.Items.Add(ADOTable1Descricao.Value);
ADOTable1.Next;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)