(Resolvido) Erro de Consulta

[Fabiano Furquim]

Bom Dia a todos.

Estou com o seguinte erro na minha consulta.

Exception class EConvertError with Message Is not valid integer value.

Sei que é um erro por causa do tipo de dados.

O que esta ocorrendo:

Tenho um formulário de busca, que a mesma pode ser feita tanto pelo código do aluno, como também pode ser feita pelo nome. O que ocorre é que eu consigo fazer a primeira busca pelo código, mas, quando tento realizar uma nova busca ele apresenta essa mensagem de erro. E tanto faz se a nova busca é por nome ou por código, ele sempre mostra a mensagem.

Estou usando os componetes de conexão Zeos(zConection e Zquery), e a consulta é feita pelo onchange dos edit's.

Segue código das consulta.

consulta por código

procedure TForm1.Edit1Change(Sender: TObject);
var
aluno : integer;
begin
    //Variável que recebe o valor do edit1 e transforma em número inteiro
    Aluno := strtoint(Edit1.Text);
    // Desativa a query
    Zquery.Active := false;
    // Limpa o atual SQL da query
    Zquery.SQL.Clear;
    // Adiciona o SQL para busca do Aluno
    Zquery.SQL.Append('SELECT ALUNO FROM OCORRENCIA WHERE ALUNO = :Aluno');
    // Define o parametro "Aluno" como sendo o Inteiro
    Zquery.ParamByName('Aluno').AsInteger:=Aluno;
    // Abre(executa) a busca
    Zquery.Open;

end;

Consulta por Nome

procedure TForm1.Edit2Change(Sender: TObject);
var
nome : string;
begin
    nome := edit2.Text;
    // Desativa a query
    Zquery.Active := false;
    // Limpa o atual SQL da query
    Zquery.SQL.Clear;
    // Adiciona o SQL para busca do usuario
    Zquery.SQL.Append('SELECT NOME FROM OCORRENCIA WHERE NOME = :Nome');
    // Define o parametro "Nome" como sendo o Texto do Edit2
    Zquery.ParamByName('Nome').AsString := nome;
    // Abre(executa) a busca
    Zquery.Open;
end;

Ainda quando troco o foco dos edit's ele limpa o edit anterior, ou seja foco no edit1 (edit2.text:=''), foco no edit2(edit1.text:='')

Se alguém tiver uma outra solução, agradeço.

Desde já agradeço pela ajuda de todos

Fabiano Furquim

[Micheus]

Estou com o seguinte erro na minha consulta.

Exception class EConvertError with Message Is not valid integer value.

Sei que é um erro por causa do tipo de dados.

O que esta ocorrendo:

Tenho um formulário de busca, que a mesma pode ser feita tanto pelo código do aluno, como também pode ser feita pelo nome. O que ocorre é que eu consigo fazer a primeira busca pelo código, mas, quando tento realizar uma nova busca ele apresenta essa mensagem de erro. E tanto faz se a nova busca é por nome ou por código, ele sempre mostra a mensagem.

Fabiano, é quase certo que seja devido a linha:

Aluno := strtoint(Edit1.Text);

O evento OnChange ocorre a cada alteração do Edit. Seja pela digitação de um caracter ou por sua definição como nulo (''). E é justo nesta condição que a linha citada gera erro. Ao tentar coverter qualquer coisa que não seja número para um (isto inclui a string nula - vazia), você terá o erro.

Para contorná-la você deverá validar seu conteúdo, tipo:

if Edit1.Text <> '' then
begin
  Aluno := strtoint(Edit1.Text);
  Zquery.Active := false;
  ...
  Zquery.Open;
end;

ou, pelo menos, talvez o mais apropriado:

try
  Aluno := strtoint(Edit1.Text);
  Zquery.Active := false;
  ...
  Zquery.Open;
except
    ShowMessage('Digite um núbero válido.');
end;

Entretanto, por não tratar-se de uma busca incremental (onde a cada caracter digitado você vai filtrando a consulta - como se faz em uma pesquisa usando LIKE), minha sugestão é que este tratamento seja feito no evento OnExit, ou seja, apenas quando o texto (mesmo que numérico) esteja completo.

Abraços

[Fabiano Furquim]

Entendi Micheus..

será q você poderia me dar um exemplo de como ficaria essa consulta com a clausula LIKE, dessa maneira poderia deixar a busca mais aprimorada....

Desde já agradeço pela dica.... Vou fazer as alterações e ver o q acontece....

Obrigado e até mais

[Micheus]

será q você poderia me dar um exemplo de como ficaria essa consulta com a clausula LIKE, dessa maneira poderia deixar a busca mais aprimorada....

Vou por alguns tópicos sobre o assunto, mas para ver outros, use o botão Pesquisar e coloque como palavra chave: LIKE (tem muitos tópicos a respeito)

- Fazer Uma Busca Em Sql E Usar Like Ao Invés De =

- Duvida Com Pesquisa

- Consulta Usando Query

Vai olhando eles que você consegue tirar muitas dúvidas (que outros já tiveram) sobre este comando.

Abraços

[Fabiano Furquim]

Obrigado pela ajuda....

Com sua dica consegui resolver o problema.....

E vou perquisar sobre o like

muito obrigado

abraços