tente assim
begin
close;
SQL.Clear;
SQL.Add('SELECT *' );
SQL.Add('FROM ALUNO');
SQL.Add('WHERE CPF= ' + QuotedStr('Edit1.Text'));
Open;
Em 6 de agosto de 2010 08:37, Darkzad <dark...@yahoo.com.br> escreveu:
>
>
> 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<profissionaisdetecnologia-subscribe%40yahoogrupos.com.br>
> > <mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br<profissionaisdetecnologia-subscribe%2540yahoogrupos.com.br>
> >
> > ---------------------------------
> > *********************************
> > ---------------------------------
> > farmysi...@yahoo.com.br <farmysilva%40yahoo.com.br> <mailto:
> farmysilva%40yahoo.com.br <farmysilva%2540yahoo.com.br>>
> > farmyferre...@yahoo.com.br <farmyferreira%40yahoo.com.br> <mailto:
> farmyferreira%40yahoo.com.br <farmyferreira%2540yahoo.com.br>>
> > farmysi...@hotmail.com <farmysilva%40hotmail.com> <mailto:
> farmysilva%40hotmail.com <farmysilva%2540hotmail.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]
>
>
>
--
Felipe Govoni
---------------------
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
