Parece que o seu problema está na função CPF, não?
[]'s
Em 05-08-2010 15:30, Farmy G. Ferreira da Silva escreveu:
>
> Pessoal, estou com dois problemas:
>
> 1º minha consulta
> procedure TfrmPesqAluno.Button2Click(Sender: TObject);
> begin
> // codigo para fazer a pesquisa pelo nome
>
> if rbnome.Checked = TRUE then
> begin
> with dmSIGAE do
> begin
> with ibqAluno do
> begin
> close;
> SQL.Clear;
> SQL.Add('SELECT *' );
> SQL.Add('FROM ALUNO');
> SQL.Add('WHERE NOMECOMPLETO LIKE''%'+Edit1.Text+'%'';');
> Open;
> end;
> end;
> end;
>
> //codigo para realizar a pesquisa por cpf
> if rbcpf.Checked = true then
> begin
> //verifica validade do cpf
> if CPF(Edit1.Text) = false then
> begin
> Edit1.Color := clred;
> ShowMessage('CPF inválido Digite novamente!');
> Edit1.SetFocus;
> end
> else
> begin
> Edit1.Color := clwindow;
> end;
>
> //busca cpf no banco de dados
> with dmSIGAE do
> begin
> with ibqAluno do
> begin
> close;
> SQL.Clear;
> SQL.Add('SELECT *' );
> SQL.Add('FROM ALUNO');
> SQL.Add('WHERE CPF= '''+Edit1.Text+''';');
> Open;
> end;
> end;
> end;
> end;
>
> retorna um erro na primeira letra digitada dizendo que: "A" não é um
> valor
> inteiro valido, e meus campos de pesquisa sõa varchar.
> Segundo problema eu preciso realizar um update nos dados retornados pela
> pesquisa alguem tem algum material sobre o componente TIBUpdateSql da
> paleta
> interbase do d2009?
>
> []'s
>
> ---------------------------------
> *********************************
> ---------------------------------
> Farmy Gonçalves Ferreira da Silva
> Engenheiro de Software
> Mestrando em saúde mental.
> Laboratório de integração Sensório Motara IPUB/UFRJ. IBBN.
> ---------------------------------
> *********************************
> ---------------------------------
> www.profissionaisdetecnologia.com.br
> profissionaisdetecnologia-subscr...@yahoogrupos.com.br
> <mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br>
> ---------------------------------
> *********************************
> ---------------------------------
> farmysi...@yahoo.com.br <mailto:farmysilva%40yahoo.com.br>
> farmyferre...@yahoo.com.br <mailto:farmyferreira%40yahoo.com.br>
> farmysi...@hotmail.com <mailto:farmysilva%40hotmail.com>
> Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
