• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

nitoc3

Colocar resultados numa ListBox

3 mensagens neste tópico

Estou a tentar colocar os resultados de uma Query numa ListBox de forma a que possa depois seleccionalos. O código que estou a utilizar é este:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   SQLQuery1.SQL.Add('SELECT titulo FROM livros');
   SQLQuery1.Open;


   for  i:= 0 to SQLQuery1.FieldCount -1   do
        listbox1.Items[i]:= sqlquery1.Fields[i].AsString ;

end;

Mas de cada vez que executo o código recebo a mensagem de erro Project dbConnect.exe raised exception class EDatabaseError with message 'Invalid field size'. e não consigo perceber qual é o problema.

Alguém sabe o que isto quer dizer?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

A maneira correcta seria:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQuery1.SQL.Add('SELECT titulo FROM livros');
  SQLQuery1.Open;
  while not SQLQuery1.Eof do
  begin
    ListBox1.Items.Add(SQLQuery1.FieldByName('titulo').AsString);
    SQLQuery1.Next;
  end;
  SQLQuery1.Close;
end;

Espero que ajude.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora