Fórum Ler Reg. de uma Query de novo #189233
17/10/2003
0
mas o no segundo da este erro:
Project Teste.exe raised exception class EListError with message ´list index out of bounds(1)´. Process Stopped.
O meu código é este:
Q1.Close;
Q1.Open;
Q1.First;
i := 0;
While true do
begin
CheckListbox1.Items.Add(Q1.Fields[0].AsString);
try
Q1.Next;
i := i + 1;
except
break;
end;
Onde o comando SQL é : Select cod from Teste.
Grato
Ecarvalhox
Curtir tópico
+ 0Posts
17/10/2003
Fabio.hc
troque este comando.
While true do
por este:
While not Q1.eof do
Gostei + 0
18/10/2003
Ecarvalhox
Tentei como vc. disse colocar o not Query.eof, mas continua dando o mesmo erro.
Gostei + 0
18/10/2003
Fabio.hc
Q1.Close; Q1.Open; Q1.First; While not Q1.eof do begin CheckListbox1.Items.Add(Q1.Fields[0].AsString); Q1.Next; end;
Gostei + 0
21/10/2003
Ecarvalhox
Mas aí vai mais uma pergunta
Se invés de colocar 0 (Q1.Fields[0].AsString) eu colocar uma variável que será incrementada em 1 não funciona. Por ex:
Q1.Fields[i].AsString
Gostei + 0
21/10/2003
Fabio.hc
Q1.Fields[0].AsString; Q1.Fields[1].AsString; Q1.Fields[2].AsString; ...
Onde [0] - representa o 1° campo da query.
O [1] - representa o 2° campo da query.
O [2] - representa o 3° campo da query.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)