(Resolvido) Erro Eof ; Bof

[Felipe - Iniciante-Delphi]

Galera, estou com o seguinte probleminha. =)

Bom, tenho uma ComboBox que faz uma consulta no Banco de Dados SQL Server 2000.

Bom, está tudo OK , abro a combobox e me retorna todas as linhas que pedi pra retornar, até ai tudo bem ...

... o problema surge quando eu fecho a aplicação, me retorna o seguinte erro :

1° Erro, ao feca a aplicação : http://img209.imageshack.us/i/erro1k.jpg/

2° Erro, ao apertar F9 novamente : http://img209.imageshack.us/i/erro2.jpg/

Query onde ocorre o erro :

procedure TfrmCliente.FormActivate(Sender: TObject);

begin

dm.qryLeCPF.Close;

dm.qryLeCPF.sQL.Clear;

dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE');

dm.qryLeCPF.Open;

cbCPF.clear;

while not dm.qryLeCPF.Eof DO

begin

cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString);

dm.qryLeCPF.Next;

end;

end;

Espero que alguém possa me ajudar :/

Agradeço a todos,

Felipe!

[danielrgoes]

Galera, estou com o seguinte probleminha. =)

Bom, tenho uma ComboBox que faz uma consulta no Banco de Dados SQL Server 2000.

Bom, está tudo OK , abro a combobox e me retorna todas as linhas que pedi pra retornar, até ai tudo bem ...

... o problema surge quando eu fecho a aplicação, me retorna o seguinte erro :

1° Erro, ao feca a aplicação : http://img209.imageshack.us/i/erro1k.jpg/

2° Erro, ao apertar F9 novamente : http://img209.imageshack.us/i/erro2.jpg/

Query onde ocorre o erro :

procedure TfrmCliente.FormActivate(Sender: TObject);

begin

dm.qryLeCPF.Close;

dm.qryLeCPF.sQL.Clear;

dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE');

dm.qryLeCPF.Open;

cbCPF.clear;

while not dm.qryLeCPF.Eof DO

begin

cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString);

dm.qryLeCPF.Next;

end;

end;

Espero que alguém possa me ajudar :/

Agradeço a todos,

Felipe!

meu caro tente assim

i := 0;

modulo.cds_usuario.close;

modulo.sql_usuario.sql.clear;

modulo.sql_usuario.sql.Add('SELECT * FROM USUARIO ');

modulo.cds_usuario.Open();

cont_user := modulo.cds_usuario.RecordCount;

modulo.cds_usuario.First;

while i < cont_User do

begin

cbarquivado.Items.Add(modulo.cds_usuarioNOME_USER.Value);

modulo.cds_usuario.Next;

i := i + 1;

end;

no meu caso estou usando uma tabela de usuario só troque o nome da tabela pela sua

[Jhonas]

Query onde ocorre o erro :

procedure TfrmCliente.FormActivate(Sender: TObject);
begin
   dm.qryLeCPF.Close;
   dm.qryLeCPF.sQL.Clear;
   dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE');
   dm.qryLeCPF.Open;

   cbCPF.clear;

   while not dm.qryLeCPF.Eof DO
   begin
      cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString);
      dm.qryLeCPF.Next;
   end;
end;

Erro: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. OBS: Se voce entendeu o erro, notaria que o uso do while para testar fim de arquivo, faz com que ele vá além do ultimo registro encontrado. Por isso a mensagem está correta, indicando que BOF ou EOF é verdadeiro ou o registro atual foi excluido O correto seria usar o comando For

procedure TfrmCliente.FormActivate(Sender: TObject);
begin
   dm.qryLeCPF.Close;
   dm.qryLeCPF.sQL.Clear;
   dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE');
   dm.qryLeCPF.Open;

   cbCPF.clear;

   For i := 1 to dm.qryLeCPF.RecordCount do
   begin
      cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString);
      dm.qryLeCPF.Next;
   end;
end;

abraço

[Felipe - Iniciante-Delphi]

Obrigado ae pela ajuda galera.

Eu corrigi isso ae, instalando um Pacote de Atualização do DelphiAdo. :S

Mas mesmo assim, muito obrigado gente xD

Abraco ae,